ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added org clock range function

This commit is contained in:
ndwarshuis 2019-01-20 17:12:12 -05:00
parent 3bafc3504c
commit 466a439353
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
conf.org
View File

@ -929,6 +929,28 @@ and reverts all todo keywords to TODO."
(org-back-to-heading t) (org-back-to-heading t)
(delete-region (point) (+ 1 (save-excursion (org-end-of-subtree))))) (delete-region (point) (+ 1 (save-excursion (org-end-of-subtree)))))
(defun nd/org-clock-range ()
"Add a complete clock entry to the current heading.
Does not touch the running clock."
(interactive)
(let* ((t1 (-> (org-read-date t t) float-time))
(t2 (-> (org-read-date t t nil nil t1) float-time))
(diff (round (- t2 t1))))
(if (< diff 0) (message "Second timestamp earlier than first!")
(let* ((h (-> diff (/ 3600) floor))
(m (-> diff (- (* h 3600)) (/ 60) floor))
(new-clock
(concat
org-clock-string " "
(format-time-string (org-time-stamp-format t t) t1) "--"
(format-time-string (org-time-stamp-format t t) t2)" => "
(format "%2d:%02d" h m))))
(save-excursion
(org-clock-find-position nil)
(insert-before-markers "\n")
(backward-char 1)
(org-indent-line)
(insert new-clock))))))
#+END_SRC #+END_SRC
*** org agenda *** org agenda
These are executed directly from agenda views and affect their source org buffers. The trick is that all of them must somehow go back to the heading to which they allude, execute, then update the agenda view with whatever changes have been made. These are executed directly from agenda views and affect their source org buffers. The trick is that all of them must somehow go back to the heading to which they allude, execute, then update the agenda view with whatever changes have been made.