basis/editors/editpadlite/editpadlite.factor

   1 USING: combinators.short-circuit editors io.standard-paths
   2 kernel make namespaces ;
   3 IN: editors.editpadlite
   4
   5 SINGLETON: editpadlite
   6
   7 editor-class [ editpadlite ] initialize
   8
   9 : editpadlite-path ( -- path )
  10     \ editpadlite-path get [
  11         {
  12             [ { "Just Great Software" "JGsoft" } "editpadlite.exe" find-in-applications ]
  13             [ { "Just Great Software" "JGsoft" } "editpadlite7.exe" find-in-applications ]
  14             [ "editpadlite7.exe" ]
  15         } 0||
  16     ] unless* ;
  17
  18 M: editpadlite editor-command
  19     drop
  20     [ editpadlite-path , , ] { } make ;