diff options
author | Case Duckworth | 2023-08-15 23:33:17 -0500 |
---|---|---|
committer | Case Duckworth | 2023-08-15 23:33:17 -0500 |
commit | d4830cdd422258a7c91a5ed07af50f8c208a29ee (patch) | |
tree | bacdf4124ef9b9467ea64c6d098a5cd78426912a /lib/types.sld | |
parent | Etc (diff) | |
download | boudin-d4830cdd422258a7c91a5ed07af50f8c208a29ee.tar.gz boudin-d4830cdd422258a7c91a5ed07af50f8c208a29ee.zip |
A new start (again)
Diffstat (limited to 'lib/types.sld')
-rw-r--r-- | lib/types.sld | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/lib/types.sld b/lib/types.sld new file mode 100644 index 0000000..791ff53 --- /dev/null +++ b/lib/types.sld | |||
@@ -0,0 +1,24 @@ | |||
1 | (define-library (boudin types) | ||
2 | (import (scheme base) | ||
3 | (scheme case-lambda) | ||
4 | (scheme file) | ||
5 | (boudin config) | ||
6 | (boudin util) | ||
7 | ;; non-portable bits | ||
8 | (chicken pathname) | ||
9 | (html-parser) | ||
10 | ) | ||
11 | |||
12 | (export | ||
13 | ;; pages | ||
14 | make-page page? | ||
15 | page-path page-dest page-text page-sxml page-meta | ||
16 | set-page-dest! set-page-text! set-page-sxml! set-page-meta! | ||
17 | extract-metadata page-ref page-set! | ||
18 | page-url page-slug | ||
19 | read-page write-page | ||
20 | ;; indeces | ||
21 | ;; static files | ||
22 | ) | ||
23 | |||
24 | (include "lib/types.sls")) | ||