diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-07-20 19:51:03 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-07-20 19:52:06 -0400 |
| commit | 5aa4de8eff0b387e9583eb31d1d311e1c95dc146 (patch) | |
| tree | 59d07093138dc8422862b8c53e9fb808b57e449e | |
| parent | 1fd13da7d4a808f50546f871adb782998626b446 (diff) | |
Fix propagation of `dest-path' in `ox-haunt-export-as-html'
| -rw-r--r-- | ox-haunt.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/ox-haunt.el b/ox-haunt.el index 182bd7b..c18b370 100644 --- a/ox-haunt.el +++ b/ox-haunt.el @@ -130,11 +130,17 @@ Export is done in a buffer named \"*Org Haunt Export*\", which will be displayed when `org-export-show-temporary-export-buffer' is non-nil." (interactive) - (org-export-to-buffer 'haunt "*Org Haunt Export*" - async subtreep visible-only body-only - ;; Necessary to propagate a buffer-local value for `ox-haunt-base-dir'. - (append `(:haunt-base-dir ,dest-path) ext-plist) - (lambda () (set-auto-mode t)))) + (let* ((info (org-combine-plists + (org-export--get-export-attributes + 'haunt subtreep visible-only) + (org-export--get-buffer-attributes) + (org-export-get-environment 'haunt subtreep))) + (dest-path (plist-get info :haunt-base-dir))) + (org-export-to-buffer 'haunt "*Org Haunt Export*" + async subtreep visible-only body-only + ;; Necessary to propagate a buffer-local value for `ox-haunt-base-dir'. + (append `(:haunt-base-dir ,dest-path) ext-plist) + (lambda () (set-auto-mode t))))) ;;;###autoload (defun ox-haunt-export-to-html |