From 78b202aed790a29f32854a99b5ba9d6b7ea81168 Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Sat, 20 Mar 2021 15:45:49 +0100
Subject: [PATCH] Introduce hydra for managing links between Org mode items

It's easier to use and easier to keep track of what is available.  It also saves
key precious bindings!
---
 init.el             |  6 +++---
 site-lisp/db-org.el | 10 ++++++++++
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/init.el b/init.el
index 40d205b..85bf959 100644
--- a/init.el
+++ b/init.el
@@ -175,14 +175,13 @@
   (bind-key "<XF86Back>" #'winner-undo)
   (bind-key "<XF86Forward>" #'winner-redo)
   (bind-key "<f10>" #'magit-status)
-  (bind-key "<f11>" #'db/org-find-links-to-current-item)
   (bind-key "<f1>" #'db/run-or-hide-eshell)
   (bind-key "<f2>" #'hydra-feature-shortcuts/body)
   (bind-key "<f5>" (if (executable-find "ag") #'counsel-ag #'rgrep))
   (bind-key "<f6>" #'hydra-zoom/body)
   (bind-key "<f7>" #'dictcc)
   (bind-key "<f8>" #'bm-toggle)
-  (bind-key "<f9>" #'db/org-add-link-to-other-item)
+  (bind-key "<f9>" #'hydra-org-linking/body)
   (bind-key "<C-f8>" #'bm-next)
   (bind-key "<C-S-f8>" #'bm-previous)
   (bind-key "C-," #'mc/skip-to-previous-like-this)
@@ -732,7 +731,8 @@
              db/org-copy-template-for-periodic-task
              db/org-find-links-to-current-item
              db/org-add-link-to-other-item
-             db/org-add-link-to-current-clock))
+             db/org-add-link-to-current-clock
+             hydra-org-linking/body))
 
 (use-package org
   :pin "gnu"
diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el
index 3804d9b..7e3c48b 100644
--- a/site-lisp/db-org.el
+++ b/site-lisp/db-org.el
@@ -733,6 +733,16 @@ in an Org Mode buffer or when the clock is not active."
   (pcase-let ((`(,location ,description) (cl-first org-stored-links)))
     (org-insert-link nil location description)))
 
+(defhydra hydra-org-linking (:color blue :hint none)
+  "\nLinking between Org mode items.
+ _c_urrent clock              _o_ther item (current buffer or default Org file)
+ _b_acklinks to current item  _O_ther item (all text files)
+"
+  ("c" (db/org-add-link-to-current-clock))
+  ("o" (db/org-add-link-to-other-item nil))
+  ("O" (db/org-add-link-to-other-item t))
+  ("b" db/org-find-links-to-current-item))
+
 
 ;;; End