Do not create tangle output in :posts-directory.

An ennu-operation should not write anything in the input
directories. Doing so is a recipe for data loss.

* ennu.el (ennu-publish-post): Do not create tangle output in
:posts-directory.

1 files changed, 9 insertions, 3 deletions

diff --git a/ennu.el b/ennu.el
index ae61f0e..c19799f 100644
--- a/ennu.el
+++ b/ennu.el
@@ -132,9 +132,15 @@ last form in BODY."
                                                       (ennu-setting :static-directory)))
                              (ennu-post-tangle post))
            :publish (lambda (&rest output-files)
-                      (org-babel-tangle-publish
-                       nil (ennu-post-filename post)
-                       (file-name-directory (first output-files)))))))
+                      ;; TODO: Handle tangle outputs that are nested
+                      ;; into directories, and when each tangle output
+                      ;; is nested into a different directory.
+                      (let ((post-file-copy (concat
+                                             (file-name-directory (first output-files))
+                                             (file-name-nondirectory (ennu-post-filename post)))))
+                        (copy-file (ennu-post-filename post) post-file-copy)
+                        (org-babel-tangle-file post-file-copy)
+                        (delete-file post-file-copy))))))
       posts)
      link-publish-operations)))