Updating extra/ for launcher changes

extra/editors/editpadpro/editpadpro.factor

@@ -10,6 +10,8 @@ IN: editors.editpadpro
     ] unless* ;
 
 : 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

extra/editors/editplus/editplus.factor

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

extra/editors/emacs/emacs.factor

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

extra/editors/emeditor/emeditor.factor

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

extra/editors/notepadpp/notepadpp.factor

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

extra/editors/scite/scite.factor

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

extra/editors/ted-notepad/ted-notepad.factor

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

extra/editors/textmate/textmate.factor

@@ -4,6 +4,7 @@ namespaces prettyprint editors ;
 IN: editors.textmate
 
 : 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

extra/editors/ultraedit/ultraedit.factor

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

extra/editors/vim/vim.factor

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

extra/editors/wordpad/wordpad.factor

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

extra/tools/deploy/macosx/macosx.factor

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