haunt.scm 1.09 KB
Newer Older
Philip Kaludercic's avatar
Philip Kaludercic committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
(use-modules (haunt post)
			 (haunt page)
			 (haunt site)
			 (haunt asset)
			 (haunt html)
			 (haunt builder blog)
			 (haunt builder atom)
			 (haunt builder assets)
			 (haunt reader commonmark)
			 (local micronews paged-blog)
			 (local theme)
			 (local common))

(define* (static-page name title sxml #:key (theme local-site-theme))
  (lambda (site posts)
	(list
	 (make-page (string-append name ".html")
				((theme-layout theme) site title sxml)
				sxml->html))))

(define %meta-page (primitive-load "pages/meta.sxml"))
(define %irc-page (primitive-load "pages/irc.sxml"))
(define %whatsapp-page (primitive-load "pages/whatsapp.sxml"))

(site #:title "#faui2k17"
      #:domain "faui2k17.de"
      #:readers (list commonmark-reader)
      #:builders (list (paged-blog #:theme local-site-theme
								   #:prefix "post")
					   (atom-feed)
					   (atom-feeds-by-tag)
					   (static-page "meta" "Meta"
									%meta-page)
					   (static-page "irc" "IRC"
									%irc-page)
					   (static-page "whatsapp" "WhatsApp Links"
									%whatsapp-page)
					   (static-directory "static" "static")))