23 lines
856 B
Scheme
23 lines
856 B
Scheme
;; todo: module
|
|
(define (overall-wrapper content)
|
|
`(html
|
|
(link (@ (rel "stylesheet")
|
|
(type "text/css")
|
|
(href "style.css")))
|
|
(head (title "Welcome to GuileDocs"))
|
|
(body
|
|
(div (@ (id "overall-wrapper"))
|
|
(header (h3 "🚀GuileDocs")
|
|
(input (@ (type "text")
|
|
(placeholder "Search (ctrl-s)")))
|
|
(menu (li "Core Library")
|
|
(li "Quick Ref")))
|
|
(nav (section (h4 "Navigation")
|
|
(menu (li "Top")
|
|
(li "Examples")
|
|
(li "See Also")))
|
|
(section (h4 "Namespace")
|
|
(menu (li "guile")
|
|
(li "srfi"))))
|
|
,content
|
|
(footer (p (i "powered by solarpunks.")))))))
|