xuchunyang/elisp-parse-xml.el

## elisp-parse-xml.el
;;; elisp-parse-xml.el --- demo for parse xml in Emacs Lisp

;;; Created: 2015/04/01
;;; URL: $gist_url$

(insert-file-contents "~/ss.xml")
;; ==>
;; <?xml version="1.0" encoding="UTF-8"?>
;; <note>
;; 	<to>Tove</to>
;; 	<from>Jani</from>
;; 	<heading>Reminder</heading>
;; 	<body>Don't forget me this weekend!</body>
;; </note>

(let* ((a (xml-parse-file "~/ss.xml"))
       (b (car a))
       (c (xml-node-children b)))
  (dolist (p c)
    (when (listp p)
      (insert (concat "\n"
                      (symbol-name (car p))
                      " = "
                      (car (cdr (cdr p))))))))
;; ==>
;; to = Tove
;; from = Jani
;; heading = Reminder
;; body = Don't forget me this weekend

;;; elisp-parse-xml.el ends here
	;;; elisp-parse-xml.el --- demo for parse xml in Emacs Lisp

	;;; Created: 2015/04/01
	;;; URL: $gist_url$

	(insert-file-contents "~/ss.xml")
	;; ==>
	;; <?xml version="1.0" encoding="UTF-8"?>
	;; <note>
	;; <to>Tove</to>
	;; <from>Jani</from>
	;; <heading>Reminder</heading>
	;; <body>Don't forget me this weekend!</body>
	;; </note>

	(let* ((a (xml-parse-file "~/ss.xml"))
	(b (car a))
	(c (xml-node-children b)))
	(dolist (p c)
	(when (listp p)
	(insert (concat "\n"
	(symbol-name (car p))
	" = "
	(car (cdr (cdr p))))))))
	;; ==>
	;; to = Tove
	;; from = Jani
	;; heading = Reminder
	;; body = Don't forget me this weekend

	;;; elisp-parse-xml.el ends here