diff options
| author | Spencer Williams <spnw@plexwave.org> | 2025-07-10 14:08:52 -0400 |
|---|---|---|
| committer | Spencer Williams <spnw@plexwave.org> | 2025-07-10 14:10:39 -0400 |
| commit | c27b640130063302f0c23e6303984fc46fc8126f (patch) | |
| tree | 7045e84e849bae29f10091b014cb96dbf178c419 /lisp | |
| parent | caca4dce67ba849325d258caf105cc2f98873440 (diff) | |
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/seam.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/seam.el b/lisp/seam.el index 62d7737..a228f4c 100644 --- a/lisp/seam.el +++ b/lisp/seam.el @@ -228,10 +228,9 @@ naming. Must be a function taking two arguments: TITLE and TYPE." (draft-p (if draft-supplied-p draft-p - (if-let ((result (plist-member (cdr (assoc type (mapcar #'ensure-list seam-note-types))) - :create-as-draft))) - (cadr result) - seam-create-as-draft))) + (cl-getf (cdr (assoc type (mapcar #'ensure-list seam-note-types))) + :create-as-draft + seam-create-as-draft))) (file (file-name-concat seam-note-directory type (concat (when draft-p "-") slug ".org")))) |