Introduce separate hydra for Org jump commands
`hydra-org-clock` thus only hosts keybindings for clock-related commands, while the new `hydra-org-jump` is for jumping to Org items in various ways. Feels cleaner to me this way.
This commit is contained in:
parent
3e09ee57dc
commit
b7d190c513
4
init.el
4
init.el
|
@ -538,6 +538,7 @@
|
||||||
db/org-timestamp-difference
|
db/org-timestamp-difference
|
||||||
db/org-capture-code-snippet
|
db/org-capture-code-snippet
|
||||||
hydra-org-clock/body
|
hydra-org-clock/body
|
||||||
|
hydra-org-jump/body
|
||||||
db/make-org-capture-frame
|
db/make-org-capture-frame
|
||||||
db/org-onenote-open
|
db/org-onenote-open
|
||||||
db/org-outlook-open
|
db/org-outlook-open
|
||||||
|
@ -3031,7 +3032,8 @@ eventuelly be set to nil, however)."
|
||||||
(bind-key "C-c n f" #'org-roam-node-find)
|
(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 i" #'org-roam-node-insert)
|
||||||
(bind-key "C-c n c" #'org-roam-capture)
|
(bind-key "C-c n c" #'org-roam-capture)
|
||||||
(bind-key "C-c o" #'hydra-org-clock/body)
|
(bind-key "C-c o c" #'hydra-org-clock/body)
|
||||||
|
(bind-key "C-c o j" #'hydra-org-jump/body)
|
||||||
(bind-key "C-c t" #'hydra-toggle/body)
|
(bind-key "C-c t" #'hydra-toggle/body)
|
||||||
(bind-key "C-h C-f" #'find-function)
|
(bind-key "C-h C-f" #'find-function)
|
||||||
(bind-key "C-h C-k" #'find-function-on-key)
|
(bind-key "C-h C-k" #'find-function-on-key)
|
||||||
|
|
|
@ -851,7 +851,7 @@ default task, though."
|
||||||
Current Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-task \"\"));
|
Current Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-task \"\"));
|
||||||
- Clock in to [_w_]ork, [_h_]ome, [_b_]reak default task
|
- Clock in to [_w_]ork, [_h_]ome, [_b_]reak default task
|
||||||
- Clock in to [_l_]ast, or [_s_]elect task to clock in to
|
- Clock in to [_l_]ast, or [_s_]elect task to clock in to
|
||||||
- [_j_]ump to current clock or to [_a_]ny item
|
- [_j_]ump to current clock
|
||||||
- Clock [_o_]ut
|
- Clock [_o_]ut
|
||||||
"
|
"
|
||||||
("w" (db/org-clock-in-work-task) nil)
|
("w" (db/org-clock-in-work-task) nil)
|
||||||
|
@ -863,7 +863,6 @@ Current Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-tas
|
||||||
nil)
|
nil)
|
||||||
("j" (db/org-clock-goto-first-open-checkbox)
|
("j" (db/org-clock-goto-first-open-checkbox)
|
||||||
nil)
|
nil)
|
||||||
("a" counsel-org-goto-all nil)
|
|
||||||
("o" org-clock-out nil)
|
("o" org-clock-out nil)
|
||||||
("l" db/org-clock-in-last-task nil))
|
("l" db/org-clock-in-last-task nil))
|
||||||
|
|
||||||
|
@ -1037,6 +1036,20 @@ The password is assumed to be stored at the PASSWORD property."
|
||||||
heading
|
heading
|
||||||
org-password-manager-default-password-wait-time))))
|
org-password-manager-default-password-wait-time))))
|
||||||
|
|
||||||
|
(defhydra hydra-org-jump (:color blue)
|
||||||
|
;; Quote %, as otherwise they would be misinterpreted as format characters
|
||||||
|
"
|
||||||
|
Current Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-task \"\"));
|
||||||
|
- Jump to [_c_]urrent clock
|
||||||
|
- Jump to [_a_]ny item
|
||||||
|
- Jump to item [_s_]elected from clock history
|
||||||
|
"
|
||||||
|
("c" (db/org-clock-goto-first-open-checkbox nil)
|
||||||
|
nil)
|
||||||
|
("a" counsel-org-goto-all nil)
|
||||||
|
("s" (db/org-clock-goto-first-open-checkbox t)
|
||||||
|
nil))
|
||||||
|
|
||||||
|
|
||||||
;;; Checklist Handling
|
;;; Checklist Handling
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user