Updates!

I totally forgot to actually commit things for a while, so uh

Updates!!!

1 files changed, 15 insertions, 5 deletions

@@ -1,13 +1,23 @@
 (declare (module (jimmy wrap)))
 
 (import scheme (chicken base)
+        (jimmy emit)
         (jimmy util)
-        (chicken format))
+        (only (chicken io) read-string)
+        (only (chicken port) with-output-to-string)
+        (only (chicken string) string-translate*))
 
-;;; open question: how to do templating?
+;; templates are strings with variables interpolated with "{{variables}}"
 
 (define-public (wrap document template)
-  #f)
+  (let* ((meta (map (lambda (el)
+                      (cons (string-append "{{" (car el) "}}")
+                            (string-intersperse (cdr el) " ")))
+                    (alist-walk document 'meta)))
+         (body (cons "{{body}}"
+                     (with-output-to-string
+                       (lambda () (emit document))))))
+    (string-translate* template (cons body meta))))
 
-(define (meta-get key document)
-  (alist-walk document 'meta key))
+(define-public (wrap-with document file)
+  (wrap document (with-input-from-file file read-string)))