(html (head (title "sph-lib (sph web shtml)") (link (@ (rel "stylesheet") (type "text/css") (href "/css/sph.css"))) (meta (@ (name "viewport") (content "width=device-width,initial-scale=1"))) #f) (body () (div (@ (class top)) (nav (a (@ (href "/")) "start") ", " (a (@ (href "/feed.xml")) "feed")) "") (div (@ (class "middle")) (div (@ (class mtime) (title "last modification time of the current page")) "2023-04-05") (section (h1 "(sph web shtml)") (div (p "helpers to create html via sxml") (p "part of " (a (@ (href "../../sph-lib.html")) "sph-lib")) (#f (section (@ (class "library-name")) (h1 "module name") (p "(sph web shtml)")) (section (@ (class "library-exports")) (h1 "exported bindings") (div (div (@ (class "doc-bindings")) (div (@ (id "doc-b-" "shtml->html") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "shtml->html") " " (span (@ (class "first-sig")) "shtml port ->")) "" (div (@ (class "description")) (("write html from shtml to port, adding a declaration at the beginning")))) (div (@ (id "doc-b-" "shtml-alist->options") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "shtml-alist->options") " " (span (@ (class "first-sig")) "a ->")) (div (@ (class "rest-sig")) (div "((content . string:value/false)/string ...) -> sxml:((option _ ...) ...)")) (div (@ (class "description")) (("create the shtml for multiple