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 editpadlite editor-class set-global
   7
   8 : editpadlite-path ( -- path )
   9     \ editpadlite-path get [
  10         {
  11             [ { "Just Great Software" "JGsoft" } "editpadlite.exe" find-in-applications ]
  12             [ { "Just Great Software" "JGsoft" } "editpadlite7.exe" find-in-applications ]
  13             [ "editpadlite7.exe" ]
  14         } 0||
  15     ] unless* ;
  16
  17 M: editpadlite editor-command
  18     drop
  19     [ editpadlite-path , , ] { } make ;