ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org] Add planned pomodoro note

Browse source
This commit is contained in:
Tom Willemse 2023-01-24 10:08:11 -08:00
parent 6ef9c0d59b
commit d1ca3d7874
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; 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) ;; 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 ;; 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))))) (org-set-property property (number-to-string (1+ value)))))
(add-to-list 'org-log-note-headings (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-note () (defun oni-org-pomodoro-add-finished-note ()
(interactive) (interactive)
(org-add-log-setup 'pomodoro nil nil 'time)) (org-add-log-setup 'pomodoro-finished nil nil 'time))
(defun oni-org-pomodoro-add-planned-note ()
(interactive)
(org-add-log-setup 'pomodoro-planned nil nil 'time))
(defun oni-org-pomodoro-times () (defun oni-org-pomodoro-times ()
(let ((entry-beginning (org-entry-beginning-position)) (let ((entry-beginning (org-entry-beginning-position))