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

Updating extra/ for launcher changes

db4
Slava Pestov 2008-01-24 03:50:40 -04:00
parent af915caaa3
commit d621b9852e
12 changed files with 35 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/editors/editpadpro/editpadpro.factor Normal file → Executable file
View File

@ -10,6 +10,8 @@ IN: editors.editpadpro
] unless* ; ] unless* ;
: editpadpro ( file line -- ) : editpadpro ( file line -- )
[ editpadpro-path % " /l" % # " \"" % % "\"" % ] "" make run-detached ; [
editpadpro-path , "/l" swap number>string append , ,
] { } make run-detached drop ;
[ editpadpro ] edit-hook set-global [ editpadpro ] edit-hook set-global

4
extra/editors/editplus/editplus.factor
View File

@ -9,7 +9,7 @@ IN: editors.editplus
: editplus ( file line -- ) : editplus ( file line -- )
[ [
editplus-path % " -cursor " % # " " % % editplus-path , "-cursor" , number>string , ,
] "" make run-detached ; ] { } make run-detached drop ;
[ editplus ] edit-hook set-global [ editplus ] edit-hook set-global

7
extra/editors/emacs/emacs.factor Normal file → Executable file
View File

@ -4,8 +4,11 @@ IN: editors.emacs
: emacsclient ( file line -- ) : emacsclient ( file line -- )
[ [
"emacsclient --no-wait +" % # " " % % "emacsclient" ,
] "" make run-process ; "--no-wait" ,
"+" swap number>string append ,
,
] { } make run-process drop ;
: emacs ( word -- ) : emacs ( word -- )
where first2 emacsclient ; where first2 emacsclient ;

5
extra/editors/emeditor/emeditor.factor
View File

@ -9,8 +9,7 @@ IN: editors.emeditor
: emeditor ( file line -- ) : emeditor ( file line -- )
[ [
emeditor-path % " /l " % # emeditor-path , "/l" , number>string , ,
" " % "\"" % % "\"" % ] { } make run-detached drop ;
] "" make run-detached ;
[ emeditor ] edit-hook set-global [ emeditor ] edit-hook set-global

5
extra/editors/notepadpp/notepadpp.factor Normal file → Executable file
View File

@ -9,7 +9,8 @@ IN: editors.notepadpp
: notepadpp ( file line -- ) : notepadpp ( file line -- )
[ [
notepadpp-path % " -n" % # " " % % notepadpp-path ,
] "" make run-detached ; "-n" swap number>string append , ,
] "" make run-detached drop ;
[ notepadpp ] edit-hook set-global [ notepadpp ] edit-hook set-global

13
extra/editors/scite/scite.factor Normal file → Executable file
View File

@ -18,14 +18,13 @@ SYMBOL: scite-path
: scite-command ( file line -- cmd ) : scite-command ( file line -- cmd )
swap swap
[ scite-path get % [
" \"" % scite-path get ,
% ,
"\" -goto:" % "-goto:" swap number>string append ,
# ] { } make ;
] "" make ;
: scite-location ( file line -- ) : scite-location ( file line -- )
scite-command run-detached ; scite-command run-detached drop ;
[ scite-location ] edit-hook set-global [ scite-location ] edit-hook set-global

5
extra/editors/ted-notepad/ted-notepad.factor Normal file → Executable file
View File

@ -9,8 +9,7 @@ IN: editors.ted-notepad
: ted-notepad ( file line -- ) : ted-notepad ( file line -- )
[ [
ted-notepad-path % " /l" % # ted-notepad-path , "/l" swap number>string append , ,
" " % % ] { } make run-detached drop ;
] "" make run-detached ;
[ ted-notepad ] edit-hook set-global [ ted-notepad ] edit-hook set-global

3
extra/editors/textmate/textmate.factor Normal file → Executable file
View File

@ -4,6 +4,7 @@ namespaces prettyprint editors ;
IN: editors.textmate IN: editors.textmate
: textmate-location ( file line -- ) : textmate-location ( file line -- )
[ "mate -a -l " % # " " % unparse % ] "" make run-process ; [ "mate" , "-a" , "-l" , number>string , , ] { } make
run-process drop ;
[ textmate-location ] edit-hook set-global [ textmate-location ] edit-hook set-global

4
extra/editors/ultraedit/ultraedit.factor Normal file → Executable file
View File

@ -10,8 +10,8 @@ IN: editors.ultraedit
: ultraedit ( file line -- ) : ultraedit ( file line -- )
[ [
ultraedit-path % " " % swap % "/" % # "/1" % ultraedit-path , [ % "/" % # "/1" % ] "" make ,
] "" make run-detached ; ] { } make run-detached drop ;
[ ultraedit ] edit-hook set-global [ ultraedit ] edit-hook set-global

8
extra/editors/vim/vim.factor Normal file → Executable file
View File

@ -10,13 +10,15 @@ HOOK: vim-command vim-editor
TUPLE: vim ; TUPLE: vim ;
M: vim vim-command ( file line -- string ) M: vim vim-command ( file line -- array )
[ "\"" % vim-path get % "\" \"" % swap % "\" +" % # ] "" make ; [
vim-path get , swap , "+" swap number>string append ,
] { } make ;
: vim-location ( file line -- ) : vim-location ( file line -- )
vim-command vim-command
vim-detach get-global vim-detach get-global
[ run-detached ] [ run-process ] if ; [ run-detached ] [ run-process ] if drop ;
"vim" vim-path set-global "vim" vim-path set-global
[ vim-location ] edit-hook set-global [ vim-location ] edit-hook set-global

4
extra/editors/wordpad/wordpad.factor Normal file → Executable file
View File

@ -8,8 +8,6 @@ IN: editors.wordpad
] unless* ; ] unless* ;
: wordpad ( file line -- ) : wordpad ( file line -- )
[ drop wordpad-path swap 2array run-detached drop ;
wordpad-path % drop " " % "\"" % % "\"" %
] "" make run-detached ;
[ wordpad ] edit-hook set-global [ wordpad ] edit-hook set-global

4
extra/tools/deploy/macosx/macosx.factor
View File

@ -8,10 +8,10 @@ QUALIFIED: unix
IN: tools.deploy.macosx IN: tools.deploy.macosx
: touch ( path -- ) : touch ( path -- )
{ "touch" } swap add run-process ; { "touch" } swap add run-process drop ;
: rm ( path -- ) : rm ( path -- )
{ "rm" "-rf" } swap add run-process ; { "rm" "-rf" } swap add run-process drop ;
: bundle-dir ( -- dir ) : bundle-dir ( -- dir )
vm parent-directory parent-directory ; vm parent-directory parent-directory ;