aboutsummaryrefslogtreecommitdiff
path: root/lisp/seam-html.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/seam-html.el')
-rw-r--r--lisp/seam-html.el6
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")))))))