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

Catch errors on user clock choice to ensure continuous clocking

Browse Source
This commit is contained in:
Daniel Borchmann 2024-09-15 13:09:12 +02:00
parent 38ed7dee62
commit dbda1928ce
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -454,7 +454,13 @@ user for the next task to clock into."
(org-with-point-at org-clock-default-task (org-with-point-at org-clock-default-task
(org-clock-in))) (org-clock-in)))
(t (t
(org-clock-in '(4)))))))) ;; We cannot determine what task to clock in next, so let the user choose a task to clock
;; in to; catch errors in case of typos and try again until a valid clock is running
(while (not (org-clocking-p))
(condition-case err
(org-clock-in '(4))
(user-error ; only handle user errors, to allow other errors to escape
(message "Error: %s" (error-message-string err)) nil)))))))))
(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'."