command-gestures ( class -- hash )

Vocabulary

ui.commands

Inputs

class

an object

Outputs

hash

an object

Definition

USING: accessors assocs kernel make sequences ;

IN: ui.commands

: command-gestures ( class -- hash )
    commands values [
        [
            commands>> sift-keys
            [ [ invoke-command ] curry swap ,, ] assoc-each
        ] each
    ] H{ } make ;