From e57cd8308e634963f46047e09c64155416abe3e7 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 2 Dec 2021 23:42:34 -0500 Subject: [PATCH] ADD deep work tag and metablock capture template --- etc/conf.org | 11 ++++++++++- local/lib/org-x/org-x.el | 4 ++++ 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/etc/conf.org b/etc/conf.org index ae73355..79ffb4f 100644 --- a/etc/conf.org +++ b/etc/conf.org @@ -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" diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el index 58cb06a..f151cda 100644 --- a/local/lib/org-x/org-x.el +++ b/local/lib/org-x/org-x.el @@ -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.")