basis/editors/editpadpro/editpadpro.factor

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