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 coteditor editor-class set-global
   7
   8 : find-cot-bundle-path ( -- path/f )
   9     "com.coteditor.CotEditor" find-native-bundle [
  10         "Contents/MacOS/cot" append-path
  11     ] [
  12         f
  13     ] if* ;
  14
  15 M: coteditor editor-command
  16     [ find-cot-bundle-path , "-l" , number>string , , ] { } make ;