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

[Org] Rearrange code for manually inserting new clock lines

This commit is contained in:
Daniel - 2018-01-13 12:50:50 +01:00
parent b81a152d42
commit fab318d5dc
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -513,27 +513,6 @@ are equal return nil."
(org-use-tag-inheritance nil) (org-use-tag-inheritance nil)
(org-agenda-prefix-format '((tags . " "))))))) (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 ;; A Hydra for changing agenda appearance
;; http://oremacs.com/2016/04/04/hydra-doc-syntax/ ;; 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") (concat date " 23:61")
files)) 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) (defun db/org-add-clock-line-to-file (id start end)
"Add clock line with START and END time to task identified by ID." "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.") (warn "This function is untested, don’t use it for anything serious.")