27 lines
704 B
Scheme
27 lines
704 B
Scheme
;;; site/index.scm
|
|
|
|
;; The homepage for the site
|
|
|
|
(define title "My cool website!")
|
|
(define author "~me!")
|
|
|
|
`(,@(import "header.scm")
|
|
(p "This is my website :)"
|
|
"I hope you like it :))"
|
|
"The following sections test various SGT rule cases"
|
|
"")
|
|
(h1 "Header 1")
|
|
(h2 "Header 2")
|
|
(h3 "Header 3")
|
|
(pre "Preformatted text"
|
|
" Oh yeah.")
|
|
(a ,(build-uri 'https #:host "example.com"))
|
|
(a ,(build-uri 'https #:host "example.com") "Example")
|
|
(a "https://example.com")
|
|
(a "https://example.com" "Example")
|
|
(q "Thisssssssss." "quote.exposed")
|
|
(ul (li "List element 1")
|
|
(li "List element 2"))
|
|
(p)
|
|
(p "Paragraph test." "Above and below should be <br/>s")
|
|
(p ""))
|