steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

launch editors with run-detached. the naming convention foo-location doesn't make sense with some text editors, so rename the edit words to the text editor name

db4
Doug Coleman 2009-05-15 16:12:13 -05:00
parent 3c49944fc1
commit a0b9cfd602
3 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/editors/scite/scite.factor
View File

@ -25,7 +25,7 @@ IN: editors.scite
number>string "-goto:" prepend , number>string "-goto:" prepend ,
] { } make ; ] { } make ;
: scite-location ( file line -- ) : scite ( file line -- )
scite-command run-detached drop ; scite-command run-detached drop ;
[ scite-location ] edit-hook set-global [ scite ] edit-hook set-global

6
basis/editors/textedit/textedit.factor
View File

@ -2,9 +2,9 @@ USING: definitions io.launcher kernel math math.parser parser
namespaces prettyprint editors make ; namespaces prettyprint editors make ;
IN: editors.textedit IN: editors.textedit
: textedit-location ( file line -- ) : textedit ( file line -- )
drop drop
[ "open" , "-a" , "TextEdit", , ] { } make [ "open" , "-a" , "TextEdit", , ] { } make
try-process ; run-detached drop ;
[ textedit-location ] edit-hook set-global [ textedit ] edit-hook set-global

7
basis/editors/textmate/textmate.factor
View File

@ -1,10 +1,9 @@
USING: definitions io.launcher kernel math math.parser parser USING: definitions io.launcher kernel math math.parser parser
namespaces prettyprint editors make ; namespaces prettyprint editors make ;
IN: editors.textmate IN: editors.textmate
: textmate-location ( file line -- ) : textmate ( file line -- )
[ "mate" , "-a" , "-l" , number>string , , ] { } make [ "mate" , "-a" , "-l" , number>string , , ] { } make
try-process ; run-detached drop ;
[ textmate-location ] edit-hook set-global [ textmate ] edit-hook set-global