ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org] Fix ‘oni-org-pomodoro-times’ for when no logbook exists

Browse source
This commit is contained in:
Tom Willemse 2023-03-20 22:57:16 -07:00
parent af7ff9343a
commit aec7aa6267
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
oni-org/oni-org.el
View file

@ -1021,7 +1021,7 @@ placed above TARGET. Otherwise it will be placed below it."
(save-excursion (save-excursion
(goto-char entry-beginning) (goto-char entry-beginning)
(save-match-data (save-match-data
(re-search-forward org-logbook-drawer-re entry-end) (when (re-search-forward org-logbook-drawer-re entry-end nil)
(let ((logbook-beginning (match-beginning 0)) (let ((logbook-beginning (match-beginning 0))
(logbook-end (match-end 0))) (logbook-end (match-end 0)))
(goto-char logbook-beginning) (goto-char logbook-beginning)
@ -1029,7 +1029,7 @@ placed above TARGET. Otherwise it will be placed below it."
(rx "Finished a pomodoro on " (rx "Finished a pomodoro on "
(group "[" (one-or-more (not "]")) "]")) (group "[" (one-or-more (not "]")) "]"))
logbook-end t) logbook-end t)
(push (org-parse-time-string (match-string 1)) results))))) (push (org-parse-time-string (match-string 1)) results))))))
results)) results))
(defun oni-org-pomodoro-times-for-date (date) (defun oni-org-pomodoro-times-for-date (date)