extra/factory/load/load.factor

   1
   2 USING: kernel io.files parser editors sequences ;
   3
   4 IN: factory.load
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : file-or ( file file -- file ) over exists? [ drop ] [ nip ] if ;
   9
  10 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  11
  12 : personal-factory-rc ( -- path ) home "/.factory-rc" append ;
  13
  14 : system-factory-rc ( -- path ) "extra/factory/factory-rc" resource-path ;
  15
  16 : factory-rc ( -- path ) personal-factory-rc system-factory-rc file-or ;
  17
  18 : load-factory-rc ( -- ) factory-rc run-file ;
  19
  20 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  21
  22 : personal-factory-menus ( -- path ) home "/.factory-menus" append ;
  23
  24 : system-factory-menus ( -- path )
  25 "extra/factory/factory-menus" resource-path ;
  26
  27 : factory-menus ( -- path )
  28 personal-factory-menus system-factory-menus file-or ;
  29
  30 : load-factory-menus ( -- ) factory-menus run-file ;
  31
  32 : edit-factory-menus ( -- ) factory-menus 0 edit-location ;