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

help.html: don't use sprintf.

master
John Benediktsson 2020-02-22 20:40:11 -08:00
parent 83e46eb030
commit 79add00e24
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,8 +1,8 @@
! Copyright (C) 2008, 2011 Slava Pestov. ! Copyright (C) 2008, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators.short-circuit USING: accessors arrays assocs combinators.short-circuit
debugger formatting fry help help.home help.topics help.vocabs debugger fry help help.home help.topics help.vocabs html
html html.streams io.directories io.encodings.binary html.streams io.directories io.encodings.binary
io.encodings.utf8 io.files io.files.temp io.pathnames kernel io.encodings.utf8 io.files io.files.temp io.pathnames kernel
locals make math math.parser memoize namespaces regexp sequences locals make math math.parser memoize namespaces regexp sequences
sequences.deep serialize sorting splitting tools.completion sequences.deep serialize sorting splitting tools.completion
@ -93,7 +93,8 @@ M: pathname url-of
: css-style ( style -- style' ) : css-style ( style -- style' )
R/ font-size: \d+pt;/ [ R/ font-size: \d+pt;/ [
"font-size: " ?head drop "pt;" ?tail drop "font-size: " ?head drop "pt;" ?tail drop
string>number 12 / "font-size: %frem;" sprintf string>number 12 /f number>string
"font-size: " "rem; " surround
] re-replace-with ; ] re-replace-with ;
: css-classes ( classes -- stylesheet ) : css-classes ( classes -- stylesheet )

2
basis/help/html/stylesheet.css
View File

@ -52,5 +52,5 @@ tr:hover {
.page { .page {
margin: 20px; margin: 20px;
max-width: 800px; max-width: 800px;
line-height: 150%; line-height: 140%;
} }