17 lines
467 B
Factor
17 lines
467 B
Factor
|
! Copyright (C) 2008 William Schlieper
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
|
||
|
|
USING: kernel vocabs.loader sequences strings irc.messages ;
|
||
|
|
|
||
|
|
IN: irc.ui.commandparser
|
||
|
|
|
||
|
|
"irc.ui.commands" require
|
||
|
|
|
||
|
|
: command ( string -- command )
|
||
|
|
dup empty? [ drop "say" ] when
|
||
|
|
dup "irc.ui.commands" lookup
|
||
|
|
[ "quote" "irc.ui.commands" lookup ] unless* ;
|
||
|
|
|
||
|
|
: parse-message ( string -- )
|
||
|
|
"/" head? [ " " split1 swap command execute ] when ;
|