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

io.styles: change style-stream to inherit all styles by default.

flac
John Benediktsson 2020-02-19 19:53:21 -08:00 committed by Steve Ayerhart
parent dbfca14c8a
commit 2b2eb4be59
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 1 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/io/styles/styles.factor
View File

@ -61,12 +61,10 @@ C: <ignore-close-stream> ignore-close-stream
TUPLE: style-stream < filter-writer style ; TUPLE: style-stream < filter-writer style ;
INSTANCE: style-stream output-stream INSTANCE: style-stream output-stream
DEFER: inherit-style
<PRIVATE <PRIVATE
: nested-style ( style style-stream -- style stream ) : nested-style ( style style-stream -- style stream )
[ style>> inherit-style ] [ stream>> ] bi ; inline [ style>> swap assoc-union ] [ stream>> ] bi ; inline
PRIVATE> PRIVATE>
@ -149,18 +147,6 @@ CONSTANT: standard-table-style
{ table-border T{ rgba f 0.8 0.8 0.8 1.0 } } { table-border T{ rgba f 0.8 0.8 0.8 1.0 } }
} }
<PRIVATE
: inherit? ( format -- ? )
HS{
foreground background font-name font-size font-style
} in? ;
PRIVATE>
: inherit-style ( child parent -- child' )
[ drop inherit? ] assoc-filter swap assoc-union! ;
! Input history ! Input history
TUPLE: input string ; TUPLE: input string ;