tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Change indentation to match coding style guideline. 

* org-feed.el: Change indentation to match coding style
guideline.

Cosmetic changes.
This commit is contained in:
David Maus 2010-07-07 11:22:24 +00:00 committed by Carsten Dominik
parent 66eadedab3
commit 60bbc07a11
1 changed files with 49 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/org-feed.el
View File

@ -166,10 +166,11 @@ Here are the keyword-value pair allows in `org-feed-alist'.
When the handler is called, point will be at the feed headline.
:parse-feed function
This function gets passed a buffer, and should return a list of entries,
each being a property list containing the `:guid' and `:item-full-text'
keys. The default is `org-feed-parse-rss-feed'; `org-feed-parse-atom-feed'
is an alternative.
This function gets passed a buffer, and should return a list
of entries, each being a property list containing the
`:guid' and `:item-full-text' keys. The default is
`org-feed-parse-rss-feed'; `org-feed-parse-atom-feed' is an
alternative.
:parse-entry function
This function gets passed an entry as returned by the parse-feed
@ -333,7 +334,8 @@ it can be a list structured like an entry in `org-feed-alist'."
(setq old-status (org-feed-read-previous-status inbox-pos drawer))
;; Add the "handled" status to the appropriate entries
(setq entries (mapcar (lambda (e)
(setq e (plist-put e :handled
(setq e
(plist-put e :handled
(nth 1 (assoc
(plist-get e :guid)
old-status)))))
@ -652,7 +654,8 @@ formatted as a string, not the original XML data."
'href)))
;; Add <title/> as :title.
(setq entry (plist-put entry :title
(org-feed-unescape (car (xml-node-children
(org-feed-unescape
(car (xml-node-children
(car (xml-get-children xml 'title)))))))
(let* ((content (car (xml-get-children xml 'content)))
(type (xml-get-attribute-or-nil content 'type)))
@ -660,15 +663,22 @@ formatted as a string, not the original XML data."
(cond
((string= type "text")
;; We like plain text.
(setq entry (plist-put entry :description (org-feed-unescape (car (xml-node-children content))))))
(setq entry (plist-put entry :description
(org-feed-unescape
(car (xml-node-children content))))))
((string= type "html")
;; TODO: convert HTML to Org markup.
(setq entry (plist-put entry :description (org-feed-unescape (car (xml-node-children content))))))
(setq entry (plist-put entry :description
(org-feed-unescape
(car (xml-node-children content))))))
((string= type "xhtml")
;; TODO: convert XHTML to Org markup.
(setq entry (plist-put entry :description (prin1-to-string (xml-node-children content)))))
(setq entry (plist-put entry :description
(prin1-to-string
(xml-node-children content)))))
(t
(setq entry (plist-put entry :description (format "Unknown '%s' content." type)))))))
(setq entry (plist-put entry :description
(format "Unknown '%s' content." type)))))))
entry))
(provide 'org-feed)