help.html: more responsive help docs.

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 9805ce5fc6704592cb9422441f06e3f849e67194..4a11cff73695ba804257755c4c1c8790e54ea1fb 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -70,6 +70,12 @@ M: pathname url-of
     "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
@@ -105,7 +111,11 @@ M: pathname url-of
         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 ;
 
@@ -136,7 +146,7 @@ M: pathname url-of
     [ article-title " - Factor Documentation" append ]
     [
         [ print-topic ] with-html-writer css-styles-to-classes
-        [ help-stylesheet help-navbar ] dip
+        [ help-stylesheet help-meta prepend help-navbar ] dip
         [XML <div id="container"><-><div class="page"><-></div></div> XML]
     ] bi simple-page ;