         number>string "padding: " "px;" surround
     ] re-replace-with
 
-    R/ white-space: pre;/ [
+    R/ width: \d+px;/ [
+       drop ""
+    ] re-replace-with
+
+    R/ font-family: monospace;/ [
         " line-height: 125%;" append
     ] re-replace-with ;
 

    [ article-title " - Factor Documentation" append ]
    [
        [ print-topic ] with-html-writer css-styles-to-classes
        [ help-stylesheet help-navbar ] dip
        [XML <div id="container"><-><div class="page"><-></div></div> XML]
    ] bi simple-page ;


    "vocab:help/html/stylesheet.css" ascii file-contents
    swap "\n" glue [XML <style><-></style> XML] ;

: help-meta ( -- xml )
    [XML <meta
            name="viewport"
            content="width=device-width, initial-scale=1"
        /> XML] ;

: help-navbar ( -- xml )
    "conventions" >link topic>filename
    [XML
