unmaintained/irc-ui/load/load.factor

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