ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH properly groups/return agenda items

This commit is contained in:
Nathan Dwarshuis 2021-10-10 16:12:48 -04:00
parent 17fabacf58
commit 7d8c6cca84
1 changed files with 26 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
local/lib/org-x/org-x.el
View File

@ -1235,7 +1235,7 @@ ARG and INTERACTIVE are passed to `org-store-link'."
;; meeting agenda ;; meeting agenda
(defun org-x--get-meeting-from-buffer () (defun org-x--get-meetings-from-buffer ()
"Return meeting agenda items from the current buffer." "Return meeting agenda items from the current buffer."
(cl-labels (cl-labels
((has-meeting-tag ((has-meeting-tag
@ -1259,11 +1259,12 @@ ARG and INTERACTIVE are passed to `org-store-link'."
(->> (org-ml-parse-headlines 'all) (->> (org-ml-parse-headlines 'all)
(-filter #'is-meeting)))) (-filter #'is-meeting))))
(defun org-x--make-agenda-metaitem (is-closed ts item) (defun org-x--make-agenda-metaitem (headline is-closed ts item)
(list :meeting-closed-p is-closed (list :meeting-closed-p is-closed
:meeting-time ts :meeting-timestamp ts
:meeting-node headline
:item-desc (org-ml-item-get-paragraph item) :item-desc (org-ml-item-get-paragraph item)
:item-state (eq 'on (org-ml-get-property :checkbox item)))) :item-closed (eq 'on (org-ml-get-property :checkbox item))))
(defun org-x--meeting-get-agenda-items (headline) (defun org-x--meeting-get-agenda-items (headline)
"Return agenda items for HEADLINE." "Return agenda items for HEADLINE."
@ -1280,7 +1281,7 @@ ARG and INTERACTIVE are passed to `org-store-link'."
(org-ml-time-to-unixtime)))) (org-ml-time-to-unixtime))))
(when (org-ml-is-type 'plain-list first) (when (org-ml-is-type 'plain-list first)
(->> (org-ml-get-children first) (->> (org-ml-get-children first)
(--map (org-x--make-agenda-metaitem is-closed ts it)))))) (--map (org-x--make-agenda-metaitem headline is-closed ts it))))))
(defun org-x--metaitem-get-link-target (mi) (defun org-x--metaitem-get-link-target (mi)
(-let (((&plist :item-desc) mi)) (-let (((&plist :item-desc) mi))
@ -1291,6 +1292,26 @@ ARG and INTERACTIVE are passed to `org-store-link'."
(->> (-group-by #'org-x--metaitem-get-link-target mis) (->> (-group-by #'org-x--metaitem-get-link-target mis)
(--remove (not (car it))))) (--remove (not (car it)))))
(defun org-x--metaitem-is-open (mi)
(not (plist-get mi :item-closed)))
(defun org-x--metaitems-are-unresolved (grouped-mis)
(-let* ((now (float-time))
((target . mis) grouped-mis)
((past future) (--separate
(< (plist-get it :meeting-timestamp) now)
mis)))
(-when-let (most-recent (-last-item past))
(and (org-x--metaitem-is-open most-recent)
(-none? #'org-x--metaitem-is-open future)
(list :item-target target
:item-headline (plist-get most-recent :meeting-node))))))
(defun org-x--metaitems-get-unresolved-link-targets (mis)
(->> (org-x--group-agenda-metaitems-by-link-target mis)
(-map #'org-x--metaitems-are-unresolved)
(-non-nil)))
;; timestamp shifting ;; timestamp shifting
(defun org-x--read-number-from-minibuffer (prompt &optional return-str) (defun org-x--read-number-from-minibuffer (prompt &optional return-str)