;;; (boudin config) --- default values for configuration options
;;
;; To change these, make a `config.scm' in your site's root directory and change
;; these.  They're all parameters so .. change em like that.

(define-library (boudin config)
  (import (scheme base)
          (boudin schmaltz)
          ;; not portable
          (chicken pathname)
          (chicken time posix)
          (html-parser)
          )

  (export site-url site-dest
          page-path-transformers page-text-transformers
          page-date-formats
          page-template index-template feed-template
          build-time)

  (begin
    ;; Site information
    (define site-url
      (make-parameter "example.com"))
    (define site-dest
      (make-parameter "out/"))
    ;; Transformers
    (define page-path-transformers
      (make-parameter
       (list (lambda (path) (make-pathname (site-dest) path)))))
    (define page-text-transformers
      (make-parameter
       (list wrap-paragraphs
             render-string
             html->sxml)))
    ;; Templates --- note that we use quote but include unquote forms here.
    ;; This is to simplify the configuration and to avoid a cyclical dependency
    ;; with (boudin types).
    (define page-template
      (make-parameter
       '(html (@ (lang "en-us"))
              (head (title (or (page-ref pg "title") "[untitled]")))
              (body ,@(page-sxml pg)))))
    (define index-template
      (make-parameter 'todo))
    (define feed-template
      (make-parameter 'todo))
    ;; Miscellaneous
    (define page-date-formats
      (make-parameter (list "%Y-%m-%d"
                            "%Y-%m-%d%n%H:%M"
                            "%Y-%m-%d%n%I:%M%n%p")))
    ;; Not actually configuration, but state ... meh
    (define build-time
      (make-parameter
       (time->string (seconds->utc-time) "%FT%TZ"))))
    )