editors: bunch of cleanup.

basis/editors/atom/atom.factor

@@ -1,16 +1,17 @@
 ! Copyright (C) 2014 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: editors kernel make math.parser namespaces sequences ;
+USING: editors io.standard-paths kernel make math.parser
+namespaces sequences ;
 IN: editors.atom
 
 SINGLETON: atom-editor
-atom-editor \ editor-class set-global
+atom-editor editor-class set-global
 
 SYMBOL: atom-path
 
 M: atom-editor editor-command ( file line -- command )
     [
-        atom-path get "atom" or ,
+        atom-path get [ "atom" ?find-in-path ] unless* ,
         number>string ":" glue ,
     ] { } make ;
 

basis/editors/editpadlite/editpadlite.factor

@@ -6,7 +6,7 @@ SINGLETON: editpadlite
 editpadlite editor-class set-global
 
 : editpadlite-path ( -- path )
-    \ editpadlite-path get-global [
+    \ editpadlite-path get [
         {
             [ { "Just Great Software" "JGsoft" } "editpadlite.exe" find-in-applications ]
             [ { "Just Great Software" "JGsoft" } "editpadlite7.exe" find-in-applications ]

basis/editors/editpadpro/editpadpro.factor

@@ -6,7 +6,7 @@ SINGLETON: editpadpro
 editpadpro editor-class set-global
 
 : editpadpro-path ( -- path )
-    \ editpadpro-path get-global [
+    \ editpadpro-path get [
         {
             [ { "Just Great Software" "JGsoft" } "editpadpro.exe" find-in-applications ]
             [ { "Just Great Software" "JGsoft" } "editpadpro7.exe" find-in-applications ]

basis/editors/editplus/editplus.factor

@@ -1,14 +1,13 @@
-USING: editors io.files io.launcher kernel math.parser
+USING: editors io.standard-paths kernel make math.parser
-namespaces sequences windows.shell32 make
+namespaces ;
-io.directories.search.windows ;
 IN: editors.editplus
 
 SINGLETON: editplus
 editplus editor-class set-global
 
 : editplus-path ( -- path )
-    \ editplus-path get-global [
+    \ editplus-path get [
-        "EditPlus 2" [ "editplus.exe" tail? ] find-in-program-files
+        { "EditPlus 2" } "editplus.exe" find-in-applications
         [ "editplus.exe" ] unless*
     ] unless* ;
 

basis/editors/emacs/emacs.factor

@@ -1,5 +1,5 @@
-USING: combinators.short-circuit editors kernel make
+USING: combinators.short-circuit editors io.standard-paths
-math.parser namespaces sequences system vocabs ;
+kernel make math.parser namespaces sequences system ;
 IN: editors.emacs
 
 SINGLETON: emacsclient
@@ -7,20 +7,22 @@ emacsclient editor-class set-global
 
 SYMBOL: emacsclient-path
 
-HOOK: default-emacsclient os ( -- path )
+HOOK: find-emacsclient os ( -- path )
 
-M: object default-emacsclient ( -- path ) "emacsclient" ;
+M: object find-emacsclient ( -- path )
+    "emacsclient" ?find-in-path ;
+
+M: windows find-emacsclient
+    {
+        [ { "Emacs" } "emacsclientw.exe" find-in-applications ]
+        [ { "Emacs" } "emacsclient.exe" find-in-applications ]
+        [ "emacsclient.exe" ]
+    } 0|| ;
 
 M: emacsclient editor-command ( file line -- command )
     [
-        {
+        emacsclient-path get [ find-emacsclient ] unless* ,
-            [ emacsclient-path get-global ]
-            [ default-emacsclient dup emacsclient-path set-global ]
-        } 0|| ,
         "--no-wait" ,
         number>string "+" prepend ,
         ,
     ] { } make ;
-
-os windows? [ "editors.emacs.windows" require ] when
-

basis/editors/emacs/windows/authors.txt

@@ -1 +0,0 @@
-Slava Pestov

basis/editors/emacs/windows/tags.txt

@@ -1 +0,0 @@
-not loaded

basis/editors/emacs/windows/windows.factor

@@ -1,12 +0,0 @@
-! Copyright (C) 2009 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: editors.emacs io.directories.search.windows kernel sequences
-system combinators.short-circuit ;
-IN: editors.emacs.windows
-
-M: windows default-emacsclient
-    {
-        [ "Emacs" [ "emacsclientw.exe" tail? ] find-in-program-files ]
-        [ "Emacs" [ "emacsclient.exe" tail? ] find-in-program-files ]
-        [ "emacsclient.exe" ]
-    } 0|| ;

basis/editors/emeditor/emeditor.factor

@@ -1,14 +1,13 @@
-USING: editors io.files io.launcher kernel math.parser
+USING: editors io.standard-paths kernel make math.parser
-namespaces sequences windows.shell32 make
+namespaces ;
-io.directories.search.windows ;
 IN: editors.emeditor
 
 SINGLETON: emeditor
 emeditor editor-class set-global
 
 : emeditor-path ( -- path )
-    \ emeditor-path get-global [
+    \ emeditor-path get [
-        "EmEditor" [ "EmEditor.exe" tail? ] find-in-program-files
+        { "EmEditor" } "emeditor.exe" find-in-applications
         [ "EmEditor.exe" ] unless*
     ] unless* ;
 

basis/editors/etexteditor/etexteditor.factor

@@ -1,16 +1,16 @@
 ! Copyright (C) 2008 Kibleur Christophe.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: editors io.files io.launcher kernel math.parser make
+USING: editors io.standard-paths kernel make math.parser
-namespaces sequences windows.shell32 io.directories.search.windows ;
+namespaces ;
 IN: editors.etexteditor
 
 SINGLETON: etexteditor
 etexteditor editor-class set-global
 
 : etexteditor-path ( -- str )
-    \ etexteditor-path get-global [
+    \ etexteditor-path get [
-        "e" [ "e.exe" tail? ] find-in-program-files
+        { "e" } "e.exe" find-in-applications
-        [ "e" ] unless*
+        [ "e.exe" ] unless*
     ] unless* ;
 
 M: etexteditor editor-command ( file line -- command )

basis/editors/geany/geany.factor

@@ -1,22 +1,27 @@
 ! Copyright (C) 2013 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: editors fry kernel make math.parser namespaces system
+USING: combinators.short-circuit editors fry io.standard-paths
-vocabs ;
+kernel make math.parser namespaces system vocabs ;
 IN: editors.geany
 
 SINGLETON: geany
 geany editor-class set-global
 
-HOOK: geany-path os ( -- path )
+SYMBOL: geany-path
 
-M: unix geany-path
+HOOK: find-geany-path os ( -- path )
-    \ geany-path get-global [ "geany" ] unless* ;
+
+M: unix find-geany-path "geany" ;
+
+M: windows find-geany-path
+    {
+        [ { "Geany" } "geany.exe" find-in-applications ]
+        [ "Geany.exe" ]
+    } 0|| ;
 
 M: geany editor-command
     '[
-        geany-path ,
+        geany-path get [ find-geany-path ] unless* ,
         _ ,
         "--line" , _ number>string ,
     ] { } make ;
-
-os windows? [ "editors.geany.windows" require ] when

basis/editors/geany/windows/authors.txt

@@ -1 +0,0 @@
-Doug Coleman

basis/editors/geany/windows/windows.factor

@@ -1,10 +0,0 @@
-! Copyright (C) 2013 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: editors.geany io.directories.search.windows kernel
-namespaces sequences system ;
-IN: editors.geany.windows
-
-M: windows geany-path
-    \ geany-path get-global [
-        "Geany" [ "Geany.exe" tail? ] find-in-program-files
-    ] unless* ;

basis/editors/gedit/gedit.factor

@@ -1,15 +1,15 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: editors io.launcher kernel make math.parser namespaces
+USING: editors io.launcher io.standard-paths kernel make
-sequences ;
+math.parser namespaces sequences ;
 IN: editors.gedit
 
 SINGLETON: gedit
 gedit editor-class set-global
 
 : gedit-path ( -- path )
-    \ gedit-path get-global [
+    \ gedit-path get [
-        "gedit"
+        "gedit" ?find-in-path
     ] unless* ;
 
 M: gedit editor-command ( file line -- command )

basis/editors/gvim/gvim.factor

@@ -1,5 +1,5 @@
-USING: editors.vim io.backend kernel namespaces system
+USING: editors.vim io.backend io.standard-paths kernel
-vocabs editors ;
+namespaces system vocabs editors ;
 IN: editors.gvim
 
 ! This code builds on the code in editors.vim; see there for
@@ -9,10 +9,15 @@ TUPLE: gvim < vim ;
 T{ gvim } editor-class set-global
 
 HOOK: find-gvim-path io-backend ( -- path )
+
 M: object find-gvim-path f ;
 
-M: gvim find-vim-path find-gvim-path "gvim" or ;
+M: windows find-gvim-path
-M: gvim vim-ui? t ;
+    { "vim" } "gvim.exe" find-in-applications ;
-M: gvim editor-detached? t ;
 
-os windows? [ "editors.gvim.windows" require ] when
+M: gvim find-vim-path
+    find-gvim-path [ "gvim" ?find-in-path ] unless* ;
+
+M: gvim vim-ui? t ;
+
+M: gvim editor-detached? t ;

basis/editors/gvim/windows/authors.txt

@@ -1 +0,0 @@
-Doug Coleman

basis/editors/gvim/windows/tags.txt

@@ -1 +0,0 @@
-not loaded

basis/editors/gvim/windows/windows.factor

@@ -1,6 +0,0 @@
-USING: editors.gvim io.directories.search.windows sequences
-system ;
-IN: editors.gvim.windows
-
-M: windows find-gvim-path
-    "vim" [ "gvim.exe" tail? ] find-in-program-files ;

basis/editors/jedit/jedit.factor

@@ -12,18 +12,21 @@ ERROR: jedit-not-found ;
 
 HOOK: find-jedit-path os ( -- path )
 
-M: object find-jedit-path "jedit" ;
+M: object find-jedit-path f ;
 
 M: macosx find-jedit-path
-    "org.gjt.sp.jedit" find-native-bundle
+    "org.gjt.sp.jedit" find-native-bundle [
-    dup [ "Contents/MacOS/jedit" append-path ] when ;
+        "Contents/MacOS/jedit" append-path
+    ] [
+        f
+    ] if* ;
 
 M: windows find-jedit-path
     { "jedit" } "jedit.exe" find-in-applications ;
-    
+
 : jedit-path ( -- path )
-    \ jedit-path get-global [
+    \ jedit-path get [
-        find-jedit-path "jedit" or
+        find-jedit-path [ "jedit" ?find-in-path ] unless*
     ] unless* ;
 
 M: jedit editor-command ( file line -- command/f )

basis/editors/macvim/macvim.factor

@@ -3,7 +3,7 @@ io.pathnames io.standard-paths kernel namespaces ;
 IN: editors.macvim
 
 TUPLE: macvim < vim ;
-T{ macvim } \ editor-class set-global
+T{ macvim } editor-class set-global
 
 : find-macvim-bundle-path ( -- path/f )
     "org.vim.MacVim" find-native-bundle [
@@ -11,8 +11,9 @@ T{ macvim } \ editor-class set-global
     ] [
         f
     ] if* ;
-    
+
 M: macvim find-vim-path find-macvim-bundle-path ;
 
 M: macvim vim-ui? t ;
+
 M: macvim editor-detached? t ;

basis/editors/notepad++/notepad++.factor

@@ -1,18 +1,18 @@
-USING: editors io.files io.launcher kernel math.parser
+USING: editors io.standard-paths kernel make math.parser
-namespaces sequences io.directories.search.windows make ;
+namespaces sequences ;
-IN: editors.notepadpp
+IN: editors.notepad++
 
-SINGLETON: notepadpp
+SINGLETON: notepad++
-notepadpp editor-class set-global
+notepad++ editor-class set-global
 
-: notepadpp-path ( -- path )
+: notepad++-path ( -- path )
-    \ notepadpp-path get-global [
+    \ notepad++-path get [
-        "notepad++" [ "notepad++.exe" tail? ] find-in-program-files
+        { "notepad++" } "notepad++.exe" find-in-applications
         [ "notepad++.exe" ] unless*
     ] unless* ;
 
-M: notepadpp editor-command ( file line -- command )
+M: notepad++ editor-command ( file line -- command )
     [
-        notepadpp-path ,
+        notepad++-path ,
         number>string "-n" prepend , ,
     ] { } make ;

basis/editors/notepad2/notepad2.factor

@@ -6,7 +6,7 @@ SINGLETON: notepad2
 notepad2 editor-class set-global
 
 : notepad2-path ( -- path )
-    \ notepad2-path get-global [
+    \ notepad2-path get [
         windows-directory "system32\\notepad.exe" append-path
         [ "notepad.exe" ] unless*
     ] unless* ;

basis/editors/scite/scite.factor

@@ -1,25 +1,30 @@
 ! Copyright (C) 2007 Clemens F. Hofreither.
 ! See http://factorcode.org/license.txt for BSD license.
 ! clemens.hofreither@gmx.net
-USING: io.files io.launcher kernel namespaces
+USING: editors io.standard-paths kernel make math.parser
-math math.parser editors sequences make system unicode.case
+namespaces sequences system ;
-vocabs ;
 IN: editors.scite
 
 SINGLETON: scite
 scite editor-class set-global
 
-HOOK: scite-path os ( -- path )
+SYMBOL: scite-path
 
-M: unix scite-path ( -- path )
+HOOK: find-scite-path os ( -- path )
-    \ scite-path get-global [ "scite" ] unless* ;
+
+M: unix find-scite-path "scite" ?find-in-path ;
+
+M: windows find-scite-path
+    {
+        "Scintilla Text Editor"
+        "SciTE Source Code Editor"
+    } "scite.exe" find-in-applications
+    [ "scite.exe" ] unless* ;
 
 M: scite editor-command ( file line -- cmd )
     swap
     [
-        scite-path ,
+        scite-path get [ find-scite-path ] unless* ,
         ,
         number>string "-goto:" prepend ,
     ] { } make ;
-
-os windows? [ "editors.scite.windows" require ] when

basis/editors/scite/windows/authors.txt

@@ -1 +0,0 @@
-Doug Coleman

basis/editors/scite/windows/platforms.txt

@@ -1 +0,0 @@
-windows

basis/editors/scite/windows/windows.factor

@@ -1,18 +0,0 @@
-! Copyright (C) 2013 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: editors.scite io.directories.search.windows kernel
-namespaces sequences system unicode.case ;
-IN: editors.scite.windows
-
-M: windows scite-path ( -- path )
-    \ scite-path get-global [
-        "Scintilla Text Editor"
-        [ >lower "scite.exe" tail? ] find-in-program-files
-
-        [
-            "SciTE Source Code Editor"
-            [ >lower "scite.exe" tail? ] find-in-program-files
-        ] unless*
-        [ "scite.exe" ] unless*
-    ] unless* ;
-

basis/editors/sublime/sublime.factor

@@ -9,7 +9,7 @@ sublime editor-class set-global
 
 HOOK: find-sublime-path os ( -- path )
 
-M: object find-sublime-path "sublime" ;
+M: object find-sublime-path f ;
 
 M: macosx find-sublime-path
     { "com.sublimetext.3" "com.sublimetext.2" } [ find-native-bundle ] map-find drop [
@@ -18,11 +18,12 @@ M: macosx find-sublime-path
         f
     ] if* ;
 
-ERROR: editor-not-found editor ;
+M: windows find-sublime-path
+    { "Sublime Text 2" } "sublime_text.exe" find-in-applications ;
 
 : sublime-path  ( -- path )
-    \ sublime-path get-global [
+    \ sublime-path get [
-        find-sublime-path [ "sublime" editor-not-found ] unless*
+        find-sublime-path [ "subl" ?find-in-path ] unless*
     ] unless* ;
 
 M: sublime editor-command ( file line -- command )

basis/editors/sublime/windows/platforms.txt

@@ -1 +0,0 @@
-windows

basis/editors/sublime/windows/windows.factor

@@ -1,9 +0,0 @@
-! Copyright (C) 2013 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: editors.sublime io.directories.search.windows sequences
-system ;
-IN: editors.sublime.windows
-
-M: windows find-sublime-path
-    "Sublime Text 2"
-    [ "sublime_text.exe" tail? ] find-in-program-files ;

basis/editors/ted-notepad/ted-notepad.factor

@@ -1,13 +1,13 @@
-USING: editors io.files io.launcher kernel math.parser
+USING: editors io.files io.launcher io.standard-paths kernel
-namespaces sequences io.directories.search.windows make ;
+math.parser namespaces sequences make ;
 IN: editors.ted-notepad
 
 SINGLETON: ted-notepad
 ted-notepad editor-class set-global
 
 : ted-notepad-path ( -- path )
-    \ ted-notepad-path get-global [
+    \ ted-notepad-path get [
-        "TED Notepad" [ "TedNPad.exe" tail? ] find-in-program-files
+        { "TED Notepad" } "tednpad.exe" find-in-applications
         [ "TedNPad.exe" ] unless*
     ] unless* ;
 

basis/editors/textadept/textadept.factor

@@ -9,8 +9,9 @@
 !
 ! For more information about Textadept, consult http://foicica.com/textadept/
 
-USING: editors io.launcher io.pathnames io.standard-paths
+USING: combinators.short-circuit editors io.launcher
-kernel make math math.parser namespaces sequences system vocabs ;
+io.pathnames io.standard-paths kernel make math math.parser
+namespaces sequences system vocabs ;
 IN: editors.textadept
 
 SINGLETON: textadept
@@ -18,7 +19,7 @@ textadept editor-class set-global
 
 HOOK: find-textadept-path os ( -- path )
 
-M: object find-textadept-path "textadept" ;
+M: object find-textadept-path f ;
 
 M: macosx find-textadept-path
     "com.textadept" find-native-bundle [
@@ -27,9 +28,13 @@ M: macosx find-textadept-path
         f
     ] if* ;
 
+M: windows find-textadept-path
+    { "textadept_6.5.win32" } "textadept.exe" find-in-applications
+    [ "textadept.exe" ] unless* ;
+
 : textadept-path  ( -- path )
-    \ textadept-path get-global [
+    \ textadept-path get [
-        find-textadept-path "textadept" or
+        find-textadept-path [ "textadept" ?find-in-path ] unless*
     ] unless* ;
 
 M: textadept editor-command ( file line -- command )
@@ -37,5 +42,3 @@ M: textadept editor-command ( file line -- command )
         textadept-path , "-f" , , "-e" ,
         1 - number>string "goto_line(" ")" surround ,
     ] { } make ;
-
-os windows? [ "editors.textadept.windows" require ] when

basis/editors/textadept/windows/platforms.txt

@@ -1 +0,0 @@
-windows

basis/editors/textadept/windows/windows.factor

@@ -1,9 +0,0 @@
-! Copyright (C) 2013 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: editors.textadept io.directories.search.windows
-sequences system ;
-IN: editors.textadept.windows
-
-M: windows find-textadept-path
-    "textadept_6.5.win32"
-    [ "textadept.exe" tail? ] find-in-program-files ;

basis/editors/textpad/textpad.factor

@@ -1,6 +1,5 @@
-USING: editors io.files io.launcher kernel math.parser
+USING: editors io.standard-paths kernel make math.parser
-namespaces sequences make io.directories.search
+namespaces sequences ;
-io.directories.search.windows ;
 IN: editors.textpad
 
 SINGLETON: textpad
@@ -8,11 +7,12 @@ textpad editor-class set-global
 
 : textpad-path ( -- path )
     \ textpad-path get-global [
-        "TextPad 5" [ "TextPad.exe" tail? ] find-in-program-files
+        { "TextPad 5" } "textpad.exe" find-in-applications
         [ "TextPad.exe" ] unless*
     ] unless* ;
 
 M: textpad editor-command ( file line -- command )
     [
-        textpad-path , [ , ] [ number>string "(" ",0)" surround , ] bi*
+        textpad-path ,
+        [ , ] [ number>string "(" ",0)" surround , ] bi*
     ] { } make ;

basis/editors/textwrangler/textwrangler.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Ben Schlingelhof.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: editors kernel make math.parser namespaces sequences
+USING: editors io.standard-paths kernel make math.parser
-tools.which ;
+namespaces sequences ;
 IN: editors.textwrangler
 
 ! TextWrangler ships with a program called ``edit`` if you don't download
@@ -14,12 +14,12 @@ IN: editors.textwrangler
 SINGLETON: textwrangler
 textwrangler editor-class set-global
 
-M: textwrangler editor-command ( file line -- command )
+M: textwrangler editor-command
-    "edit" which [
+    "edit" find-in-path [
-        [ "edit +" % # " " % % ] "" make
+        [ , number>string "+" prepend , , ] { } make
     ] [
         [
             "open" , "-a" , "TextWrangler" ,
             [ , ] [ "--args" , number>string "+" prepend , ] bi*
         ] { } make
-    ] if ;
+    ] if* ;

basis/editors/ultraedit/ultraedit.factor

@@ -1,5 +1,5 @@
-USING: editors io.files io.launcher kernel math.parser
+USING: editors io.standard-paths kernel make math.parser
-namespaces sequences io.directories.search.windows make ;
+namespaces ;
 IN: editors.ultraedit
 
 SINGLETON: ultraedit
@@ -7,7 +7,7 @@ ultraedit editor-class set-global
 
 : ultraedit-path ( -- path )
     \ ultraedit-path get-global [
-        "IDM Computer Solutions" [ "uedit32.exe" tail? ] find-in-program-files
+        { "IDM Computer Solutions" } "uedit32.exe" find-in-applications
         [ "uedit32.exe" ] unless*
     ] unless* ;
 

basis/editors/vim/vim.factor

@@ -1,5 +1,5 @@
-USING: editors io.backend io.launcher kernel make math.parser
+USING: editors io.standard-paths kernel make math.parser
-namespaces sequences strings system vocabs.loader math ;
+namespaces sequences strings ;
 IN: editors.vim
 
 TUPLE: vim ;
@@ -8,12 +8,15 @@ T{ vim } editor-class set-global
 SYMBOL: vim-path
 
 HOOK: find-vim-path editor-class ( -- path )
+
 HOOK: vim-ui? editor-class ( -- ? )
+
 M: vim vim-ui? f ;
-M: vim find-vim-path "vim" ;
+
+M: vim find-vim-path "vim" ?find-in-path ;
 
 : actual-vim-path ( -- path )
-    \ vim-path get-global [ find-vim-path ] unless* ;
+    \ vim-path get [ find-vim-path ] unless* ;
 
 M: vim editor-command ( file line -- command )
     [

basis/editors/visual-studio-code/visual-studio-code.factor

@@ -9,15 +9,14 @@ visual-studio-code editor-class set-global
 HOOK: find-visual-studio-code-path os ( -- path )
 
 MEMO: visual-studio-code-path ( -- path )
-    \ visual-studio-code-path get-global [
+    \ visual-studio-code-path get [
         find-visual-studio-code-path
         [ "code" ] unless*
     ] unless* ;
 
 M: visual-studio-code editor-command ( file line -- command )
     [
-        visual-studio-code-path ,
+        visual-studio-code-path , drop ,
-        swap , drop
     ] { } make ;
 
 os windows? [ "editors.visual-studio-code.windows" require ] when

basis/editors/visual-studio-code/windows/windows.factor

@@ -6,5 +6,5 @@ system ;
 IN: editors.visual-studio-code.windows
 
 M: windows find-visual-studio-code-path
-    get-appdata-directory 1array f
+    get-appdata-directory f
     [ file-name >lower "code.exe" = ] find-in-directories ;