ADD quarterly plan mapper

This commit is contained in:
Nathan Dwarshuis 2021-12-30 00:17:03 -05:00
parent b55fc844d3
commit c709a01f18
1 changed files with 5 additions and 0 deletions

View File

@ -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))))