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