     "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

        number>string "padding: " "px;" surround
    ] re-replace-with

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


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

