From 44b78dbef106782e3d43df8c27200c872e66d19e Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Wed, 1 Nov 2023 21:05:16 +0100 Subject: [PATCH] Make main Org hydra a bit more consistent and self documenting MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit In particular, use “j” instead of “c” for jumping to the current clock, like the standard Org bindings use it. --- site-lisp/db-org.el | 23 +++++++---------------- 1 file changed, 7 insertions(+), 16 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 9e14d03..a321dc1 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -828,27 +828,18 @@ 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) "work") - ("h" (db/org-clock-in-home-task) "home") - ("b" (db/org-clock-in-break-task) "break") + ("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") ("s" (lambda () (interactive) (org-clock-in '(4))) - "select") - ("c" (db/org-clock-goto-first-open-checkbox) - "go to current") + "select clock") + ("j" (db/org-clock-goto-first-open-checkbox) + "jump to current") ("a" counsel-org-goto-all "go to any") ("o" org-clock-out "clock out") - ("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")) + ("l" db/org-clock-in-last-task "clock in last")) ;;; Babel