| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122 |
- ;; (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")))))))
|
