Raise an error if trying to set obsidian-directory to a directory tha…

…t doesn't exist

obsidian.el

@@ -54,8 +54,11 @@
   :initialize #'custom-initialize-reset
   :set (lambda (symbol value)
          (let ((full-path (expand-file-name value)))
-           (message "Setting %s to %s" symbol full-path)
-           (set-default symbol full-path))))
+           (if (file-exists-p full-path)
+               (progn
+                 (message "Setting %s to %s" symbol full-path)
+                 (set-default symbol full-path))
+             (user-error (format "Directory %s doesn't exist" full-path))))))
 
 (defcustom obsidian-inbox-directory nil
   "Subdir to create notes using `obsidian-capture'."
@@ -178,7 +181,7 @@ You most likely want to run `obsidian-change-vault'."
         (progn
           (customize-set-value 'obsidian-directory final-path)
           (message "Obsidian vault set to: %s" obsidian-directory))
-      (user-error (format "File %s doesn't exist" final-path)))))
+      (user-error (format "Directory %s doesn't exist" final-path)))))
 
 ;;;###autoload
 (defun obsidian-change-vault (&optional path)

tests/test-obsidian.el

@@ -56,6 +56,8 @@
       ;; Change vault to a non-existent directory
       (expect (obsidian-change-vault "/path/that/does/not/exist")
               :to-throw 'user-error)
+      (expect (setopt obsidian-directory "/path/that/does/not/exist")
+              :to-throw 'user-error)
       ;; Change vault path to test-dir and verify change
       (obsidian-change-vault obsidian--test-dir)
       (expect obsidian-directory :to-equal obsidian--test-dir)