Adding markdown support

1 files changed, 17 insertions, 0 deletions

diff --git a/web/view/markdown.scm b/web/view/markdown.scm
new file mode 100644
index 0000000..b63e48d
--- /dev/null
+++ b/web/view/markdown.scm
@@ -0,0 +1,17 @@
+(define-module (web view markdown)
+  #:use-module (json)
+  #:use-module (ice-9 match)
+  #:use-module (ice-9 format)
+  #:use-module (ice-9 iconv)
+  #:use-module (ice-9 receive)
+  #:use-module (ice-9 string-fun)
+  #:use-module (ice-9 textual-ports)
+  #:use-module (sxml simple)
+  #:use-module (web sxml)
+  #:use-module (commonmark)
+  #:export (markdown-file->sxml))
+
+(define (markdown-file->sxml fn)
+  (commonmark->sxml
+   (call-with-input-file fn
+       get-string-all)))