From 2988531c18eedb54f01faefd7dffa61dfe440e44 Mon Sep 17 00:00:00 2001 From: Spencer Williams Date: Mon, 7 Apr 2025 22:45:22 -0400 Subject: Remove completion helper function --- lisp/seam.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/seam.el b/lisp/seam.el index cdf3227..25213c3 100644 --- a/lisp/seam.el +++ b/lisp/seam.el @@ -183,10 +183,6 @@ naming. Must be a function taking two arguments: TITLE and TYPE." (defun seam-format-title (title type) (funcall seam-title-formatter title type)) -(defun seam--completing-read (&rest args) - (let ((completion-ignore-case t)) - (apply seam-completing-read-function args))) - (defun seam-make-note (title &optional type select) (unless type (setq type seam-default-note-type)) @@ -215,14 +211,14 @@ naming. Must be a function taking two arguments: TITLE and TYPE." (and self (list self))))) (let ((files (cl-loop for (title . file) in notes collect (cons (seam-format-title title (seam-get-note-type file)) file)))) - (let ((completion (string-trim (seam--completing-read prompt files)))) + (let ((completion (string-trim (funcall seam-completing-read-function prompt files)))) (or (assoc completion files) (cons completion nil))))))) (defun seam--read-type (prompt arg &optional choices) (when arg (if (listp arg) - (seam--completing-read prompt (or choices seam-note-types) nil t) + (funcall seam-completing-read-function prompt (or choices seam-note-types) nil t) (nth (1- arg) seam-note-types)))) ;;;###autoload -- cgit v1.2.3