about summary refs log tree commit diff stats
path: root/src/wrap.scm
diff options
context:
space:
mode:
authorCase Duckworth2024-06-05 09:21:25 -0500
committerCase Duckworth2024-06-05 09:21:25 -0500
commit423ac382f9e73bf1ca7fc6b400f98db087cd7d22 (patch)
tree1992e3dc7e71cd40eb7cdbc0b6d0c3cdf82c4332 /src/wrap.scm
parentUpdate README, add COPYING (diff)
downloadjimmy-423ac382f9e73bf1ca7fc6b400f98db087cd7d22.tar.gz
jimmy-423ac382f9e73bf1ca7fc6b400f98db087cd7d22.zip
Write executable
This involved moving `src' to `lib' and making `bin'.
`bin' holds the program, which only imports `jimmy.main' from lib.
Diffstat (limited to 'src/wrap.scm')
-rw-r--r--src/wrap.scm23
1 files changed, 0 insertions, 23 deletions
diff --git a/src/wrap.scm b/src/wrap.scm deleted file mode 100644 index aa077d8..0000000 --- a/src/wrap.scm +++ /dev/null
@@ -1,23 +0,0 @@
1(declare (module (jimmy wrap)))
2
3(import scheme (chicken base)
4 (jimmy emit)
5 (jimmy util)
6 (only (chicken io) read-string)
7 (only (chicken port) with-output-to-string)
8 (only (chicken string) string-translate* string-intersperse))
9
10;; templates are strings with variables interpolated with "{{variables}}"
11
12(define-public (wrap document template)
13 (let* ((meta (map (lambda (el)
14 (cons (string-append "{{" (car el) "}}")
15 (string-intersperse (cdr el) " ")))
16 (alist-walk document 'meta)))
17 (body (cons "{{body}}"
18 (with-output-to-string
19 (lambda () (emit document))))))
20 (string-translate* template (cons body meta))))
21
22(define-public (wrap-with document file)
23 (wrap document (with-input-from-file file read-string)))