From af05bd2106d7383eb58ca902713dc19677f21370 Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Sun, 7 Jan 2024 17:10:33 +0100
Subject: [PATCH] Collect custom Org key bindings in a custom hydra

---
 init.el             |  5 ++---
 site-lisp/db-org.el | 16 ++++++++++++++++
 2 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/init.el b/init.el
index 2684d60..211baf2 100644
--- a/init.el
+++ b/init.el
@@ -539,6 +539,7 @@
              db/org-capture-code-snippet
              hydra-org-clock/body
              hydra-org-jump/body
+             hydra-org-custom/body
              db/make-org-capture-frame
              db/org-onenote-open
              db/org-outlook-open
@@ -3032,9 +3033,7 @@ eventuelly be set to nil, however)."
   (bind-key "C-c n f" #'org-roam-node-find)
   (bind-key "C-c n i" #'org-roam-node-insert)
   (bind-key "C-c n c" #'org-roam-capture)
-  (bind-key "C-c o c" #'hydra-org-clock/body)
-  (bind-key "C-c o j" #'hydra-org-jump/body)
-  (bind-key "C-c o l" #'hydra-org-linking/body)
+  (bind-key "C-c o" #'hydra-org-custom/body)
   (bind-key "C-c t" #'hydra-toggle/body)
   (bind-key "C-h C-f" #'find-function)
   (bind-key "C-h C-k" #'find-function-on-key)
diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el
index f2d508e..727ed69 100644
--- a/site-lisp/db-org.el
+++ b/site-lisp/db-org.el
@@ -1050,6 +1050,22 @@ Current Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-tas
   ("s" (db/org-clock-goto-first-open-checkbox t)
        nil))
 
+(defhydra hydra-org-custom (:foreign-keys warn
+                            :exit t)
+  "
+Custom Org commands:
+_c_ → Clocking commands
+_j_ → Jumping commands
+_l_ → Linking commands
+_a_ → Open agenda
+_q_ → Quit this hydra"
+  ("c" hydra-org-clock/body nil)
+  ("j" hydra-org-jump/body nil)
+  ("l" hydra-org-linking/body nil)
+  ("a" db/org-agenda nil)
+  ("q" (message "Abort") nil)
+  ("C-g" (message "Abort") nil))
+
 
 ;;; Checklist Handling