ADD deep work tag and metablock capture template

This commit is contained in:
Nathan Dwarshuis 2021-12-02 23:42:34 -05:00
parent 2bd8363fbd
commit e57cd8308e
2 changed files with 14 additions and 1 deletions

View File

@ -2092,7 +2092,7 @@ By default, the tag selection window obliterates all but the current window...ho
Capture should show up in the bottom of any currently active buffer Capture should show up in the bottom of any currently active buffer
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun nd/org-capture-position (buffer alist) (defun nd/org-capture-position (buffer alist)
(let ((new (split-window (get-buffer-window) -19 'below))) (let ((new (split-window (get-buffer-window) -20 'below)))
(set-window-buffer new buffer) (set-window-buffer new buffer)
new)) new))
@ -2376,6 +2376,9 @@ I use tags for agenda filtering (primarily for GTD contexts, see below). Each ta
(,org-x-tag-phone . ?p) (,org-x-tag-phone . ?p)
;; misc tags ;; misc tags
;; deep work (TM)
(,org-x-tag-deep . ?d)
;; denotes reference information ;; denotes reference information
(,org-x-tag-note . ?n) (,org-x-tag-note . ?n)
@ -2528,6 +2531,12 @@ NOTE: Capitalized entries store a link to the capture along with writing to the
"#+END_QUOTE") "#+END_QUOTE")
:immediate-finish t) :immediate-finish t)
("M" "metablock" entry (file+olp+datetree "~/Org/metablocks.org")
,(concat "* %^{Metablock Title}\n"
"%^{Effort}p"
"%^t\n"
"%?"))
;; or capturing links with web browser ;; or capturing links with web browser
("L" "org-protocol link" entry (file ,capfile) ("L" "org-protocol link" entry (file ,capfile)
,(concat "* %^{Title} :%(eval org-x-tag-note):\n" ,(concat "* %^{Title} :%(eval org-x-tag-note):\n"

View File

@ -104,6 +104,10 @@
(org-x-prepend-char org-x-tag-resource-prefix "phone") (org-x-prepend-char org-x-tag-resource-prefix "phone")
"Tag denoting a phone resource.") "Tag denoting a phone resource.")
(defconst org-x-tag-deep
(org-x-prepend-char org-x-tag-misc-prefix "deep")
"Tag denoting deep work.")
(defconst org-x-tag-note (defconst org-x-tag-note
(org-x-prepend-char org-x-tag-misc-prefix "note") (org-x-prepend-char org-x-tag-misc-prefix "note")
"Tag denoting a note.") "Tag denoting a note.")