2008-07-16 00:02:04 -04:00
|
|
|
! Copyright (C) 2008 William Schlieper
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
|
|
|
|
|
USING: kernel io.files parser editors sequences ;
|
|
|
|
|
|
|
|
|
|
IN: irc.ui.load
|
|
|
|
|
|
2008-07-16 19:33:33 -04:00
|
|
|
: file-or ( path path -- path ) [ [ exists? ] keep ] dip ? ;
|
2008-07-16 00:02:04 -04:00
|
|
|
|
|
|
|
|
: personal-ui-rc ( -- path ) home ".ircui-rc" append-path ;
|
|
|
|
|
|
|
|
|
|
: system-ui-rc ( -- path ) "extra/irc/ui/ircui-rc" resource-path ;
|
|
|
|
|
|
|
|
|
|
: ircui-rc ( -- path ) personal-ui-rc system-ui-rc file-or ;
|
|
|
|
|
|
|
|
|
|
: run-ircui ( -- ) ircui-rc run-file ;
|
