 : css-class ( style classes -- name )
     dup '[ drop _ assoc-size 1 + bijective-base26 ] cache ;
 
-: css-style ( style -- style' )
+: fix-css-style ( style -- style' )
     R/ font-size: \d+pt;/ [
         "font-size: " ?head drop "pt;" ?tail drop
         string>number 2 -

        " white-space: pre-wrap; line-height: 125%;" append
    ] re-replace-with ;

: css-classes ( classes -- stylesheet )
    [
        [ css-style " { " "}" surround ] [ "." prepend ] bi* prepend
    ] { } assoc>map join-lines ;

:: css-styles-to-classes ( body -- stylesheet body )

    [XML <meta
            name="viewport"
            content="width=device-width, initial-scale=1"
            charset="utf-8"
        /> XML] ;

: help-navbar ( -- xml )
