From 3b7f80d4471036050e6416e029f2c76c8e468ed0 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Tue, 12 Sep 2023 15:10:21 -0500
Subject: Adding markdown support

---
 web/view/markdown.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 web/view/markdown.scm

(limited to 'web/view/markdown.scm')

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)))
-- 
cgit v1.2.3