Add upfront Org layout validation

1 files changed, 18 insertions, 2 deletions

diff --git a/init.el b/init.el
index 46dc111..0bbdcf5 100644
--- a/init.el
+++ b/init.el
@@ -13,6 +13,23 @@
         (file-name-directory
          (or load-file-name user-init-file default-directory))))
 
+(defun ss-validate-org-layout ()
+  "Warn once at startup when required Org workflow paths are missing."
+  (let ((missing-paths nil))
+    (unless (file-directory-p org-directory)
+      (push org-directory missing-paths))
+    (unless (file-exists-p org-default-notes-file)
+      (push org-default-notes-file missing-paths))
+    (when missing-paths
+      (display-warning
+       'ss-org
+       (format
+        "Missing required Org workflow paths: %s. Org workflow features may not work as expected."
+        (mapconcat #'identity (nreverse missing-paths) ", "))
+       :warning))))
+
+(add-hook 'emacs-startup-hook #'ss-validate-org-layout)
+
 ;; --------------------------------------------------
 ;; Startup: agenda as modal view
 ;; --------------------------------------------------
@@ -142,8 +159,7 @@
          ("C-c r" . org-refile))
   :init
   (setq org-agenda-files
-        (delq nil (list (and (file-exists-p org-default-notes-file)
-                             org-default-notes-file)))
+        (list org-default-notes-file)
         org-agenda-custom-commands
         '(("h" "Home"
            ((agenda ""