basis/editors/editpadlite/editpadlite.factor

   1 USING: definitions kernel parser words sequences math.parser
   2 namespaces editors io.launcher windows.shell32 io.files
   3 io.directories.search.windows strings unicode.case make ;
   4 IN: editors.editpadlite
   5
   6 : editpadlite-path ( -- path )
   7     \ editpadlite-path get-global [
   8         "JGsoft" t [ >lower "editpadlite.exe" tail? ] find-in-program-files
   9         [ "editpadlite.exe" ] unless*
  10     ] unless* ;
  11
  12 : editpadlite ( file line -- )
  13     [
  14         editpadlite-path , drop ,
  15     ] { } make run-detached drop ;
  16
  17 [ editpadlite ] edit-hook set-global