Collect custom Org key bindings in a custom hydra

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)

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