diff options
| author | Case Duckworth | 2024-05-18 21:15:54 -0500 |
|---|---|---|
| committer | Case Duckworth | 2024-05-18 21:15:54 -0500 |
| commit | 727995a409632d4c143ba4b6b088c7df40f074e7 (patch) | |
| tree | 3b2f291b2353314971288c0c3ad86d3825c6f825 /src/wrap.scm | |
| parent | Remove old code (diff) | |
| download | jimmy-727995a409632d4c143ba4b6b088c7df40f074e7.tar.gz jimmy-727995a409632d4c143ba4b6b088c7df40f074e7.zip | |
Scheme bit!
Diffstat (limited to 'src/wrap.scm')
| -rw-r--r-- | src/wrap.scm | 13 |
1 files changed, 13 insertions, 0 deletions
| diff --git a/src/wrap.scm b/src/wrap.scm new file mode 100644 index 0000000..3537dea --- /dev/null +++ b/src/wrap.scm | |||
| @@ -0,0 +1,13 @@ | |||
| 1 | (declare (module (jimmy wrap))) | ||
| 2 | |||
| 3 | (import scheme (chicken base) | ||
| 4 | (jimmy util) | ||
| 5 | (chicken format)) | ||
| 6 | |||
| 7 | ;;; open question: how to do templating? | ||
| 8 | |||
| 9 | (define-public (wrap document template) | ||
| 10 | #f) | ||
| 11 | |||
| 12 | (define (meta-get key document) | ||
| 13 | (alist-walk document 'meta key)) | ||