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