Execute Org Babel when publishing

1 files changed, 15 insertions, 1 deletions

diff --git a/init.org b/init.org
index f41dd17..a384dd4 100644
--- a/init.org
+++ b/init.org
@@ -45,6 +45,9 @@ variable de publication =org-publish-project-alist=.
 #+name: publish
 #+caption: =publish= : Conversion des posts en HTML
 #+begin_src emacs-lisp :noweb no-export
+  (require 'ob-shell)
+  (setq org-confirm-babel-evaluate nil)
+  <<publish-html+babel>>
   (setq org-publish-project-alist
         '(("blog"
            :components ("blog-org" "blog-tangle" "blog-annexes"))
@@ -67,12 +70,23 @@ méta-données.
    :base-extension "org"
    :publishing-directory <<builddir()>>
    :recursive t
-   :publishing-function org-html-publish-to-html
+   :publishing-function publish-html+babel
    :headline-levels 4
    :html-extension "html"
    :body-only t)
 #+end_src
 
+Pour pouvoir évaluer le code babel dans les notes, je définis une fonction =publish-html+babel= qui exécute le code babel avant de publier.
+
+#+name: publish-html+babel
+#+caption: Fonction pour publier en HTML et exécuter le code babel
+#+begin_src emacs-lisp :eval no :noweb no-export
+  (defun publish-html+babel (plist filename pub-dir)
+    (with-current-buffer (find-file-noselect filename)
+      (org-babel-execute-buffer))
+    (org-html-publish-to-html plist filename pub-dir))
+#+end_src
+
 ** Projet contenant les fichiers annexes
 Ce projet contient des fichiers qui n’ont pas besoin d’être touchés
 par org-mode.