sub/graph-=attr ( attr -- )

Vocabulary

graphviz.notation.private

Inputs

attr

an object

Outputs

None

Definition

USING: graphviz graphviz.attributes kernel present quotations
slots words ;

IN: graphviz.notation.private

: sub/graph-=attr ( attr -- )
    [ graph subgraph ] dip [
        =attr-method setter-word 1quotation
        [ [ <graph-attributes> swap present ] ] dip
        [ add ] compose compose define
    ] curry bi@ ;