Function: org-feed-parse-atom-feed

org-feed-parse-atom-feed is a byte-compiled function defined in org-feed.el.gz.

Signature

(org-feed-parse-atom-feed BUFFER)

Documentation

Parse BUFFER for Atom feed entries.

Returns a list of entries, with each entry a property list, containing the properties :guid and :item-full-text.

The :item-full-text property actually contains the sexp formatted as a string, not the original XML data.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-feed.el.gz
(defun org-feed-parse-atom-feed (buffer)
  "Parse BUFFER for Atom feed entries.
Returns a list of entries, with each entry a property list,
containing the properties `:guid' and `:item-full-text'.

The `:item-full-text' property actually contains the sexp
formatted as a string, not the original XML data."
  (require 'xml)
  (with-current-buffer buffer
    (widen)
    (let ((feed (car (xml-parse-region (point-min) (point-max)))))
      (mapcar
       (lambda (entry)
	 (list
	  :guid (car (xml-node-children (car (xml-get-children entry 'id))))
	  :item-full-text (prin1-to-string entry)))
       (xml-get-children feed 'entry)))))