derive-font ( base font -- font' )

Vocabulary

fonts

Inputs

base	an object
font	an object

Outputs

font'

an object

Definition

IN: fonts

GENERIC: derive-font ( base font -- font' )

Methods

USING: fonts kernel ;

M: f derive-font drop ;


USING: accessors combinators fonts kernel ;

M: font derive-font
    [ clone ] dip over {
        [ [ name>> ] either? >>name ]
        [ [ size>> ] either? >>size ]
        [ [ bold?>> ] either? >>bold? ]
        [ [ italic?>> ] either? >>italic? ]
        [ [ foreground>> ] either? >>foreground ]
        [ [ background>> ] either? >>background ]
    } 2cleave ;


USING: accessors assocs fonts fonts.shaping
fonts.shaping.private generic kernel ;

M: shaped-font derive-font
    [
        [ >shaped-font ] dip
        M\ shaped-font derive-font (call-next-method)
    ] keep
    font-shaping-options over shaping-options>> swap assoc-union
    >>shaping-options ;