Tangle posts.

* ennu.el (ennu-publish-post): Tangle posts if they have src blocks
marked for tangling.

1 files changed, 30 insertions, 27 deletions

diff --git a/ennu.el b/ennu.el
index a8ac483..46b3f42 100644
--- a/ennu.el
+++ b/ennu.el
@@ -99,36 +99,39 @@ last form in BODY."
   (concat (file-name-sans-extension filename) ".html"))
 
 (defun ennu-publish-post (posts)
-  ;; TODO: Tangle post
-       ;; (when-let (tangle-dir (or (plist-get posts-plist :valai-tangle-directory)
-       ;;                           valai-tangle-directory))
-       ;;   (dolist (tangled-file
-       ;;            (org-babel-tangle-file post-path))
-       ;;     (when (member (file-name-extension tangled-file) '("sh" "py"))
-       ;;       (chmod tangled-file (string-to-number "755" 8)))
-       ;;     (make-directory tangle-dir t)
-       ;;     (rename-file tangled-file
-       ;;                  (expand-file-name (file-name-nondirectory tangled-file)
-       ;;                                    tangle-dir)
-       ;;                  t)))
   (let ((link-publish-operations
          (seq-mapcat 'ennu-publish-link (seq-mapcat 'ennu-post-links posts)))
         (input-post-files (seq-map 'ennu-post-filename posts)))
-    (cons
-     (ennu-make-operation
-      :inputs (append input-post-files
-                      (seq-mapcat 'ennu-operation-inputs link-publish-operations))
-      :outputs (seq-map 'ennu--org-output-filename input-post-files)
-      :publish
-      (lambda (&rest output-files)
-        (seq-mapn
-         (lambda (post output-file)
-           (ennu-with-file-contents (ennu-post-filename post)
-             (org-export-to-file
-                 'ennu-html output-file nil nil nil nil
-                 (list :translations (seq-remove (apply-partially 'equal post) posts)))))
-         posts
-         output-files)))
+    (append
+     (list
+      (ennu-make-operation
+       :inputs (append input-post-files
+                       (seq-mapcat 'ennu-operation-inputs link-publish-operations))
+       :outputs (seq-map 'ennu--org-output-filename input-post-files)
+       :publish
+       (lambda (&rest output-files)
+         (seq-mapn
+          (lambda (post output-file)
+            (ennu-with-file-contents (ennu-post-filename post)
+              (org-export-to-file
+                  'ennu-html output-file nil nil nil nil
+                  (list :translations (seq-remove (apply-partially 'equal post) posts)))))
+          posts
+          output-files))))
+     (ennu--filter-map
+      (lambda (post)
+        (when (ennu-post-tangle post)
+          (ennu-make-operation
+           :inputs (list (ennu-post-filename post))
+           :outputs (seq-map (lambda (tangle-output)
+                               (ennu--expand-relative tangle-output
+                                                      (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)))))))
+      posts)
      link-publish-operations)))
 
 (defun ennu-publish-generic (other-files-directory file)