From 3e230d40ab1255aec292df17d7b127b681a55710 Mon Sep 17 00:00:00 2001
From: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date: Thu, 1 Oct 2020 22:40:43 +0200
Subject: DAMMIT

ox-md does not syntax-highlight source blocks, and trips over
definition lists.
---
 repo/www/preprocess-org.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 repo/www/preprocess-org.el

(limited to 'repo/www/preprocess-org.el')

diff --git a/repo/www/preprocess-org.el b/repo/www/preprocess-org.el
new file mode 100644
index 0000000..f7be936
--- /dev/null
+++ b/repo/www/preprocess-org.el
@@ -0,0 +1,20 @@
+(defun preprocess-org (input)
+  (with-temp-buffer
+    (insert-file-contents input)
+    (org-mode)
+    (while (re-search-forward org-heading-regexp nil t)
+      (save-excursion
+        (save-match-data
+          (when-let ((tags (org-get-tags (point))))
+            (insert "\n#+begin_tags\n")
+            (dolist (tag tags)
+              (insert "- " tag "\n"))
+            (insert "#+end_tags\n")))))
+  (let ((org-export-with-properties t)
+        (org-export-with-section-numbers nil)
+        (org-export-with-sub-superscripts '{})
+        (org-export-with-tags nil)
+        (org-export-with-title nil)
+        (org-export-with-toc nil))
+    (org-md-export-as-markdown))    
+  (princ (buffer-string))))
-- 
cgit v1.2.3