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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
local/lib/org-x/org-x-dag.el
View File

@ -314,6 +314,10 @@ that file as it currently sits on disk.")
(alist-get nst) (alist-get nst)
(ht-get id)))) (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) (defun org-x-dag-id->hl-meta-prop (id prop)
(-> (org-x-dag-id->hl-meta id) (-> (org-x-dag-id->hl-meta id)
(plist-get prop))) (plist-get prop)))
@ -3846,10 +3850,12 @@ except it ignores inactive timestamps."
(defun org-x-dag-link-action-to-daily-metablock () (defun org-x-dag-link-action-to-daily-metablock ()
(interactive) (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) (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)))) (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))) (org-x-dag-this-headline-choose-id t legal "the daily metablock file" ids)))
;;; AGENDA VIEWS ;;; AGENDA VIEWS