diff options
-rw-r--r-- | CHANGELOG.org | 2 | ||||
-rw-r--r-- | lisp/seam-export.el | 22 |
2 files changed, 15 insertions, 9 deletions
diff --git a/CHANGELOG.org b/CHANGELOG.org index 2ddf21c..0d4a342 100644 --- a/CHANGELOG.org +++ b/CHANGELOG.org @@ -100,3 +100,5 @@ averting any mishaps if an invalid type is entered. - It is no longer possible to create a note with an empty slug. + +- Per-profile export options now override global options in all cases. diff --git a/lisp/seam-export.el b/lisp/seam-export.el index 5db0be6..8664b53 100644 --- a/lisp/seam-export.el +++ b/lisp/seam-export.el @@ -398,23 +398,27 @@ notes)." (or (not (seam-draft-p file)) (plist-get plist :include-drafts))) (let ((seam-export--types types) - (seam-export--root-path (or (plist-get plist :root-path) "")) + (seam-export--root-path (cl-getf plist :root-path "")) (seam-export--include-drafts (plist-get plist :include-drafts)) (seam-export--no-extension (plist-get plist :no-extension)) (seam-export--template template) (seam-export--template-values template-values) (seam-export--time-format - (or (plist-get plist :time-format) - seam-export-time-format)) + (cl-getf plist + :time-format + seam-export-time-format)) (seam-export--time-format-dt - (or (plist-get plist :time-format-dt) - seam-export-time-format-dt)) + (cl-getf plist + :time-format-dt + seam-export-time-format-dt)) (seam-export--time-zone - (or (plist-get plist :time-zone) - seam-export-time-zone)) + (cl-getf plist + :time-zone + seam-export-time-zone)) (seam-export--internal-link-class - (or (plist-get plist :internal-link-class) - seam-export-internal-link-class)) + (cl-getf plist + :internal-link-class + seam-export-internal-link-class)) (seam-export--options (org-combine-plists seam-export-backend-options (plist-get plist :backend-options)))) |