ENH filter survival goals from daily metablock list
This commit is contained in:
parent
2e8d222987
commit
b9b5106801
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue