From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Rakestraw Subject: Re: iPhone ----> org-mode Date: Wed, 25 Mar 2009 16:39:25 -0400 Message-ID: <20090325163925.463b53ae@johnrakestraw.com> References: <15979874-86B6-4E93-9EDD-CE1A30E6525A@uva.nl> <600D770E-0D1A-4559-B1C9-8CB1605BB491@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LmZsU-0004en-TR for emacs-orgmode@gnu.org; Wed, 25 Mar 2009 16:39:10 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LmZsQ-0004eU-Cv for emacs-orgmode@gnu.org; Wed, 25 Mar 2009 16:39:10 -0400 Received: from [199.232.76.173] (port=57980 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LmZsP-0004eP-Dn for emacs-orgmode@gnu.org; Wed, 25 Mar 2009 16:39:05 -0400 Received: from uis-ipmx-1.pdc.uis.georgetown.edu ([141.161.2.135]:57029) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_ARCFOUR_SHA1:16) (Exim 4.60) (envelope-from ) id 1LmZsO-0001iw-VN for emacs-orgmode@gnu.org; Wed, 25 Mar 2009 16:39:05 -0400 In-Reply-To: <600D770E-0D1A-4559-B1C9-8CB1605BB491@gmail.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: emacs-orgmode@gnu.org 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 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 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 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