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

help.html: cleanup extra spaces.

db4
John Benediktsson 2015-09-14 15:43:33 -07:00
parent 74d8e43312
commit ba3f342bf1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -94,7 +94,7 @@ M: pathname url-of
: css-classes ( classes -- stylesheet ) : css-classes ( classes -- stylesheet )
[ [
[ " { " " }" surround ] [ "." prepend ] bi* prepend [ " { " "}" surround ] [ "." prepend ] bi* prepend
] { } assoc>map "\n" join ; ] { } assoc>map "\n" join ;
:: css-styles-to-classes ( body -- stylesheet body ) :: css-styles-to-classes ( body -- stylesheet body )

2
basis/html/streams/streams.factor
View File

@ -121,7 +121,7 @@ CONSTANT: pre-css "white-space: pre; font-family: monospace;"
{ inset padding-css, } { inset padding-css, }
} make-css } make-css
] [ wrap-margin of [ pre-css append ] unless ] bi ] [ wrap-margin of [ pre-css append ] unless ] bi
" display: inline-block;" append ; "display: inline-block; " append ;
: div-tag ( xml style -- xml' ) : div-tag ( xml style -- xml' )
div-css-style div-css-style