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

org-feed.el: Allow current buffer to be indirect 

* lisp/org-feed.el (org-feed-alist): Allow current buffer to be an
indirect buffer.
This commit is contained in:
Michael Brand 2014-02-18 20:33:34 +01:00
parent 03514a6a78
commit da0121a996
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-feed.el
View File

@ -117,8 +117,8 @@ to create inbox items in Org. Each entry is a list with the following items:
name a custom name for this feed name a custom name for this feed
URL the Feed URL URL the Feed URL
file the target Org file where entries should be listed, when file the target Org file where entries should be listed, when
nil the target becomes the current buffer each time the nil the target becomes the current buffer (may be an
feed update is invoked indirect buffer) each time the feed update is invoked
headline the headline under which entries should be listed headline the headline under which entries should be listed
Additional arguments can be given using keyword-value pairs. Many of these Additional arguments can be given using keyword-value pairs. Many of these
@ -298,7 +298,8 @@ it can be a list structured like an entry in `org-feed-alist'."
(catch 'exit (catch 'exit
(let ((name (car feed)) (let ((name (car feed))
(url (nth 1 feed)) (url (nth 1 feed))
(file (or (nth 2 feed) (buffer-file-name (current-buffer)))) (file (or (nth 2 feed) (buffer-file-name (or (buffer-base-buffer)
(current-buffer)))))
(headline (nth 3 feed)) (headline (nth 3 feed))
(filter (nth 1 (memq :filter feed))) (filter (nth 1 (memq :filter feed)))
(formatter (nth 1 (memq :formatter feed))) (formatter (nth 1 (memq :formatter feed)))