Jämför commits

...

4 Incheckningar

Upphovsman SHA1 Meddelande Datum
Daniel - bfcca623dc
Make checkdoc happy about db-hydras package 2021-03-20 15:48:00 +01:00
Daniel - 78b202aed7
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!
2021-03-20 15:45:49 +01:00
Daniel - 77920dd9a2
Move cursor forward when inserting link to current clock 2021-03-20 15:45:15 +01:00
Daniel - afb06fca59
Free key binding for f12
I am not using it anymore, so let's make sure it stays that way and we can use
that key for something else in the future.
2021-03-20 15:41:31 +01:00
3 ändrade filer med 17 tillägg och 8 borttagningar

Visa fil

@ -175,15 +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 "<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>" #'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)
@ -733,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"

Visa fil

@ -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

Visa fil

@ -729,9 +729,19 @@ 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))))
(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))
;;; End