From c709a01f18aff637e35f2d46c66c39a7fa2e47a8 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 30 Dec 2021 00:17:03 -0500 Subject: [PATCH] ADD quarterly plan mapper --- local/lib/org-x/org-x.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el index 8128dc0..409fb57 100644 --- a/local/lib/org-x/org-x.el +++ b/local/lib/org-x/org-x.el @@ -1284,6 +1284,11 @@ Assumes point is on a valid headline or org mode file." (let ((end (1+ (org-ml-get-property :end (-last-item sts))))) (org-ml-insert end (build-yr-headline quarter year children)))))))) +(defmacro org-x-map-quarterly-plan (quarter year form) + (declare (indent 2)) + (let ((it (org-x-get-quarterly-plan quarter year))) + (org-x-set-quarterly-plan quarter year (,form)))) + (defun org-x-get-current-quarterly-plan () (-let* (((_ _ _ _ month year) (decode-time (current-time))) (quarter (1+ (/ (1- month) 3))))