basic render module

1 files changed, 13 insertions, 17 deletions

diff --git a/render.scm b/render.scm
index d326cc8..d08d4de 100644
--- a/render.scm
+++ b/render.scm
@@ -1,19 +1,15 @@
-(import (chicken io))
-(import (sxml-transforms))
-(import lowdown)
-
-(define parse-file
- (lambda (file-name)
-   (markdown->sxml (call-with-input-file
+(import hahn)
+(module tracker-format (markdown-file->html)
+  (import scheme)
+  (import (chicken io))
+  (import sxml-transforms)
+  (import lowdown)
+  (define (parse-markdown-file file-name)
+    (markdown->sxml (call-with-input-file
                      file-name
                      (lambda (port)
-                       (read-string #f port))))))
-(define render
- (lambda (file-name)
-   (let ((parsed (parse-file file-name)))
-     (SXML->HTML parsed))))
-
-(define main
- (lambda (args . b)
-   (let ((file-name (car args)))
-        (render file-name))))
+                       (read-string #f port)))))
+  (define (markdown-file->html file-name)
+    @("render a markdown file to html")
+    (let ((parsed (parse-markdown-file file-name)))
+         (SXML->HTML parsed))))