diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-24 04:25:24 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-24 04:25:24 -0500 |
| commit | 49038c418ead0adc83ffc8fce43c0cb6da9813df (patch) | |
| tree | 50964465888b11bf5e2626f29478149e9f1fa64f /modules/org-drill-config.el | |
| parent | 175aad0b1a3dfec37f189ba0dcf34d3ba61b50eb (diff) | |
| download | dotemacs-49038c418ead0adc83ffc8fce43c0cb6da9813df.tar.gz dotemacs-49038c418ead0adc83ffc8fce43c0cb6da9813df.zip | |
refactor(org-drill): share one validated drill-file selector
org-capture-config.el and org-drill-config.el each scanned drill-dir with an inline directory-files call, so a missing, empty, or unreadable drill-dir surfaced as a low-level directory-files error or an empty completing-read, depending on which command ran. Added cj/--drill-files-or-error, the single validated entry point: it signals a clear user-error when the directory is missing, unreadable, or has no drill files, and otherwise returns the list. cj/--drill-pick-file and both drill capture templates now route through it. The pure cj/--drill-files-in primitive and its tests are unchanged. Tests cover missing dir, empty dir, a non-org-only dir, and a normal listing.
Diffstat (limited to 'modules/org-drill-config.el')
| -rw-r--r-- | modules/org-drill-config.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/modules/org-drill-config.el b/modules/org-drill-config.el index 79fdb027..c3852ed1 100644 --- a/modules/org-drill-config.el +++ b/modules/org-drill-config.el @@ -32,10 +32,23 @@ "Return the drill Org file names directly inside DIR (no leading dots)." (directory-files dir nil "^[^.].*\\.org$")) +(defun cj/--drill-files-or-error (dir) + "Return the drill Org files in DIR, or signal a clear `user-error'. +Errors when DIR is missing, unreadable, or has no drill files, so callers +fail with an actionable message instead of a low-level `directory-files' +error or an empty `completing-read'. This is the single entry point the +drill commands and the drill capture templates share." + (unless (and (file-directory-p dir) (file-readable-p dir)) + (user-error "Drill directory missing or unreadable: %s" dir)) + (let ((files (cj/--drill-files-in dir))) + (unless files + (user-error "No drill files (.org) found in %s" dir)) + files)) + (defun cj/--drill-pick-file (dir) "Prompt for one of the drill Org files in DIR; return its absolute path." (expand-file-name - (completing-read "Choose flashcard file: " (cj/--drill-files-in dir) nil t) + (completing-read "Choose flashcard file: " (cj/--drill-files-or-error dir) nil t) dir)) (defun cj/--drill-pick-dir (other-dir) |