haunt.scm 1.22 KB
Newer Older
Philip Kaludercic's avatar
Philip Kaludercic committed
1
2
3
4
5
6
7
(use-modules (haunt post)
			 (haunt page)
			 (haunt site)
			 (haunt asset)
			 (haunt html)
			 (haunt builder blog)
			 (haunt builder atom)
Philip Kaludercic's avatar
Philip Kaludercic committed
8
			 (haunt builder rss)
Philip Kaludercic's avatar
Philip Kaludercic committed
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
			 (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")
Philip Kaludercic's avatar
Philip Kaludercic committed
31
32
33
34
					   (atom-feed #:blog-prefix "post")
					   (atom-feeds-by-tag #:prefix "tags"
										  #:blog-prefix "post")
					   (rss-feed #:blog-prefix "post")
Philip Kaludercic's avatar
Philip Kaludercic committed
35
36
37
38
39
40
41
					   (static-page "meta" "Meta"
									%meta-page)
					   (static-page "irc" "IRC"
									%irc-page)
					   (static-page "whatsapp" "WhatsApp Links"
									%whatsapp-page)
					   (static-directory "static" "static")))