diff options
| author | Spencer Williams <spnw@plexwave.org> | 2025-04-07 22:49:16 -0400 |
|---|---|---|
| committer | Spencer Williams <spnw@plexwave.org> | 2025-04-07 22:49:16 -0400 |
| commit | 991cc76d1b52fd072debe04e803d5eb544b36f99 (patch) | |
| tree | 47f8e38d0d0535bd5fdcd11b6b86b818f6eecf2f /lisp/seam.el | |
| parent | a9127f657f96d13ba37a3617589fdfe2d462e6ec (diff) | |
Validate note type after completion
Diffstat (limited to 'lisp/seam.el')
| -rw-r--r-- | lisp/seam.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/seam.el b/lisp/seam.el index 6ebdceb..589e947 100644 --- a/lisp/seam.el +++ b/lisp/seam.el @@ -221,7 +221,9 @@ naming. Must be a function taking two arguments: TITLE and TYPE." (defun seam--read-type (prompt arg &optional choices) (when arg (if (listp arg) - (funcall seam-completing-read-function prompt (or choices seam-note-types) nil t) + (let ((type (funcall seam-completing-read-function prompt (or choices seam-note-types) nil t))) + (seam-validate-note-type type) + type) (nth (1- arg) seam-note-types)))) ;;;###autoload |