From a6481f8a6bc8e0392a7531c247bd09bcda324d94 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 20 Jan 2015 14:33:20 +0100
Subject: Add feed that checks oldest bookmarks

Only the bookmarks tagged lookat.
---
 emacs/.emacs.d/init.el               |  8 ++++++++
 emacs/.emacs.d/site-lisp/org-init.el | 11 ++++++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

(limited to 'emacs/.emacs.d')

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 54aca2b..5a275bc 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -418,6 +418,14 @@ PLIST contains all the pertinent information."
       (format "* ACQUIRE %s %s - %s \n  SCHEDULED: <%s>"
               title episode name date))))
 
+(defun oni:scuttle-formatter (plist)
+  "Format RSS items from Scuttle as org tasks.
+
+PLIST contains all the pertinent ifnormation."
+  (let ((title (plist-get plist :title))
+        (link (plist-get plist :link)))
+    (concat "* TODO " title "\n\n  " link)))
+
 (defun oni:php-mode-func ()
   "Function for `php-mode-hook'."
   (c-set-offset 'arglist-intro '+)
diff --git a/emacs/.emacs.d/site-lisp/org-init.el b/emacs/.emacs.d/site-lisp/org-init.el
index e912676..c097e29 100644
--- a/emacs/.emacs.d/site-lisp/org-init.el
+++ b/emacs/.emacs.d/site-lisp/org-init.el
@@ -134,7 +134,16 @@
       '(("MyEpisodes"
          "http://www.myepisodes.com/rss.php?feed=mylist&uid=Slash&pwdmd5=04028968e1f0b7ee678b748a4320ac17"
          "~/documents/org/tasks" "MyEpisodes"
-         :formatter oni:myepisodes-formatter)))
+         :formatter oni:myepisodes-formatter)
+        ("Lookat bookmarks"
+         "https://ryuslash.org/scuttle/api/posts_all.php?tag=lookat&order=asc&type=rss"
+         "~/documents/org/tasks" "Inbox"
+         :template "
+* TODO %h  :bookmark:
+  %U
+  %description
+  %a
+")))
 (setq org-fontify-done-headline t)
 (setq org-hide-emphasis-markers t)
 (setq org-outline-path-complete-in-steps t)
-- 
cgit v1.2.3-54-g00ecf