From 59598f42c16cf12e544e5bf2ce9c873fba94238e Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 6 Sep 2023 22:45:45 -0500 Subject: A newerer beginning --- lib/config.sld | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 lib/config.sld (limited to 'lib/config.sld') diff --git a/lib/config.sld b/lib/config.sld deleted file mode 100644 index bdd6ef5..0000000 --- a/lib/config.sld +++ /dev/null @@ -1,45 +0,0 @@ -;;; (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) - (html-parser) - ) - - (export site-url site-dest - page-path-transformers page-text-transformers - page-template index-template feed-template) - - (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)) - )) -- cgit 1.4.1-21-gabe81