(html (head (title "sph-lib (sph lang scm-format format)") (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 lang scm-format format)") (div (p "formatters for individual expressions") (p "part of " (a (@ (href "../../sph-lib.html")) "sph-lib")) (#f (section (@ (class "library-name")) (h1 "module name") (p "(sph lang scm-format format)")) (section (@ (class "library-exports")) (h1 "exported bindings") (div (div (@ (class "doc-bindings")) (div (@ (id "doc-b-" "format-application") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-application") " " (span (@ (class "first-sig")) "a config current-indent ->")) (div (@ (class "rest-sig")) (div "list hashtable integer -> string")) (div (@ (class "description")) (("format the standard list application form. example (append a b)")))) (div (@ (id "doc-b-" "format-docstring") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-docstring") " " (span (@ (class "first-sig")) "a offset-doublequote indent-string current-indent ->")) (div (@ (class "rest-sig")) (div "string hashtable integer -> string")) (div (@ (class "description")) (("parses a string and removes outside string indent from using newlines in a continuous string that is indented." (br) "adds current indent to all lines except the first." (br) "since old-indent is not available here, old-indent is guessed from the second line." (br) "if the second line is indented relative to the first line, this indent will unfortunately be removed for all lines")))) (div (@ (id "doc-b-" "format-hash-bang") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-hash-bang") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) "" "") (div (@ (id "doc-b-" "format-lambda") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-lambda") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) "" "") (div (@ (id "doc-b-" "format-let") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-let") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) "" "") (div (@ (id "doc-b-" "format-library") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-library") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) (div (@ (class "rest-sig")) (div "list procedure hashtable integer -> string")) "") (div (@ (id "doc-b-" "format-list") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-list") " " (span (@ (class "first-sig")) "a config current-indent start middle end ->")) "" (div (@ (class "description")) (("helper that customises config start/middle/end")))) (div (@ (id "doc-b-" "format-list-assoc") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-list-assoc") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) "" "") (div (@ (id "doc-b-" "format-list-f") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-list-f") " " (span (@ (class "first-sig")) "start mid end ->")) (div (@ (class "rest-sig")) (div "integer integer integer -> procedure:{any:expression recurse config indent -> (result false)}") (div "return a function for descend-prefix ->")) (div (@ (class "description")) (("format-f that formats a list with the given start/mid/end expression distribution")))) (div (@ (id "doc-b-" "format-quasiquote") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-quasiquote") " " (span (@ (class "first-sig")) "a ... ->")) "" "") (div (@ (id "doc-b-" "format-quasisyntax") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-quasisyntax") " " (span (@ (class "first-sig")) "a ... ->")) "" "") (div (@ (id "doc-b-" "format-quote") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-quote") " " (span (@ (class "first-sig")) "a ... ->")) "" "") (div (@ (id "doc-b-" "format-range-comment") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-range-comment") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) "" "") (div (@ (id "doc-b-" "format-scsh-block-comment") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-scsh-block-comment") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) "" "") (div (@ (id "doc-b-" "format-semicolon-comment") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-semicolon-comment") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) "" "") (div (@ (id "doc-b-" "format-string") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-string") " " (span (@ (class "first-sig")) "a rest ... ->")) "" "") (div (@ (id "doc-b-" "format-syntax") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-syntax") " " (span (@ (class "first-sig")) "a ... ->")) "" "") (div (@ (id "doc-b-" "format-test-module") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-test-module") " " (span (@ (class "first-sig")) "a recurse config current-indent ->")) (div (@ (class "rest-sig")) (div "list procedure hashtable integer -> string")) "") (div (@ (id "doc-b-" "format-unquote") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-unquote") " " (span (@ (class "first-sig")) "a ... ->")) "" "") (div (@ (id "doc-b-" "format-unsyntax") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "format-unsyntax") " " (span (@ (class "first-sig")) "a ... ->")) "" "") (div (@ (id "doc-b-" "string-join-with-vertical-spacing") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "string-join-with-vertical-spacing") " " (span (@ (class "first-sig")) "a indent vertical-spacing vertical-spacing-oneline ->")) (div (@ (class "rest-sig")) (div "(string ...) string string string -> string")) (div (@ (class "description")) (("join expressions eventually with empty lines inbetween them"))))))))))) ()))