command-name ( command -- str )

Vocabulary

ui.commands

Inputs

command

a command

Outputs

str

a string

Word description

Outputs a human-readable name for the command.

Examples

USING: io ui.commands ; IN: scratchpad : com-my-command ( -- ) ; \ com-my-command command-name write
My Command

Definition

IN: ui.commands

GENERIC: command-name ( command -- str )

Methods

USING: accessors ui.commands ui.operations ;

M: operation command-name command>> command-name ;


USING: accessors kernel sequences splitting ui.commands unicode
words ;

M: word command-name
    name>> "com-" ?head drop "." ?tail drop dup first Letter?
    [ rest ] unless (command-name) ;