Hi Carsten --
I suspect this is some error in my set-up.
Just a quick note, org-feed.el is still changing, the interface and
settings
may still change - I will fix it for the 6.25 release. Until then,
please
test it, but be prepared for changes.
I'm trying to use this, but I can't get it to work.
I've added this to my .emacs:
<-------->
(setq org-feed-alist
'(("ReQall"
"http://www.reqall.com/user/feeds/rss/8dc53e3aff648650b9996a61717a75adf27c54dc
"
"~/Dropbox/plans/feeds.org" "ReQall Entries"
:filter my-reqall-filter)))
(defun my-reqall-filter (e)
(when (equal (plist-get e :category) "Task")
(setq e (plist-put e :title
(concat "TODO " (plist-get e :title)))))
e)
<--------->
I've added FEEDGUIDS as a drawer.
If I delete all my tasks from my reQall account and then run
"org-feed-update-all" I get the expected response "no new entries from
one feed."
However, if I add one task to my reQall account, "Try to pull reqall
rss feed into org file," and then run "org-feed-update-all" I get this
in the messages buffer:
Debugger entered: nil
(save-current-buffer (set-buffer temp-buffer) (insert template)
(debug) (goto-char (point-min)) (while (re-search-forward
"%\\([a-zA-Z]+\\)" nil t) (setq name ...) (cond ... ... t)) (setq
entry
(plist-put entry :formatted-for-org ...))) (with-current-buffer
temp-buffer (insert template) (debug) (goto-char (point-min)) (while
(re-search-forward "%\\([a-zA-Z]+\\)" nil t) (setq name ...)
(cond ... ... t)) (setq entry (plist-put
entry :formatted-for-org ...))) (unwind-protect (with-current-buffer
temp-buffer (insert template) (debug) (goto-char ...)
(while ... ... ...) (setq entry ...)) (and (buffer-name temp-buffer)
(kill-buffer temp-buffer))) (let ((temp-buffer ...)) (unwind-protect
(with-current-buffer temp-buffer ... ... ... ... ...) (and ... ...)))
(with-temp-buffer (insert template) (debug) (goto-char (point-min))
(while (re-search-forward "%\\([a-zA-Z]+\\)" nil t) (setq name ...)
(cond ... ... t)) (setq entry (plist-put
entry :formatted-for-org ...))) (let (dlines fmt tmp indent) (setq
dlines (org-split-string ... "\n") v-h (or ... ... "???") time
(or ... ...) v-t (format-time-string ... time) v-T
(format-time-string ... time) v-u (format-time-string ... time) v-U
(format-time-string ... time) v-a (if ... ... "")) (with-temp-buffer
(insert template) (debug) (goto-char ...) (while ... ... ...) (setq
entry ...))) (if (or (not entry) (plist-get entry :formatted-for-org))
nil (let (dlines fmt tmp indent) (setq dlines ... v-h ... time ...
v-t ... v-T ... v-u ... v-U ... v-a ...)
(with-temp-buffer ... ... ... ... ...))) (unless (or (not entry)
(plist-get entry :formatted-for-org)) (let (dlines fmt tmp indent)
(setq dlines ... v-h ... time ... v-t ... v-T ... v-u ... v-U ...
v-a ...) (with-temp-buffer ... ... ... ... ...)))
org-feed-format-entry((:guid "2416179132" :item-full-text "\n
<title>Try to pull reqall rss into org file</title>\n
<link>http://www.reqall.com/web/posts</link>\n <guid
isPermaLink=\"false\">2416179132</guid>\n
<category>Task</category>\n <description>Task: Try to pull reqall
rss into org file</description>\n <pubDate>Wed, 25 Mar 2009
20:25:43 -0000</pubDate>\n " :title "TODO Try to pull reqall rss
into org file" :link "http://www.reqall.com/web/posts"; :category
"Task" :description "Task: Try to pull reqall rss into org
file" :pubDate "Wed, 25 Mar 2009 20:25:43 -0000") "* %h\n %U\n
%description\n %a\n") (lambda (e) (org-feed-format-entry e
feed-template))((:guid "2416179132" :item-full-text "\n
<title>Try
to pull reqall rss into org file</title>\n
<link>http://www.reqall.com/web/posts</link>\n <guid
isPermaLink=\"false\">2416179132</guid>\n
<category>Task</category>\n <description>Task: Try to pull reqall
rss into org file</description>\n <pubDate>Wed, 25 Mar 2009
20:25:43 -0000</pubDate>\n " :title "TODO Try to pull reqall rss
into org file" :link "http://www.reqall.com/web/posts"; :category
"Task" :description "Task: Try to pull reqall rss into org
file" :pubDate "Wed, 25 Mar 2009 20:25:43 -0000")) mapcar((lambda (e)
(org-feed-format-entry e feed-template)) ((:guid
"2416179132" :item-full-text "\n <title>Try to pull reqall rss
into org file</title>\n
<link>http://www.reqall.com/web/posts</link>\n <guid
isPermaLink=\"false\">2416179132</guid>\n
<category>Task</category>\n <description>Task: Try to pull reqall
rss into org file</description>\n <pubDate>Wed, 25 Mar 2009
20:25:43 -0000</pubDate>\n " :title "TODO Try to pull reqall rss
into org file" :link "http://www.reqall.com/web/posts"; :category
"Task" :description "Task: Try to pull reqall rss into org
file" :pubDate "Wed, 25 Mar 2009 20:25:43 -0000"))) (delq nil (mapcar
(lambda ... ...) new-selected)) (setq new-selected (delq nil
(mapcar ... new-selected))) (if (not new) (progn (message "No new
items
in feed %s" feed-name) 0) (run-hooks (quote
org-feed-before-adding-hook)) (setq new-selected new) (when feed-
filter
(setq new-selected ...)) (setq new-selected (delq nil ...)) (apply
(quote org-feed-add-items) feed-pos new-selected) (if
org-feed-assume-stable (apply ... feed-pos ... entries) (apply ...
feed-pos nil new)) (goto-char feed-pos) (show-children) (when
org-feed-save-after-adding (save-buffer)) (message "Added %d new item
%s
from feed %s to file %s, heading %s" (length new) (if ... "s" "")
feed-name (file-name-nondirectory feed-file) feed-headline) (run-hooks
(quote org-feed-after-adding-hook)) (length new))
(save-window-excursion (setq feed-pos (org-feed-goto-inbox-internal
feed-file feed-headline)) (setq old-guids (org-feed-get-old-guids
feed-pos)) (while (setq e ...) (unless ... ...)) (if (not new)
(progn ... 0) (run-hooks ...) (setq new-selected new) (when
feed-filter ...) (setq new-selected ...) (apply ... feed-pos
new-selected) (if org-feed-assume-stable ... ...) (goto-char feed-pos)
(show-children) (when org-feed-save-after-adding ...) (message "Added
%d new item%s from feed %s to file %s, heading %s" ... ...
feed-name ... feed-headline) (run-hooks ...) (length new)))
(save-excursion (save-window-excursion (setq feed-pos ...) (setq
old-guids ...) (while ... ...)
(if ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (let
((feed-name ...) (feed-url ...) (feed-file ...) (feed-headline ...)
(feed-filter ...) (feed-template ...) feed-buffer feed-pos entries
entries2 old-guids current-guids new new-selected e) (setq feed-buffer
(org-feed-get-feed feed-url)) (unless (and feed-buffer ...) (error
"Cannot get feed %s" feed-name)) (setq entries (org-feed-parse-feed
feed-buffer) entries2 entries) (ignore-errors (kill-buffer
feed-buffer)) (save-excursion (save-window-
excursion ... ... ... ...)))
org-feed-update(("ReQall"
"http://www.reqall.com/user/feeds/rss/8dc53e3aff648650b9996a61717a75adf27c54dc
"
"~/Dropbox/plans/feeds.org" "ReQall Entries" :filter my-reqall-
filter))
mapcar(org-feed-update (("ReQall"
"http://www.reqall.com/user/feeds/rss/8dc53e3aff648650b9996a61717a75adf27c54dc
"
"~/Dropbox/plans/feeds.org" "ReQall Entries" :filter
my-reqall-filter))) (apply (quote +) (mapcar (quote org-feed-update)
org-feed-alist)) (let ((nfeeds ...) (nnew ...)) (message "%s from %d
%s" (cond ... ... ...) nfeeds (if ... "feed" "feeds")))
org-feed-update-all() call-interactively(org-feed-update-all)
execute-extended-command(nil)
call-interactively(execute-extended-command)
So where did I go wrong?
--
John Rakestraw
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode