init.el

@@ -945,7 +945,7 @@
               ;; here is that projects that have an explicit SCHEDULED entry
               ;; should not be considered before this date is due.
               org-stuck-projects
-              '("+TODO=\"\"-DATE-HOLD-NOTE-WAIT-NOP-TOPIC-SOMEWHEN-TEMPLATE-SCHEDULED>=\"<+0d>\""
+              '("+TODO=\"\"-DATE-HOLD-NOTE-TAGS={NOP\\|TOPIC\\|SOMEWHEN\\|TEMPLATE}-SCHEDULED>=\"<+0d>\""
                 ("CONT" "TODO" "READ" "WAIT" "GOTO" "DELG" "ATTN")
                 ()
                 "")
@@ -2036,7 +2036,7 @@ point to the beginning of buffer first."
              helm-select-action
              helm-make-source)
   :defines (helm-source-bookmarks)      ; via helm-bookmarks.el
-  :init (setq helm-command-prefix-key "C-c h" ; see `db/run-init' for explicit binding
+  :init (setq helm-command-prefix-key "C-c h"
               helm-input-idle-delay 0.0
               helm-buffers-fuzzy-matching t
               helm-autoresize-min-height 20
@@ -2998,8 +2998,7 @@ eventuelly be set to nil, however)."
     (bind-key "C-S-s" #'counsel-grep-or-swiper))
 
   (when (package-installed-p 'helm)
-    (bind-key "M-y" #'helm-show-kill-ring)
-    (bind-key helm-command-prefix-key #'helm-command-prefix))
+    (bind-key "M-y" #'helm-show-kill-ring))
 
   (when (package-installed-p 'crux)
     (bind-key [remap kill-whole-line] #'crux-kill-whole-line)

site-lisp/db-org.el

@@ -828,18 +828,27 @@ forces clocking in of the default task."
 (defhydra hydra-org-clock (:color blue)
   ;; Quote %, as otherwise they would be misinterpreted as format characters
   "\nCurrent Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-task \"\")); "
-  ("w" (db/org-clock-in-work-task) "clock in work")
-  ("h" (db/org-clock-in-home-task) "clock in home")
-  ("b" (db/org-clock-in-break-task) "clock in break")
+  ("w" (db/org-clock-in-work-task) "work")
+  ("h" (db/org-clock-in-home-task) "home")
+  ("b" (db/org-clock-in-break-task) "break")
   ("s" (lambda ()
          (interactive)
          (org-clock-in '(4)))
-       "select clock")
-  ("j" (db/org-clock-goto-first-open-checkbox)
-       "jump to current")
+       "select")
+  ("c" (db/org-clock-goto-first-open-checkbox)
+       "go to current")
   ("a" counsel-org-goto-all "go to any")
   ("o" org-clock-out "clock out")
-  ("l" db/org-clock-in-last-task "clock in last"))
+  ("l" db/org-clock-in-last-task "last")
+  ("d" (lambda ()
+         (interactive)
+         (when (org-clock-is-active)
+           (save-window-excursion
+             (org-clock-goto)
+             (let ((org-inhibit-logging 'note))
+               (org-todo 'done)
+               (org-save-all-org-buffers)))))
+       "default"))
 
 
 ;;; Babel