diff options
author | Spencer Williams <spnw@plexwave.org> | 2025-07-06 21:51:51 -0400 |
---|---|---|
committer | Spencer Williams <spnw@plexwave.org> | 2025-07-06 21:54:37 -0400 |
commit | fd849e28022c03c7925fd2b4693c0497327adefc (patch) | |
tree | 4dfe7dab78130aeed1aaef99f07570446a7cc058 /lisp/seam.el | |
parent | c9d05000cc82bda0701a2a18bc886dcb4a9c9c1c (diff) |
Rename seam-make-note
Diffstat (limited to 'lisp/seam.el')
-rw-r--r-- | lisp/seam.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/seam.el b/lisp/seam.el index 0bd0f96..113d2c8 100644 --- a/lisp/seam.el +++ b/lisp/seam.el @@ -99,7 +99,7 @@ naming. Must be a function taking two arguments: TITLE and TYPE." (org-mark-ring-push) (if-let ((file (seam-lookup-slug path))) (find-file file) - (seam-make-note path nil t)) + (seam-create-note path nil t)) (seam-set-buffer-name)) (defvar seam-note-file-regexp "\\`[^.].+\\.org\\'") @@ -203,7 +203,7 @@ naming. Must be a function taking two arguments: TITLE and TYPE." (unless (member type (seam-get-all-note-type-names)) (error "`%s' is not a valid Seam note type" type))) -(defun seam-make-note (title &optional type select) +(defun seam-create-note (title &optional type select) (unless type (setq type seam-default-note-type)) (seam-validate-note-type type) @@ -274,7 +274,7 @@ completion prompt is given to choose the type." ;; formatter function) (NOTE: Redundant if buffer wasn't ;; already open, as `seam-setup-buffer' does this too.) (seam-set-buffer-name)) - (seam-make-note (string-trim completion) (or type seam-default-note-type) t))))) + (seam-create-note (string-trim completion) (or type seam-default-note-type) t))))) (cl-defun seam-get-note-type (file &optional no-error) (when (and file (equal "org" (file-name-extension file))) @@ -621,7 +621,7 @@ link will replace it." (cl-destructuring-bind (completion . file) (seam-read-title "Insert note link: ") (let* ((new-buffer (unless file - (seam-make-note completion seam-default-note-type nil))) + (seam-create-note completion seam-default-note-type nil))) (selection (when (use-region-p) (buffer-substring (region-beginning) |