aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/seam.el7
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"))))