From 2e8d222987200b1037d49d5e75a8b3983272bb69 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 6 Apr 2022 19:53:51 -0400 Subject: [PATCH] ADD function to link daily metablocks to actions --- local/lib/org-x/org-x-dag.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index 22d103b..9def1e1 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -3844,6 +3844,14 @@ except it ignores inactive timestamps." ;; TODO this won't work on the toplevel section (org-x-dag-this-headline-choose-id t legal "an action file" ids))) +(defun org-x-dag-link-action-to-daily-metablock () + (interactive) + (let ((ids (->> (org-x-dag->action-files) + (org-x-dag-files->ids))) + (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 (defun org-x-dag-agenda-run-series (name files cmds)