[Org] Move hydra to ‘db-org’

This commit is contained in:
Daniel - 2017-08-06 13:56:14 +02:00
parent 23fe89a421
commit 4b55df875e
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
2 changed files with 34 additions and 31 deletions

32
init.el
View File

@ -455,37 +455,7 @@
;; opening them manually
(mapc #'find-file-noselect org-agenda-files)
(org-clock-persistence-insinuate)
(require 'hydra)
(defhydra hydra-org-clock (:color blue)
"
Current Task: %`org-clock-current-task; "
("w" (lambda ()
(interactive)
(clock-in-task-by-id org-working-task-id)))
("h" (lambda ()
(interactive)
(clock-in-task-by-id org-home-task-id)))
("b" (lambda ()
(interactive)
(clock-in-task-by-id org-break-task-id)))
("i" (lambda ()
(interactive)
(org-clock-in '(4))))
("a" counsel-org-goto-all)
("o" org-clock-out)
("l" db/org-clock-in-last-task)
("p" db/play-playlist)
("d" (lambda ()
(interactive)
(when (org-clock-is-active)
(save-window-excursion
(org-clock-goto)
(let ((org-inhibit-logging 'note))
(org-todo 'done)
(org-save-all-org-buffers)))))))))
(org-clock-persistence-insinuate)))
(use-package org-ref
:config (progn

View File

@ -857,6 +857,39 @@ Resulting org mode file will have CATEGORY and FILETAGS set."
(require 'ox-md)))
;;; Hydra
(require 'hydra)
(defhydra hydra-org-clock (:color blue)
"
Current Task: %`org-clock-current-task; "
("w" (lambda ()
(interactive)
(clock-in-task-by-id org-working-task-id)))
("h" (lambda ()
(interactive)
(clock-in-task-by-id org-home-task-id)))
("b" (lambda ()
(interactive)
(clock-in-task-by-id org-break-task-id)))
("i" (lambda ()
(interactive)
(org-clock-in '(4))))
("a" counsel-org-goto-all)
("o" org-clock-out)
("l" db/org-clock-in-last-task)
("p" db/play-playlist)
("d" (lambda ()
(interactive)
(when (org-clock-is-active)
(save-window-excursion
(org-clock-goto)
(let ((org-inhibit-logging 'note))
(org-todo 'done)
(org-save-all-org-buffers)))))))
;;; End