summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--haunt/site.scm9
1 files changed, 6 insertions, 3 deletions
diff --git a/haunt/site.scm b/haunt/site.scm
index 23bc6d4..92146e8 100644
--- a/haunt/site.scm
+++ b/haunt/site.scm
@@ -31,6 +31,7 @@
#:export (site
site?
site-title
+ site-domain
site-posts-directory
site-build-directory
site-default-metadata
@@ -39,10 +40,11 @@
build-site))
(define-record-type <site>
- (make-site title posts-directory build-directory default-metadata
- readers builders)
+ (make-site title domain posts-directory build-directory
+ default-metadata readers builders)
site?
(title site-title)
+ (domain site-domain)
(posts-directory site-posts-directory)
(build-directory site-build-directory)
(default-metadata site-default-metadata)
@@ -51,6 +53,7 @@
(define* (site #:key
(title "This Place is Haunted")
+ (domain "example.com")
(posts-directory "posts")
(build-directory "site")
(default-metadata '())
@@ -65,7 +68,7 @@ DEFAULT-METADATA: An alist of arbitrary default metadata for posts
whose keys are symbols
READERS: A list of reader objects for processing posts
BUILDERS: A list of procedures for building pages from posts"
- (make-site title posts-directory build-directory
+ (make-site title domain posts-directory build-directory
default-metadata readers builders))
(define (build-site site)