From 6dee558ef916e0bf1804492978e1d40e2e4888f0 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sat, 26 Feb 2022 11:56:22 -0500 Subject: [PATCH] ADD survival goal file --- local/lib/org-x/org-x-dag.el | 1 + local/lib/org-x/org-x.el | 7 +++++++ 2 files changed, 8 insertions(+) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index 63f00f4..f0bc267 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -1017,6 +1017,7 @@ valid keyword or none of its parents have valid keywords." "Return a list of all files to be used in the DAG." `(,(org-x-get-lifetime-goal-file) ,(org-x-get-endpoint-goal-file) + ,(org-x-get-survival-goal-file) ,(org-x-qtp-get-file) ,(org-x-get-weekly-plan-file) ,(org-x-get-daily-plan-file) diff --git a/local/lib/org-x/org-x.el b/local/lib/org-x/org-x.el index 372ab3a..0beaccb 100644 --- a/local/lib/org-x/org-x.el +++ b/local/lib/org-x/org-x.el @@ -298,6 +298,9 @@ org tag and a long name respectively for the category.") (defvar org-x-endpoint-goal-file nil "Path to endpoint goal file.") +(defvar org-x-survival-goal-file nil + "Path to survival goal file.") + (defvar org-x-quarterly-plan-file nil "Path to quarterly plan file.") @@ -451,6 +454,10 @@ PATH must be relative to `org-directory' and end in '.org'." "Return the absolute path of `org-x-lifetime-goal-file'." (org-x--expand-path org-x-lifetime-goal-file)) +(defun org-x-get-survival-goal-file () + "Return the absolute path of `org-x-survival-goal-file'." + (org-x--expand-path org-x-weekly-plan-file)) + (defun org-x-get-capture-file () "Return the absolute path of `org-x-capture-file'." (org-x--expand-path org-x-capture-file))