emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: John Rakestraw <lists@johnrakestraw.com>
To: emacs-orgmode@gnu.org
Subject: Re: iPhone ----> org-mode
Date: Wed, 25 Mar 2009 16:39:25 -0400	[thread overview]
Message-ID: <20090325163925.463b53ae@johnrakestraw.com> (raw)
In-Reply-To: <600D770E-0D1A-4559-B1C9-8CB1605BB491@gmail.com>

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

  reply	other threads:[~2009-03-25 20:39 UTC|newest]

Thread overview: 34+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-03-22 10:38 iPhone ----> org-mode Brad Bozarth
2009-03-22 13:52 ` Carsten Dominik
2009-03-23  8:32   ` Brad Bozarth
2009-03-23 13:47     ` Ian Barton
2009-03-24  0:43       ` Brad Bozarth
2009-03-24  7:37         ` Carsten Dominik
2009-03-24  8:30           ` Ian Barton
2009-03-24  8:38             ` Carsten Dominik
2009-03-24 10:20               ` Ian Barton
2009-03-24  7:03       ` Rob Weir
2009-03-25  5:56     ` Brad Bozarth
2009-03-25  8:00       ` Brad Bozarth
2009-03-22 21:23 ` John Rakestraw
2009-03-24 11:32 ` Carsten Dominik
2009-03-24 18:21   ` Brad Bozarth
2009-03-25  8:28     ` Carsten Dominik
2009-03-25  8:36 ` Carsten Dominik
2009-03-25  8:50   ` Brad Bozarth
2009-03-25 19:52     ` Carsten Dominik
2009-03-25 20:39       ` John Rakestraw [this message]
2009-03-25 20:40         ` Carsten Dominik
2009-03-25  9:06   ` Brad Bozarth
2009-03-25  9:09     ` Carsten Dominik
2009-03-25  9:25       ` Carsten Dominik
2009-03-25  9:35   ` Ian Barton
2009-03-25 10:57     ` William Henney
2009-03-26 15:39       ` Carsten Dominik
2009-03-26 17:07         ` William Henney
2009-03-26 18:20           ` Richard Riley
     [not found]         ` <71454fac0903261121u79e85c3bq2538a294701e4c78@mail.gmail.com>
2009-03-27  9:15           ` Carsten Dominik
2009-03-27 15:45             ` Sven Bretfeld
2009-03-27 17:29               ` Carsten Dominik
2009-03-27 18:07                 ` David Bremner
2009-03-25 14:29     ` Bernt Hansen

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20090325163925.463b53ae@johnrakestraw.com \
    --to=lists@johnrakestraw.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).