steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.html: more responsive help docs.

master
John Benediktsson 2020-03-01 10:26:47 -08:00
parent e07abedafe
commit c64d9032b5
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/help/html/html.factor
View File

@ -70,6 +70,12 @@ M: pathname url-of
"vocab:help/html/stylesheet.css" ascii file-contents "vocab:help/html/stylesheet.css" ascii file-contents
swap "\n" glue [XML <style><-></style> XML] ; 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 ) : help-navbar ( -- xml )
"conventions" >link topic>filename "conventions" >link topic>filename
[XML [XML
@ -105,7 +111,11 @@ M: pathname url-of
number>string "padding: " "px;" surround number>string "padding: " "px;" surround
] re-replace-with ] re-replace-with
R/ white-space: pre;/ [ R/ width: \d+px;/ [
drop ""
] re-replace-with
R/ font-family: monospace;/ [
" line-height: 125%;" append " line-height: 125%;" append
] re-replace-with ; ] re-replace-with ;
@ -136,7 +146,7 @@ M: pathname url-of
[ article-title " - Factor Documentation" append ] [ article-title " - Factor Documentation" append ]
[ [
[ print-topic ] with-html-writer css-styles-to-classes [ 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] [XML <div id="container"><-><div class="page"><-></div></div> XML]
] bi simple-page ; ] bi simple-page ;