From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: iPhone ----> org-mode Date: Wed, 25 Mar 2009 21:40:53 +0100 Message-ID: <3D86F964-922D-47EA-97DB-5541BD63C0E8@gmail.com> References: <15979874-86B6-4E93-9EDD-CE1A30E6525A@uva.nl> <600D770E-0D1A-4559-B1C9-8CB1605BB491@gmail.com> <20090325163925.463b53ae@johnrakestraw.com> Mime-Version: 1.0 (Apple Message framework v930.3) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LmZuJ-0006UI-Qu for emacs-orgmode@gnu.org; Wed, 25 Mar 2009 16:41:03 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LmZuF-0006Qt-2D for emacs-orgmode@gnu.org; Wed, 25 Mar 2009 16:41:03 -0400 Received: from [199.232.76.173] (port=58041 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LmZuE-0006Qg-Oy for emacs-orgmode@gnu.org; Wed, 25 Mar 2009 16:40:58 -0400 Received: from mail-ew0-f160.google.com ([209.85.219.160]:57778) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LmZuD-00023u-CP for emacs-orgmode@gnu.org; Wed, 25 Mar 2009 16:40:57 -0400 Received: by ewy4 with SMTP id 4so266866ewy.42 for ; Wed, 25 Mar 2009 13:40:56 -0700 (PDT) In-Reply-To: <20090325163925.463b53ae@johnrakestraw.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: John Rakestraw Cc: emacs-orgmode@gnu.org This looks like I forgot a (debug) line somewhere in there.... - Carsten On Mar 25, 2009, at 9:39 PM, John Rakestraw wrote: > 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 > Try to pull reqall rss into org file\n > http://www.reqall.com/web/posts\n isPermaLink=\"false\">2416179132\n > Task\n Task: Try to pull reqall > rss into org file\n Wed, 25 Mar 2009 > 20:25:43 -0000\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 > Try > to pull reqall rss into org file\n > http://www.reqall.com/web/posts\n isPermaLink=\"false\">2416179132\n > Task\n Task: Try to pull reqall > rss into org file\n Wed, 25 Mar 2009 > 20:25:43 -0000\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 Try to pull reqall rss > into org file\n > http://www.reqall.com/web/posts\n isPermaLink=\"false\">2416179132\n > Task\n Task: Try to pull reqall > rss into org file\n Wed, 25 Mar 2009 > 20:25:43 -0000\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. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode