steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Got /commands actually working, irc.ui no longer uses make-gadget et al

db4
William Schlieper 2008-07-15 02:46:49 -04:00
parent 26da6f40c0
commit c02397d3a4
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/irc/ui/commandparser/commandparser.factor
View File

@ -1,16 +1,17 @@
! Copyright (C) 2008 William Schlieper
! See http://factorcode.org/license.txt for BSD license.
USING: kernel vocabs.loader sequences strings irc.messages ;
USING: kernel vocabs.loader sequences strings splitting words irc.messages ;
IN: irc.ui.commandparser
"irc.ui.commands" require
: command ( string -- command )
: command ( string string -- string command )
dup empty? [ drop "say" ] when
dup "irc.ui.commands" lookup
[ "quote" "irc.ui.commands" lookup ] unless* ;
[ nip ]
[ " " append prepend "quote" "irc.ui.commands" lookup ] if* ;
: parse-message ( string -- )
"/" head? [ " " split1 swap command execute ] when ;
"/" ?head [ " " split1 swap command ] [ "say" command ] if execute ;

2
extra/irc/ui/commands/commands.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 William Schlieper
! See http://factorcode.org/license.txt for BSD license.
USING: kernel irc.client irc.messages irc.ui
USING: accessors kernel irc.client irc.messages irc.ui namespaces ;
IN: irc.ui.commands

13
extra/irc/ui/ui.factor
View File

@ -95,10 +95,10 @@ M: irc-message write-irc
TUPLE: irc-editor < editor outstream listener client ;
: <irc-editor> ( pane listener client -- editor )
[ irc-editor new-editor
: <irc-editor> ( page pane listener -- client editor )
irc-editor new-editor
swap >>listener swap <pane-stream> >>outstream
] dip >>client ;
over client>> >>client ;
: editor-send ( irc-editor -- )
{ [ outstream>> ]
@ -117,10 +117,9 @@ TUPLE: irc-page < frame listener client ;
: <irc-page> ( listener client -- irc-page )
irc-page new-frame
[ g swap client>> >>client swap [ swap (>>listener) ] keep
[ <irc-pane> [ <scroller> g @center grid-add ] keep ]
[ g client>> <irc-editor> <scroller> g @bottom grid-add ] bi
g ] with-gadget ;
swap client>> >>client swap [ >>listener ] keep
[ <irc-pane> [ <scroller> @center grid-add* ] keep ]
[ <irc-editor> <scroller> @bottom grid-add* ] bi ;
M: irc-page graft*
[ listener>> ] [ client>> ] bi