diff options
| -rw-r--r-- | emacs/.emacs.d/init.el | 8 | ||||
| -rw-r--r-- | emacs/.emacs.d/site-lisp/org-init.el | 11 |
2 files changed, 18 insertions, 1 deletions
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) |