diff options
| -rw-r--r-- | oni-org/oni-org.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index 3ce98b4..5a65b26 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2022.1213.070739 +;; Version: 2023.0108.154251 ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti form-feed) ;; This program is free software; you can redistribute it and/or modify @@ -999,11 +999,17 @@ placed above TARGET. Otherwise it will be placed below it." (org-set-property property (number-to-string (1+ value))))) (add-to-list 'org-log-note-headings - (cons 'pomodoro "Finished a pomodoro on %t")) + (cons 'pomodoro-finished "Finished a pomodoro on %t")) +(add-to-list 'org-log-note-headings + (cons 'pomodoro-planned "Planned to complete pomodoros on %d")) + +(defun oni-org-pomodoro-add-finished-note () + (interactive) + (org-add-log-setup 'pomodoro-finished nil nil 'time)) -(defun oni-org-pomodoro-add-note () +(defun oni-org-pomodoro-add-planned-note () (interactive) - (org-add-log-setup 'pomodoro nil nil 'time)) + (org-add-log-setup 'pomodoro-planned nil nil 'time)) (defun oni-org-pomodoro-times () (let ((entry-beginning (org-entry-beginning-position)) |