From fab318d5dca6694fefbbd74e2019880ebc303e94 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 13 Jan 2018 12:50:50 +0100 Subject: [PATCH] [Org] Rearrange code for manually inserting new clock lines --- site-lisp/db-org.el | 42 +++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index a9ba952..507b0ea 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -513,27 +513,6 @@ are equal return nil." (org-use-tag-inheritance nil) (org-agenda-prefix-format '((tags . " "))))))) -(defun db/org-add-clocking-time (starting-time ending-time) - "Add \"CLOCK:\" line to the task under point in the current org-mode file." - (interactive - (list (starting-time (org-read-date 4 'totime nil - "Start:" (current-time) nil t)) - (ending-time (org-read-date 4 'totime nil - "End:" (current-time) nil t)))) - (if (not (eq major-mode 'org-mode)) - (user-error "Must be in org mode") - (save-mark-and-excursion - (org-clock-find-position nil) - (open-line 1) - (indent-according-to-mode) - (insert "CLOCK: ") - (org-insert-time-stamp starting-time t t) - (insert "--") - (org-insert-time-stamp ending-time t t) - (org-clock-update-time-maybe)))) - -(bind-key "C-c C-x C-a" #'db/org-add-clocking-time org-mode-map) - ;; A Hydra for changing agenda appearance ;; http://oremacs.com/2016/04/04/hydra-doc-syntax/ @@ -1090,6 +1069,27 @@ ending at 23:61. When not given, FILES defaults to (concat date " 23:61") files)) +(defun db/org-add-clocking-time (starting-time ending-time) + "Add \"CLOCK:\" line to the task under point in the current org-mode file." + (interactive + (list (starting-time (org-read-date 4 'totime nil + "Start:" (current-time) nil t)) + (ending-time (org-read-date 4 'totime nil + "End:" (current-time) nil t)))) + (if (not (eq major-mode 'org-mode)) + (user-error "Must be in org mode") + (save-mark-and-excursion + (org-clock-find-position nil) + (open-line 1) + (indent-according-to-mode) + (insert "CLOCK: ") + (org-insert-time-stamp starting-time t t) + (insert "--") + (org-insert-time-stamp ending-time t t) + (org-clock-update-time-maybe)))) + +(bind-key "C-c C-x C-a" #'db/org-add-clocking-time org-mode-map) + (defun db/org-add-clock-line-to-file (id start end) "Add clock line with START and END time to task identified by ID." (warn "This function is untested, don’t use it for anything serious.")