diff options
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"))))))) |