command-name ( command -- str ) (original) (raw)

command-name ( command -- str )

Vocabulary
ui.commands

Inputs

Outputs

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) ;