17 lines
442 B
Factor
17 lines
442 B
Factor
|
USING: editors io.pathnames io.standard-paths kernel make
|
||
|
|
math.parser namespaces ;
|
||
|
|
IN: editors.coteditor
|
||
|
|
|
||
|
|
SINGLETON: coteditor
|
||
|
|
coteditor editor-class set-global
|
||
|
|
|
||
|
|
: find-cot-bundle-path ( -- path/f )
|
||
|
|
"com.coteditor.CotEditor" find-native-bundle [
|
||
|
|
"Contents/MacOS/cot" append-path
|
||
|
|
] [
|
||
|
|
f
|
||
|
|
] if* ;
|
||
|
|
|
||
|
|
M: coteditor editor-command ( file line -- command )
|
||
|
|
[ find-cot-bundle-path , "-l" , number>string , , ] { } make ;
|