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

html.streams: monospace uses pre-wrap, wrap-margin sets width.

flac
John Benediktsson 2020-03-01 09:57:10 -08:00 committed by Steve Ayerhart
parent 1e5bd820f8
commit a9d7d39425
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -55,7 +55,8 @@ TUPLE: html-sub-stream < html-writer style parent ;
"font-size: " % # "pt; " % ; "font-size: " % # "pt; " % ;
: font-css, ( font -- ) : font-css, ( font -- )
"font-family: " % % "; " % ; [ "font-family: " % % "; " % ]
[ "monospace" = [ "white-space: pre-wrap; " % ] when ] bi ;
MACRO: make-css ( pairs -- str ) MACRO: make-css ( pairs -- str )
[ '[ _ of [ _ execute ] when* ] ] { } assoc>map [ '[ _ of [ _ execute ] when* ] ] { } assoc>map
@ -111,7 +112,8 @@ M: html-span-stream dispose
: padding-css, ( padding -- ) : padding-css, ( padding -- )
first2 (padding-css,) ; first2 (padding-css,) ;
CONSTANT: pre-css "white-space: pre; font-family: monospace; " : width-css, ( width -- )
"width: " % # "px; " % ;
: div-css-style ( style -- str ) : div-css-style ( style -- str )
[ span-css-style ] [ span-css-style ]
@ -120,9 +122,9 @@ CONSTANT: pre-css "white-space: pre; font-family: monospace; "
{ page-color bg-css, } { page-color bg-css, }
{ border-color border-css, } { border-color border-css, }
{ inset padding-css, } { inset padding-css, }
{ wrap-margin width-css, }
} make-css } make-css
] [ wrap-margin of [ pre-css append ] unless ] tri ] bi "display: inline-block; " 3append ;
"display: inline-block; " 3append ;
: div-tag ( xml style -- xml' ) : div-tag ( xml style -- xml' )
div-css-style div-css-style