seam

commit 991cc76d1b52fd072debe04e803d5eb544b36f99
parent a9127f657f96d13ba37a3617589fdfe2d462e6ec
Author: Spencer Williams <spnw@plexwave.org>
Date:   Mon,  7 Apr 2025 22:49:16 -0400

Validate note type after completion

Diffstat:
M
lisp/seam.el
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git 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