1 ! Copyright (C) 2008 William Schlieper
\r
2 ! See http://factorcode.org/license.txt for BSD license.
\r
4 USING: kernel io.files parser editors sequences ;
\r
8 : file-or ( path path -- path ) [ [ exists? ] keep ] dip ? ;
\r
10 : personal-ui-rc ( -- path ) home ".ircui-rc" append-path ;
\r
12 : system-ui-rc ( -- path ) "extra/irc/ui/ircui-rc" resource-path ;
\r
14 : ircui-rc ( -- path ) personal-ui-rc system-ui-rc file-or ;
\r
16 : run-ircui ( -- ) ircui-rc run-file ;
\r