derive-font ( base font -- font' )

Vocabulary

fonts

Inputs

base	an object
font	an object

Outputs

font'

an object

Definition

USING: accessors combinators kernel ;

IN: fonts

: derive-font ( base font -- font' )
    [
        [ clone ] dip over {
            [ [ name>> ] either? >>name ]
            [ [ size>> ] either? >>size ]
            [ [ bold?>> ] either? >>bold? ]
            [ [ italic?>> ] either? >>italic? ]
            [ [ foreground>> ] either? >>foreground ]
            [ [ background>> ] either? >>background ]
        } 2cleave
    ] when* ;