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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
| | (define-module (www shared)
#:use-module (www utils)
#:export (html-page-header
html-page-description
html-page-links
html-page-footer))
(define (html-page-header title)
`(head (meta (@ (charset "utf-8")))
(meta (@ (name "author")
(content "GuixSD Contributors")))
(meta (@ (name "description")
(content
"GuixSD is GNU's advanced system distribution. GNU is an
operating system which respects the freedom of computer users. You are free to
run the system for any purpose, study how it works, improve it, and share it
with the whole world.")))
(meta (@ (name "keywords")
(content
"GNU, FSF, Free Software Foundation, Linux, Emacs, GCC,
Unix, Free Software, Libre Software, Operating System, GNU Kernel, GNU Hurd,
GUix Package Manager, Guile Scheme, Functional package management")))
(meta (@ (name "viewport")
(content "width=device-width, initial-scale=1.0")))
(link (@ (type "text/css")
(rel "stylesheet")
(href ,(css-url "base.css"))))
(link (@ (type "text/css")
(rel "stylesheet")
(href ,(css-url "index.css"))))
(link (@ (type "image/png")
(rel "icon")
(href ,(img-url "favicon.png"))))
(link (@ (rel "license") (href "Pending...")))
(title ,(string-append title " - GuixSD"))))
(define (html-page-description)
`(div (@ (class "message-box msg-info"))
(span (@ (class "msg-label")) "Note ")
"The Guix System Distribution (GuixSD) is alpha software. This means it
is not production-ready. It may contain bugs and lack important features. But
more than a disclaimer, this is an invitation to join us in improving it. See "
(a (@ (href ,(url-base "/contribute"))) "Contributing")
", for more information. We hope you can soon switch to GuixSD without
fear. "))
(define (html-page-links)
`(div (@ (id "header-box"))
(a (@ (id "logo") (href ,(url-base "")))
(img (@ (src ,(img-url "GuixSD-logo.png"))
(alt "GuixSD"))))
(ul (@ (id "site-nav"))
(li (a (@ (href ,(url-base "/download"))) "Download"))
(li (a (@ (href "https://www.gnu.org/s/guix/package-list.html"))
"Packages"))
(li (a (@ (href ,(url-base "/help"))) "Help"))
(li (a (@ (href ,(url-base "/contribute"))) "Contribute"))
(li (a (@ (href ,(url-base "/donate"))) "Donate"))
(li (a (@ (href ,(url-base "/about"))) "About")))))
(define (html-page-footer)
`(div (@ (id "footer-box"))
"copyleft 2015 GuixSD "
(a (@ (href ,(url-base "/contribute")) (class "hlink-yellow"))
"Contributors")
". Made with " (span (@ (class "metta")) "♥") " by humans."))
|