From d1ca3d7874272eabddfd2b04331399af9459e073 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 24 Jan 2023 10:08:11 -0800 Subject: [PATCH] [oni-org] Add planned pomodoro note --- oni-org/oni-org.el | 14 ++++++++++---- 1 file 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 ;; 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-note () +(defun oni-org-pomodoro-add-finished-note () (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 () (let ((entry-beginning (org-entry-beginning-position))