editors: rename editor class to match vocab name.

diff --git a/basis/editors/atom/atom.factor b/basis/editors/atom/atom.factor
index e9c468dfd5bc9a70ff6506ac023267937adf14c2..904aceb94eba5eb615bfe327be3c5183012ab498 100644 (file)
--- a/basis/editors/atom/atom.factor
+++ b/basis/editors/atom/atom.factor
@@ -4,8 +4,8 @@ USING: editors io.pathnames io.standard-paths kernel make
 math.parser namespaces sequences system ;
 IN: editors.atom
 
-SINGLETON: atom-editor
-atom-editor editor-class set-global
+SINGLETON: atom
+atom editor-class set-global
 
 SYMBOL: atom-path
 
@@ -21,7 +21,7 @@ M: macosx find-atom
         f
     ] if* ;
 
-M: atom-editor editor-command
+M: atom editor-command
     [
         atom-path get [ find-atom ] unless* ,
         number>string ":" glue ,

diff --git a/basis/editors/brackets/brackets.factor b/basis/editors/brackets/brackets.factor
index 7ec154aa9b2ae7be50d5ab810de9df5610cca245..e6ef60561ce93a9bb5f72b5a1d0294d4b8e10b01 100644 (file)
--- a/basis/editors/brackets/brackets.factor
+++ b/basis/editors/brackets/brackets.factor
@@ -4,8 +4,8 @@ USING: editors io.pathnames io.standard-paths kernel make
 namespaces system vocabs ;
 IN: editors.brackets
 
-SINGLETON: brackets-editor
-brackets-editor editor-class set-global
+SINGLETON: brackets
+brackets editor-class set-global
 
 HOOK: brackets-path os ( -- path )
 
@@ -16,7 +16,7 @@ M: macosx brackets-path
         f
     ] if* ;
 
-M: brackets-editor editor-command
+M: brackets editor-command
     [ brackets-path "brackets" or , drop , ] { } make ;
 
 os windows? [ "editors.brackets.windows" require ] when

diff --git a/basis/editors/emacs/emacs.factor b/basis/editors/emacs/emacs.factor
index ec1e08fb5b3db05aab16221c6099d463292fe7be..dea14c90200e8f070bf5192609b7ae041b7c80a2 100644 (file)
--- a/basis/editors/emacs/emacs.factor
+++ b/basis/editors/emacs/emacs.factor
@@ -2,8 +2,8 @@ USING: combinators.short-circuit editors io.standard-paths
 kernel make math.parser namespaces sequences system ;
 IN: editors.emacs
 
-SINGLETON: emacsclient
-emacsclient editor-class set-global
+SINGLETON: emacs
+emacs editor-class set-global
 
 SYMBOL: emacsclient-path
 SYMBOL: emacsclient-args
@@ -20,7 +20,7 @@ M: windows find-emacsclient
         [ "emacsclient.exe" ]
     } 0|| ;
 
-M: emacsclient editor-command
+M: emacs editor-command
     [
         emacsclient-path get [ find-emacsclient ] unless* ,
         emacsclient-args get [ { "-a=emacs" "--no-wait" } ] unless* %

diff --git a/basis/editors/visual-studio-code/visual-studio-code.factor b/basis/editors/visual-studio-code/visual-studio-code.factor
index ebf633559c8a010ac896adbeb6190946fe2514a8..3cd1267f4c03931138109727ec241b0457dd3798 100644 (file)
--- a/basis/editors/visual-studio-code/visual-studio-code.factor
+++ b/basis/editors/visual-studio-code/visual-studio-code.factor
@@ -8,7 +8,7 @@ IN: editors.visual-studio-code
 ! Command line arguments
 ! https://code.visualstudio.com/docs/editor/command-line
 
-TUPLE:  visual-studio-code ;
+TUPLE: visual-studio-code ;
 T{ visual-studio-code } editor-class set-global
 
 HOOK: find-visual-studio-code-path editor-class ( -- path )