gnucode.me/builders/builder.scm

;; (define-module (pages builder)
;;   #:use-module (haunt utils)
;;   #:use-module (haunt page)
;;   #:export (site-builder))

;; (define (site-builder site posts)
;;   ;;(flatten)
;;   ;; the definition of flatten is here
;;   ;; https://git.dthompson.us/haunt.git/tree/haunt/utils.scm
;;   (list
;;    (home-builder)))

;; (define (home-builder)
;;   "Return a haunt page representing the home page."
;;   (make-page "index.html" home-t sxml->html))

;; (define home-t
;;   `((doctype "html")
;;     (html
;;      (@ (lang "en"))
;;      (body
;;       ((head
;;         (title "Greg's Bar"))
;;        (header
;;         (div
;;          (img (@ (src "../images/cookie.svg") (alt "cookie") (width "60em")))
;;          (p "Greg's Bar")
;;          (img (@ (src "../images/cookie.svg") (alt "cookie") (width "60em")))
;;          )
;;         (nav
;;          (ul
;;           (li (a (@ (href "about")) "About"))
;;           (li (a (@ (href "Contact")) "Contact"))
;;           )))
;;        (div (@ (class "background-image"))
;;             (h1 "Welcome back!")
;;             (p "Learn to dance you socks off.")
;;             (img (@ (src "../images/cookie.svg") (alt "cookie") (width "60em")))
;;             (img (@ (src "../images/cookie.svg") (alt "cookie") (width "60em")))
;;             )
;;        (div
;;         (h3 "Salsa dance")
;;         (h5 "hot and sweaty")
;;         (p "learn how to salsa at this night.  learn how to salsa at this
;; night.  learn how to salsa at this night.  learn how to salsa at this
;; night.
;; ")
;;         (img (@ (src "../images/cookie.svg") (alt "salsa dancing") (width "60em"))))

;;        (div
;;         (h3 "Line dancing")
;;         (h5 "classic and smooth")
;;         (p "learn dancing is smooth and slow.  learn dancing is smooth
;; and slow.  learn dancing is smooth and slow.  learn dancing is smooth
;; and slow.")
;;         (img (@ (src "../images/cookie.svg") (alt "Line dancing") (width "60em"))))

;;        (div
;;         (h3 "street dancing")
;;         (h5 "wild and free")
;;         (p "Come listen to the hipster music.  Come listen to the
;; hipster music.  Come listen to the hipster music.  Come listen to the
;; hipster music. ")
;;         (img (@ (src "../images/cookie.svg") (alt "street dancing") (width "60em"))))
;;        (button "Learn More")
;;        (div
;;         (h2 "Lorum Ipsum")
;;         (h5 "HOURS")
;;         (p "5-1pm
;;  5-1pm
;; 5-1pm")
;;         (p "5-1pm
;;  5-1pm
;; 5-1pm")
;;         (p "5-1pm
;;  5-1pm
;; 5-1pm")
;;         (p "5-1pm
;;  5-1pm
;; 5-1pm")
;;         )
;;        (button "Learn more")
;;        (h2 "Background")
;;        (h5 "How we got started")
;;        (p "emacs is soo cool!
;;     emacs is soo cool!
;;     emacs is soo cool!
;;     emacs is soo cool!")
;;        (p "emacs is soo cool!
;;     emacs is soo cool!
;;     emacs is soo cool!
;;     emacs is soo cool!")
;;        (p "emacs is soo cool!
;;     emacs is soo cool!
;;     emacs is soo cool!
;;     emacs is soo cool!")
;;        (p "emacs is soo cool!
;;     emacs is soo cool!
;;     emacs is soo cool!
;;     emacs is soo cool!")
;;        (button "Learn more")
;;        (div "map")
;;        (footer
;;         (div
;;          (h2 "Call us!")
;;          (p "text text text"))
;;         (form (@ (action "post.scm") (method "post"))
;;               (label (@ (for "name")) "name")
;;               (input (@ (type "email") (name "name") (placeholder "youremail@example.com")))
;;               (label (@ (for "email")) "email")
;;               (input (@ (type "email") (name "email") (placeholder "youremail@example.com")))
;;               (label (@ (for "phone")) "phone")
;;               (input (@ (type "phone") (name "phone") (placeholder "youremail@example.com")))
;;               (label (@ (for "address")) "address")
;;               (input (@ (type "text") (name "address") (placeholder "youremail@example.com")))
;;               (label (@ (for "subject")) "subject")
;;               (input (@ (type "email") (name "subject") (placeholder "youremail@example.com")))
;;               (label (@ (for "name")) "message")
;;               (input (@ (type "email") (name "message") (placeholder "youremail@example.com")))
;;               )
;;         (p "Copyright information")))))))