basis/editors/coteditor/coteditor.factor

   1 USING: editors io.pathnames io.standard-paths kernel make
   2 math.parser namespaces ;
   3 IN: editors.coteditor
   4
   5 SINGLETON: coteditor
   6
   7 editor-class [ coteditor ] initialize
   8
   9 : find-cot-bundle-path ( -- path/f )
  10     "com.coteditor.CotEditor" find-native-bundle [
  11         "Contents/MacOS/cot" append-path
  12     ] [
  13         f
  14     ] if* ;
  15
  16 M: coteditor editor-command
  17     [ find-cot-bundle-path , "-l" , number>string , , ] { } make ;