papier-key ( gesture -- key/f )

Vocabulary

papier

Inputs

gesture

an object

Outputs

key/f

an object

Definition

USING: accessors kernel sequences ui.gestures unicode ;

IN: papier

: papier-key ( gesture -- key/f )
    dup key-gesture? [
        sym>> >lower dup
        { "left" "right" "up" "down" "a" "d" "w" "s" "esc" }
        member? [ drop f ] unless
    ] [ drop f ] if ;