From c9d05000cc82bda0701a2a18bc886dcb4a9c9c1c Mon Sep 17 00:00:00 2001 From: Spencer Williams Date: Sun, 6 Jul 2025 21:32:11 -0400 Subject: Use helper function for retrieving note type names --- lisp/seam-html.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/seam-html.el') diff --git a/lisp/seam-html.el b/lisp/seam-html.el index e95ff9d..8842ab8 100644 --- a/lisp/seam-html.el +++ b/lisp/seam-html.el @@ -166,11 +166,13 @@ INFO is a plist holding contextual information. See (path (cond ((string= "seam" link-type) - (let ((slug raw-path)) + (let ((slug (string-remove-prefix "-" raw-path))) (when-let ((file (seam-lookup-slug slug))) (let ((type (seam-get-note-type file))) (when (and (member type seam-export--types) - (file-exists-p (seam-make-file-name slug type))) + (or seam-export--include-drafts + (not (seam-draft-p file))) + (file-exists-p (seam-make-file-name raw-path type))) (concat seam-export--root-path slug (if seam-export--no-extension "" ".html"))))))) -- cgit v1.2.3