insertion-quot ( quot -- quot' )

Vocabulary

ui.gadgets.layout

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: kernel make namespaces sequences ;

IN: ui.gadgets.layout

: insertion-quot ( quot -- quot' )
    building get [
        [ placeholder? ] find-last nip
        [ <placeholder> dup , ] unless* [ templates get ] 2dip
        swap
        [ [ [ templates set ] curry ] dip [ , ] curry compose ]
        dip compose [ with-interface ] curry
    ] when* ;