dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add descriptions to clocking hydra

This commit is contained in:
dbo 2019-12-20 15:16:53 +01:00
parent a9695b9d1a
commit e63356ad06
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
site-lisp/db-org.el
View File

@ -395,15 +395,15 @@ forces clocking in of the default task."
(defhydra hydra-org-clock (:color blue)
"
Current Task: %s(db/org-clock-current-task); "
("w" (db/org-clock-in-work-task))
("h" (db/org-clock-in-home-task))
("b" (db/org-clock-in-break-task))
("w" (db/org-clock-in-work-task) "work")
("h" (db/org-clock-in-home-task) "home")
("b" (db/org-clock-in-break-task) "break")
("i" (lambda ()
(interactive)
(org-clock-in '(4))))
("a" counsel-org-goto-all)
("o" org-clock-out)
("l" db/org-clock-in-last-task)
(org-clock-in '(4))) "interactive")
("a" counsel-org-goto-all "goto")
("o" org-clock-out "clock out")
("l" db/org-clock-in-last-task "last")
("d" (lambda ()
(interactive)
(when (org-clock-is-active)
@ -411,7 +411,8 @@ Current Task: %s(db/org-clock-current-task); "
(org-clock-goto)
(let ((org-inhibit-logging 'note))
(org-todo 'done)
(org-save-all-org-buffers)))))))
(org-save-all-org-buffers)))))
"default"))
;;; Babel