diff options
| -rw-r--r-- | ennu.el | 21 |
1 files changed, 12 insertions, 9 deletions
@@ -112,7 +112,7 @@ last form in BODY." ;; tangle-dir) ;; t))) (let ((link-publish-operations - (seq-map 'ennu-publish-link (seq-mapcat 'ennu-post-links posts))) + (seq-mapcat 'ennu-publish-link (seq-mapcat 'ennu-post-links posts))) (input-post-files (seq-map 'ennu-post-filename posts))) (cons (ennu-make-operation @@ -381,16 +381,19 @@ if DESTINATION already exists." (defun ennu-publish-link (link) (pcase link (`("image" . ,path) - (ennu-publish-image - (list (ennu-setting :default-image-width) - (ennu-setting :image-link-width)) - (ennu--expand-relative path (ennu-setting :images-directory)))) + (list + (ennu-publish-image + (list (ennu-setting :default-image-width) + (ennu-setting :image-link-width)) + (ennu--expand-relative path (ennu-setting :images-directory))))) (`("static" . ,path) - (ennu-publish-copy (ennu--expand-relative path (ennu-setting :static-directory)))) + (list + (ennu-publish-copy (ennu--expand-relative path (ennu-setting :static-directory))))) (`("video" . ,path) - (ennu-publish-copy (ennu--expand-relative path (ennu-setting :video-directory))) - (ennu-publish-copy (ennu--expand-relative (ennu-video-poster path) - (ennu-setting :images-directory)))))) + (list + (ennu-publish-copy (ennu--expand-relative path (ennu-setting :video-directory))) + (ennu-publish-copy (ennu--expand-relative (ennu-video-poster path) + (ennu-setting :images-directory))))))) (defmacro ennu-with-current-directory (directory &rest body) "Change to DIRECTORY, evaluate BODY and restore the current |