diff options
| author | Spencer Williams <spnw@plexwave.org> | 2025-07-06 21:32:11 -0400 |
|---|---|---|
| committer | Spencer Williams <spnw@plexwave.org> | 2025-07-06 21:54:25 -0400 |
| commit | c9d05000cc82bda0701a2a18bc886dcb4a9c9c1c (patch) | |
| tree | f647062c5e9429e60eca78bbff4e9cbe00984f84 /lisp/seam-html.el | |
| parent | 3389d7454e7e4ca743f0a19516552a79825170f9 (diff) | |
Use helper function for retrieving note type names
Diffstat (limited to 'lisp/seam-html.el')
| -rw-r--r-- | lisp/seam-html.el | 6 |
1 files changed, 4 insertions, 2 deletions
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"))))))) |