lib/types.sld


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

(define-library (boudin types)
  (import (scheme base)
          (scheme case-lambda)
          (scheme file)
          (boudin config)
          (boudin util)
          ;; non-portable bits
          (chicken pathname)
          (html-parser)
          )

  (export
   ;; pages
   make-page page?
   page-path page-dest page-text page-sxml page-meta
   set-page-dest! set-page-text! set-page-sxml! set-page-meta!
   extract-metadata page-ref page-set!
   page-url page-slug
   read-page write-page
   ;; indeces
   ;; static files
   )

  (include "lib/types.sls"))