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

Resume clock at interrupted task when available

Browse Source
This commit is contained in:
Daniel Borchmann 2023-12-06 16:31:05 +01:00
parent 479f9dbaf7
commit 416ba934f9
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -426,17 +426,22 @@ should not be clocked."
(let ((parent-task (db/find-parent-task))) (let ((parent-task (db/find-parent-task)))
(save-mark-and-excursion (save-mark-and-excursion
(cond (cond
(parent-task ((and (markerp org-clock-interrupted-task)
;; found parent task (marker-buffer org-clock-interrupted-task))
(org-with-point-at parent-task ;; interrupted task is set
(org-clock-in))) (org-with-point-at org-clock-interrupted-task
((and (markerp org-clock-default-task) (org-clock-in)))
(marker-buffer org-clock-default-task)) (parent-task
;; default task is set ;; found parent task
(org-with-point-at org-clock-default-task (org-with-point-at parent-task
(org-clock-in))) (org-clock-in)))
(t ((and (markerp org-clock-default-task)
(org-clock-in '(4)))))))) (marker-buffer org-clock-default-task))
;; default task is set
(org-with-point-at org-clock-default-task
(org-clock-in)))
(t
(org-clock-in '(4))))))))
(defun db/save-current-org-task-to-file () (defun db/save-current-org-task-to-file ()
"Format currently clocked task and write it to`db/org-clock-current-task-file'." "Format currently clocked task and write it to`db/org-clock-current-task-file'."