ENH filter survival goals from daily metablock list

This commit is contained in:
Nathan Dwarshuis 2022-04-06 20:12:49 -04:00
parent 2e8d222987
commit b9b5106801
1 changed files with 8 additions and 2 deletions

View File

@ -314,6 +314,10 @@ that file as it currently sits on disk.")
(alist-get nst)
(ht-get id))))
(defun org-x-dag-id->ns-key (key id)
(-when-let (n (org-x-dag-id->ns id))
(plist-get (either-from-right n nil) key)))
(defun org-x-dag-id->hl-meta-prop (id prop)
(-> (org-x-dag-id->hl-meta id)
(plist-get prop)))
@ -3846,10 +3850,12 @@ except it ignores inactive timestamps."
(defun org-x-dag-link-action-to-daily-metablock ()
(interactive)
;; TODO there are lots of ids here that I likely don't need
;; TODO show the path
(let ((ids (->> (org-x-dag->action-files)
(org-x-dag-files->ids)))
(org-x-dag-files->ids)
(--remove (org-x-dag-id->ns-key :survivalp it))))
(legal (list (org-x-dag->planning-file :daily))))
;; TODO this won't work on the toplevel section
(org-x-dag-this-headline-choose-id t legal "the daily metablock file" ids)))
;;; AGENDA VIEWS