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
#+BEGIN_SRC emacs-lisp
(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)
new))
@ -2376,6 +2376,9 @@ I use tags for agenda filtering (primarily for GTD contexts, see below). Each ta
(,org-x-tag-phone . ?p)
;; misc tags
;; deep work (TM)
(,org-x-tag-deep . ?d)
;; denotes reference information
(,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")
: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
("L" "org-protocol link" entry (file ,capfile)
,(concat "* %^{Title} :%(eval org-x-tag-note):\n"

View File

@ -104,6 +104,10 @@
(org-x-prepend-char org-x-tag-resource-prefix "phone")
"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
(org-x-prepend-char org-x-tag-misc-prefix "note")
"Tag denoting a note.")