diff --git a/conf.el b/conf.el index 995af7c..4a1d3d5 100644 --- a/conf.el +++ b/conf.el @@ -290,7 +290,8 @@ event of an error or nonlocal exit." (delight 'org-indent-mode) (setq org-directory "~/Org") (run-at-time "00:59" 3600 'org-save-all-org-buffers) -(setq org-modules '(org-habit)) +(setq org-modules '(org-habit org-protocol)) +(require 'org-protocol) (setq org-log-into-drawer "LOGBOOK") (setq org-log-done t) @@ -462,11 +463,28 @@ event of an error or nonlocal exit." (let ((capfile "~/Org/capture.org")) (setq org-capture-templates - `(("t" "todo" entry (file ,capfile) "* TODO %?\ndeliverable: \n%U\n") - ("n" "note" entry (file ,capfile) "* %? :\\%note:\n%U\n" ) - ("a" "appointment" entry (file ,capfile) "* %?\n%U\n%^t\n" ) - ("m" "multi-day" entry (file ,capfile) "* TODO %?\n%U\n%^t--%^t\n" ) - ("d" "deadline" entry (file ,capfile) "* TODO %?\nDEADLINE: %^t\ndeliverable:\n%U\n" )))) + `(("t" "todo" entry (file ,capfile) + "* TODO %?\ndeliverable: \n%U\n") + + ("n" "note" entry (file ,capfile) + "* %? :\\%note:\n%U\n") + + ("a" "appointment" entry (file ,capfile) + "* %?\n%U\n%^t\n") + + ("m" "multi-day" entry (file ,capfile) + "* TODO %?\n%U\n%^t--%^t\n") + + ("d" "deadline" entry (file ,capfile) + "* TODO %?\nDEADLINE: %^t\ndeliverable:\n%U\n") + + ("p" "org-protocol" entry (file ,capfile) + "* %^{Title}\n%u\n#+BEGIN_QUOTE\n%i\n#+END_QUOTE" + :immediate-finish t) + + ("L" "org-protocol link" entry (file ,capfile) + "* %^{Title}\n[[%:link][%:description]]\n%U" + :immediate-finish t)))) (setq org-refile-targets (quote ((nil :maxlevel . 9) ("~/Org/reference/idea.org" :maxlevel . 9) diff --git a/conf.org b/conf.org index 2502e2a..88a72af 100644 --- a/conf.org +++ b/conf.org @@ -434,7 +434,8 @@ event of an error or nonlocal exit." (delight 'org-indent-mode) (setq org-directory "~/Org") (run-at-time "00:59" 3600 'org-save-all-org-buffers) -(setq org-modules '(org-habit)) +(setq org-modules '(org-habit org-protocol)) +(require 'org-protocol) #+END_SRC ** logging #+BEGIN_SRC emacs-lisp @@ -662,11 +663,28 @@ There are several types of tags I use: #+BEGIN_SRC emacs-lisp (let ((capfile "~/Org/capture.org")) (setq org-capture-templates - `(("t" "todo" entry (file ,capfile) "* TODO %?\ndeliverable: \n%U\n") - ("n" "note" entry (file ,capfile) "* %? :\\%note:\n%U\n" ) - ("a" "appointment" entry (file ,capfile) "* %?\n%U\n%^t\n" ) - ("m" "multi-day" entry (file ,capfile) "* TODO %?\n%U\n%^t--%^t\n" ) - ("d" "deadline" entry (file ,capfile) "* TODO %?\nDEADLINE: %^t\ndeliverable:\n%U\n" )))) + `(("t" "todo" entry (file ,capfile) + "* TODO %?\ndeliverable: \n%U\n") + + ("n" "note" entry (file ,capfile) + "* %? :\\%note:\n%U\n") + + ("a" "appointment" entry (file ,capfile) + "* %?\n%U\n%^t\n") + + ("m" "multi-day" entry (file ,capfile) + "* TODO %?\n%U\n%^t--%^t\n") + + ("d" "deadline" entry (file ,capfile) + "* TODO %?\nDEADLINE: %^t\ndeliverable:\n%U\n") + + ("p" "org-protocol" entry (file ,capfile) + "* %^{Title}\n%u\n#+BEGIN_QUOTE\n%i\n#+END_QUOTE" + :immediate-finish t) + + ("L" "org-protocol link" entry (file ,capfile) + "* %^{Title}\n[[%:link][%:description]]\n%U" + :immediate-finish t)))) #+END_SRC ** refile *** targets