init.el

@@ -175,13 +175,15 @@
   (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 "<f12>" #'db/helm-shortcuts)
   (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>" #'hydra-org-linking/body)
+  (bind-key "<f9>" #'db/org-add-link-to-other-item)
   (bind-key "<C-f8>" #'bm-next)
   (bind-key "<C-S-f8>" #'bm-previous)
   (bind-key "C-," #'mc/skip-to-previous-like-this)
@@ -731,8 +733,7 @@
              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
-             hydra-org-linking/body))
+             db/org-add-link-to-current-clock))
 
 (use-package org
   :pin "gnu"

site-lisp/db-hydras.el

@@ -80,4 +80,4 @@ the hydra will be generated.  See documentation of
 (db/define-feature-shortcuts-hydra)
 
 (provide 'db-hydras)
-;;; db-hydras.el ends here
+;; db-hydras.el ends here

site-lisp/db-org.el

@@ -729,19 +729,9 @@ in an Org Mode buffer or when the clock is not active."
     (user-error "No clocked-in task, aborting"))
   (save-mark-and-excursion
     (org-with-point-at org-clock-marker
-      (org-store-link nil t)))
-  (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))
+      (org-store-link nil t))
+    (pcase-let ((`(,location ,description) (cl-first org-stored-links)))
+      (org-insert-link nil location description))))
 
 
 ;;; End