summaryrefslogtreecommitdiff
path: root/haunt/site.scm
diff options
context:
space:
mode:
Diffstat (limited to 'haunt/site.scm')
-rw-r--r--haunt/site.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/haunt/site.scm b/haunt/site.scm
index 48573e2..09f6bd7 100644
--- a/haunt/site.scm
+++ b/haunt/site.scm
@@ -37,6 +37,7 @@
site?
site-title
site-domain
+ site-scheme
site-posts-directory
site-file-filter
site-build-directory
@@ -51,11 +52,12 @@
default-file-filter))
(define-record-type <site>
- (make-site title domain posts-directory file-filter build-directory
+ (make-site title domain scheme posts-directory file-filter build-directory
default-metadata make-slug readers builders)
site?
(title site-title)
(domain site-domain)
+ (scheme site-scheme) ; https or http
(posts-directory site-posts-directory)
(file-filter site-file-filter)
(build-directory site-build-directory)
@@ -67,6 +69,7 @@
(define* (site #:key
(title "This Place is Haunted")
(domain "example.com")
+ (scheme 'https)
(posts-directory "posts")
(file-filter default-file-filter)
(build-directory "site")
@@ -77,6 +80,8 @@
"Create a new site object. All arguments are optional:
TITLE: The name of the site
+DOMAIN: The domain that will host the site
+SCHEME: Either 'https' or 'http' ('https' by default)
POSTS-DIRECTORY: The directory where posts are found
FILE-FILTER: A predicate procedure that returns #f when a post file
should be ignored, and #f otherwise. Emacs temp files are ignored by
@@ -87,7 +92,7 @@ whose keys are symbols
MAKE-SLUG: A procedure generating a file name slug from a post
READERS: A list of reader objects for processing posts
BUILDERS: A list of procedures for building pages from posts"
- (make-site title domain posts-directory file-filter build-directory
+ (make-site title domain scheme posts-directory file-filter build-directory
default-metadata make-slug readers builders))
(define (site-post-slug site post)