diff options
| author | Craig Jennings <c@cjennings.net> | 2026-02-23 19:41:30 -0600 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-02-23 19:41:30 -0600 |
| commit | e15b085a553f2b7799cb3a9d82e2977a64577b40 (patch) | |
| tree | e837b982c7124272b514b3036c599b3b088e3cc6 /chime.el | |
| parent | be0cf66ec7e1ef3fdadd1ed935a7b3b97ad30d32 (diff) | |
| download | chime-e15b085a553f2b7799cb3a9d82e2977a64577b40.tar.gz chime-e15b085a553f2b7799cb3a9d82e2977a64577b40.zip | |
Improve org-agenda-files validation to distinguish files from directories
Diffstat (limited to 'chime.el')
| -rw-r--r-- | chime.el | 17 |
1 files changed, 10 insertions, 7 deletions
@@ -1624,16 +1624,19 @@ When called programmatically, returns structured validation results." (push '(:error "org-agenda-files is not set or empty.\nChime cannot check for events without org files to monitor.\n\nSet org-agenda-files in your config:\n (setq org-agenda-files '(\"~/org/inbox.org\" \"~/org/work.org\"))") issues)) - ;; Warning: Check if files actually exist + ;; Warning: Check if files/directories actually exist (when (and (boundp 'org-agenda-files) org-agenda-files (listp org-agenda-files)) - (let ((missing-files - (cl-remove-if #'file-exists-p org-agenda-files))) - (when missing-files - (push `(:warning ,(format "%d org-agenda-files don't exist:\n %s\n\nChime will skip these files during event checks." - (length missing-files) - (mapconcat #'identity missing-files "\n "))) + (let ((missing (cl-remove-if #'file-exists-p org-agenda-files))) + (when missing + (push `(:warning ,(format "%d org-agenda-files entries don't exist:\n %s\n\nChime will skip these during event checks." + (length missing) + (mapconcat (lambda (path) + (format "%s (%s)" path + (if (string-suffix-p "/" path) + "directory" "file"))) + missing "\n "))) issues)))) ;; Check org-agenda is loadable |
