]> gitweb.factorcode.org Git - factor.git/commitdiff
editors: SET-EDITOR: -> EDITOR:, use SINGLETON: again
authorDoug Coleman <doug.coleman@gmail.com>
Sat, 28 Jan 2023 04:56:22 +0000 (22:56 -0600)
committerDoug Coleman <doug.coleman@gmail.com>
Sat, 28 Jan 2023 05:07:08 +0000 (23:07 -0600)
47 files changed:
basis/editors/10x/10x.factor
basis/editors/acme/acme.factor
basis/editors/aquamacs/aquamacs.factor
basis/editors/atom/atom.factor
basis/editors/bbedit/bbedit.factor
basis/editors/bluefish/bluefish.factor
basis/editors/brackets/brackets.factor
basis/editors/coteditor/coteditor.factor
basis/editors/cudatext/cudatext.factor
basis/editors/editors.factor
basis/editors/editpadlite/editpadlite.factor
basis/editors/editpadpro/editpadpro.factor
basis/editors/editplus/editplus.factor
basis/editors/emacs/emacs.factor
basis/editors/emeditor/emeditor.factor
basis/editors/espresso/espresso.factor
basis/editors/etexteditor/etexteditor.factor
basis/editors/geany/geany.factor
basis/editors/gedit/gedit.factor
basis/editors/gvim/gvim.factor
basis/editors/jedit/jedit.factor
basis/editors/kakoune/kakoune.factor
basis/editors/kate/kate.factor
basis/editors/lapce/lapce.factor
basis/editors/lite-xl/lite-xl.factor
basis/editors/macvim/macvim.factor
basis/editors/notepad++/notepad++.factor
basis/editors/notepad/notepad.factor
basis/editors/notepad2/notepad2.factor
basis/editors/nova/nova.factor
basis/editors/scite/scite.factor
basis/editors/smultron/smultron.factor
basis/editors/sublime/sublime.factor
basis/editors/ted-notepad/ted-notepad.factor
basis/editors/textadept/textadept.factor
basis/editors/textedit/textedit.factor
basis/editors/textmate/textmate.factor
basis/editors/textpad/textpad.factor
basis/editors/textwrangler/textwrangler.factor
basis/editors/ultraedit/ultraedit.factor
basis/editors/vim/vim.factor
basis/editors/visual-studio-code-exploration/visual-studio-code-exploration.factor
basis/editors/visual-studio-code-insiders/visual-studio-code-insiders.factor
basis/editors/visual-studio-code/visual-studio-code.factor
basis/editors/visual-studio-codium/visual-studio-codium.factor
basis/editors/wordpad/wordpad.factor
basis/editors/xcode/xcode.factor

index dd13ba3a4814a39fd309f083a338b75eef9ab66b..08fd64a2263b8faa13f96cb9e5486cb8b0086b25 100644 (file)
@@ -4,7 +4,7 @@ USING: editors io.standard-paths kernel make math math.parser
 namespaces sequences system ;
 IN: editors.10x
 
-EDITOR: 10x-editor
+SINGLETON: 10x-editor
 
 SYMBOL: 10x-editor-path
 
index ba06a2324845b3ece03cb12f49c6f844e415a362..21ed29e130a38e08c636cb33ba5f3b6d948874d4 100644 (file)
@@ -4,7 +4,7 @@ USING: arrays editors environment io.files.info io.pathnames
 kernel make math.parser namespaces sequences ;
 IN: editors.acme
 
-EDITOR: acme
+SINGLETON: acme
 
 : plan9-path ( -- path )
   \ plan9-path get [
index 72b11bfb3e5ef0fdb4012acf4e8464ae9a0c641b..f89ce9d79cf6ea335586a69fdcc88043ab5d55c7 100644 (file)
@@ -8,7 +8,7 @@ USING: editors io.pathnames io.standard-paths kernel make
 math.parser namespaces sequences system ;
 IN: editors.aquamacs
 
-EDITOR: aquamacs
+SINGLETON: aquamacs
 
 HOOK: find-aquamacs-path os ( -- path )
 
index d32df3d3bb925f003c9c5aaba48eabd123dc4757..a5ec8ea3df8b9ee8509a5ef6321978c443e6760d 100644 (file)
@@ -4,7 +4,7 @@ USING: editors io.pathnames io.standard-paths kernel make
 math.parser namespaces sequences system ;
 IN: editors.atom
 
-EDITOR: atom
+SINGLETON: atom
 
 SYMBOL: atom-path
 
index 52936c30c6ec52afc5c1a072214288347356341e..0028fc72cd64395a25d50507c6a8b4ff7ed6fee4 100644 (file)
@@ -1,7 +1,7 @@
 USING: editors kernel make namespaces ;
 IN: editors.bbedit
 
-EDITOR: bbedit
+SINGLETON: bbedit
 
 M: bbedit editor-command
     drop
index f44d79b0e3f16e473c651f210dcba2b4aaf1fb7f..28e3fa741af33c3e56557bf56705d10247883fd3 100644 (file)
@@ -1,7 +1,7 @@
 USING: editors kernel make namespaces ;
 IN: editors.bluefish
 
-EDITOR: bluefish
+SINGLETON: bluefish
 
 M: bluefish editor-command
     drop
index 22ea37e47953e5eb2b60b310cca76991d40c4a7e..ae5b8b6ce52a38ee28ecd2b0c103b6775c98cd63 100644 (file)
@@ -4,7 +4,7 @@ USING: editors io.pathnames io.standard-paths kernel make
 namespaces system vocabs ;
 IN: editors.brackets
 
-EDITOR: brackets
+SINGLETON: brackets
 
 HOOK: brackets-path os ( -- path )
 
index 1d18ac30b5cd57ee21c931a2f6dc4c962f1d8953..db5a6e5bc2842ba7ce737b7d61c81652eb24b80d 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.pathnames io.standard-paths kernel make
 math.parser namespaces ;
 IN: editors.coteditor
 
-EDITOR: coteditor
+SINGLETON: coteditor
 
 : find-cot-bundle-path ( -- path/f )
     "com.coteditor.CotEditor" find-native-bundle [
index abacab6922656c7fe7fa7394c953c0d4e33f7c39..d64b42626731699b4357f766d055cb4c9b413fe3 100644 (file)
@@ -3,7 +3,7 @@ math.parser namespaces sequences system ;
 
 IN: editors.cudatext
 
-EDITOR: cudatext
+SINGLETON: cudatext
 
 HOOK: find-cudatext-path os ( -- path )
 
index 1f7675e25aa42fde34769b9e2fd15043b53be7e6..4bb834b34a61bdb712fe7f050540380fb64403e5 100644 (file)
@@ -11,8 +11,6 @@ IN: editors
 
 SYMBOL: editor-class
 
-INITIALIZED-SYMBOL: editors [ HS{ } clone ]
-
 : available-editors ( -- seq )
     "editors" disk-child-vocab-names
     { "editors.ui" "editors.private" } diff ;
@@ -21,17 +19,13 @@ INITIALIZED-SYMBOL: editors [ HS{ } clone ]
     available-editors
     [ [ "Load " prepend ] keep ] { } map>assoc ;
 
-: define-editor ( word -- )
-    [ define-singleton-class ] [ editors get-global adjoin ] bi ;
-
-SYNTAX: EDITOR: scan-new-class define-editor ;
-
 : set-editor ( string -- )
     "editors." ?head drop
-    [ "editors." prepend t parser-quiet? [ use-vocab ] with-variable ] [ search ] bi
+    [ "editors." prepend t parser-quiet? [ use-vocab ] with-variable ]
+    [ search ] bi
     editor-class set-global ;
 
-SYNTAX: SET-EDITOR: scan-token set-editor ;
+SYNTAX: EDITOR: scan-token set-editor ;
 
 HOOK: editor-command editor-class ( file line -- command )
 
@@ -55,7 +49,7 @@ M: f editor-command
             " or "
             ".factor-rc" home-path
             " add:\n"
-            "USE: editors SET-EDITOR: " _ append
+            "USE: editors EDITOR: " _ append
         ] output>array "Note:" print pprint-line
     ] bi
     editor-command ;
index 14e4fba9be90d52ea257fb77dc8658a13db63bb9..b6572a52e38675deb2ce2ad9bff879d45dd91dbd 100644 (file)
@@ -2,7 +2,7 @@ USING: combinators.short-circuit editors io.standard-paths
 kernel make namespaces ;
 IN: editors.editpadlite
 
-EDITOR: editpadlite
+SINGLETON: editpadlite
 
 : editpadlite-path ( -- path )
     \ editpadlite-path get [
index 0bf56dc0a38766fe292113069aa6937b30db900d..38dd0265a2a284fa04ff8ec86ae4c08858002823 100644 (file)
@@ -2,7 +2,7 @@ USING: combinators.short-circuit editors io.standard-paths
 kernel make math.parser namespaces sequences ;
 IN: editors.editpadpro
 
-EDITOR: editpadpro
+SINGLETON: editpadpro
 
 : editpadpro-path ( -- path )
     \ editpadpro-path get [
index 2904e9d7a3a2af47ac059201f7a66d2c627b2b02..09dcae90dbf2f99e8e2612940bb63fee9d184dc9 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.standard-paths kernel make math.parser
 namespaces ;
 IN: editors.editplus
 
-EDITOR: editplus
+SINGLETON: editplus
 
 : editplus-path ( -- path )
     \ editplus-path get [
index dbfebd703b1c312f4f20ca75794cbbcb810aecde..803b7ce9eb1df7cf5bbe5b2acbd9c2dd9d4a8b5b 100644 (file)
@@ -2,7 +2,7 @@ USING: combinators.short-circuit editors io.standard-paths
 kernel make math.parser namespaces sequences system vocabs ;
 IN: editors.emacs
 
-EDITOR: emacs
+SINGLETON: emacs
 
 SYMBOL: emacsclient-path
 SYMBOL: emacsclient-args
index 7a006a9eb08fafe9e713b47eed6fce0057baaf45..3239d48fc226b2c7853cd48780994e157c0330dc 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.standard-paths kernel make math.parser
 namespaces ;
 IN: editors.emeditor
 
-EDITOR: emeditor
+SINGLETON: emeditor
 
 : emeditor-path ( -- path )
     \ emeditor-path get [
index 2302e010f0979a4f1fc10b0bf41eef75427f9c64..bfe5d0b134122bdaba833dc17ce444d1da91c49a 100644 (file)
@@ -2,7 +2,7 @@ USING: editors kernel make namespaces ;
 
 IN: editors.espresso
 
-EDITOR: espresso
+SINGLETON: espresso
 
 M: espresso editor-command
     drop
index a6d6489e35a313faab3e090b3bec18ae821db2c5..8290b590605e3800f6802bf223663c79f869dd8c 100644 (file)
@@ -4,7 +4,7 @@ USING: editors io.standard-paths kernel make math.parser
 namespaces ;
 IN: editors.etexteditor
 
-EDITOR: etexteditor
+SINGLETON: etexteditor
 
 : etexteditor-path ( -- str )
     \ etexteditor-path get [
index 073498e8d75d17a466e0bdb2cee9c71098d7f426..963a4e6dab1ff20a9e52a2c56f61b496983ecb76 100644 (file)
@@ -4,7 +4,7 @@ USING: combinators.short-circuit editors io.standard-paths
 kernel make math.parser namespaces system ;
 IN: editors.geany
 
-EDITOR: geany
+SINGLETON: geany
 
 SYMBOL: geany-path
 
index 72fbffcc331c0bcb2d453c8d7eb9ab47aa7e2bda..5fe99607b53c43c544424dbe4582a96ef9822fea 100644 (file)
@@ -4,7 +4,7 @@ USING: editors io.launcher io.standard-paths kernel make
 math.parser namespaces sequences ;
 IN: editors.gedit
 
-EDITOR: gedit
+SINGLETON: gedit
 
 : gedit-path ( -- path )
     \ gedit-path get [
index b8f13ebd95f9f7a938deff28d8aabfc65389b879..169be90b13bcafe25da743d532ad42e6bbe00a41 100644 (file)
@@ -5,7 +5,7 @@ IN: editors.gvim
 ! This code builds on the code in editors.vim; see there for
 ! more information.
 
-EDITOR: gvim
+SINGLETON: gvim
 
 INSTANCE: gvim vim-base
 
index ccdcada538c3ce09bef9380a241010b149a74179..8a97dc6ae7abcb05ddc350cf59178718c6f5d0d3 100644 (file)
@@ -5,7 +5,7 @@ io.standard-paths kernel make math.parser namespaces sequences
 system ;
 IN: editors.jedit
 
-EDITOR: jedit
+SINGLETON: jedit
 
 HOOK: find-jedit-path os ( -- path )
 
index 2c186be25204c45ba28a432e64c1267af90d4335..bd06166d79d1d78b028886342a25f4b0f48f947f 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.standard-paths kernel make math.parser
 namespaces sequences strings ;
 IN: editors.kakoune
 
-EDITOR: kakoune
+SINGLETON: kakoune
 
 SYMBOL: kak-path
 
index 45639b3fdcdcd9d10da37b8d9223ffb4c028d917..5a3a70ed1d38e7c410ab1e04bd2d21c50d231077 100644 (file)
@@ -3,7 +3,7 @@ math.parser namespaces sequences system ;
 
 IN: editors.kate
 
-EDITOR: kate
+SINGLETON: kate
 
 HOOK: find-kate-path os ( -- path )
 
index b4c8c28986e395a0ea9a35a3f6f4745c2f465716..aa232d15019947f81c4506fff0923fe0ff5003c4 100644 (file)
@@ -3,7 +3,7 @@ math.parser namespaces sequences system ;
 
 IN: editors.lapce
 
-EDITOR: lapce
+SINGLETON: lapce
 
 HOOK: find-lapce-path os ( -- path )
 
index 52094b68810416d0afda405071f588833dd30f19..ab51075a5b54d51d6cd555f824b9d5e0ae97757c 100644 (file)
@@ -2,7 +2,7 @@ USING: combinators.short-circuit editors io.pathnames
 io.standard-paths kernel make namespaces strings system ;
 IN: editors.lite-xl
 
-EDITOR: lite-xl
+SINGLETON: lite-xl
 
 SYMBOL: lite-xl-editor-path
 
index 5f55665366acc0d5c272aa7b08696fedf8d92b84..30a0f5a490fc732fa281552be0dda89c560ecfef 100644 (file)
@@ -2,7 +2,7 @@ USING: editors editors.vim io.pathnames io.standard-paths kernel
 namespaces ;
 IN: editors.macvim
 
-EDITOR: macvim
+SINGLETON: macvim
 
 INSTANCE: macvim vim-base
 
index 3a796e22baed67dcb1a17e54d153fc87920b22b5..2bf9916b2c2f02cb21337fdc5b107757f12cc8bd 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.standard-paths kernel make math.parser
 namespaces sequences ;
 IN: editors.notepad++
 
-EDITOR: notepad++
+SINGLETON: notepad++
 
 : notepad++-path ( -- path )
     \ notepad++-path get [
index 1c430c9974c8c8b11208786295198483cd434caf..f2a64b65544d3fd6f6136468b18ddffee33acace 100644 (file)
@@ -5,7 +5,7 @@ kernel namespaces sequences windows.shell32 ;
 
 IN: editors.notepad
 
-EDITOR: notepad
+SINGLETON: notepad
 
 : notepad-path ( -- path )
     \ notepad-path get [
index 2e110db0e16fbf1fac61fc1003ae6d11b404f159..de6d5d4f6ba6123ada047f7d9df196936497b8e1 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.files io.launcher kernel math.parser
 namespaces sequences windows.shell32 make io.pathnames ;
 IN: editors.notepad2
 
-EDITOR: notepad2
+SINGLETON: notepad2
 
 : notepad2-path ( -- path )
     \ notepad2-path get [
index 67107d01e3b07073f7e932b1a3b01f352eefa350..8fb08e7f04b2a93d52c24210594fbe6da60c6440 100644 (file)
@@ -1,7 +1,7 @@
 USING: editors kernel make namespaces ;
 IN: editors.nova
 
-EDITOR: nova
+SINGLETON: nova
 
 M: nova editor-command
     drop
index b5ef168926ab34c3d8c7422825e1bec0a272e1d7..0558583ef7518a0508cd6921f9db9a23eece9eeb 100644 (file)
@@ -5,7 +5,7 @@ USING: editors io.standard-paths kernel make math.parser
 namespaces sequences system ;
 IN: editors.scite
 
-EDITOR: scite
+SINGLETON: scite
 
 SYMBOL: scite-path
 
index 4e0ab3a81f81d8d7e14dad9632e1be2698f3a2ed..309391634347cf9c1540ce7072bb6790cbd592a8 100644 (file)
@@ -1,7 +1,7 @@
 USING: editors kernel make namespaces ;
 IN: editors.smultron
 
-EDITOR: smultron
+SINGLETON: smultron
 
 M: smultron editor-command
     drop
index f084c338f848ec1c0290bd94f331d5a6a4c71c38..c1fb8e1162050257d9309145a1ad0301e437e5a6 100644 (file)
@@ -5,7 +5,7 @@ io.standard-paths kernel make math.parser namespaces sequences
 system ;
 IN: editors.sublime
 
-EDITOR: sublime
+SINGLETON: sublime
 
 HOOK: find-sublime-path os ( -- path )
 
index 3040e282bc36a45d9ee3d8e42889d12ce765534e..6d01462db1c3918af52266cd7c76f153dce05c8c 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.files io.launcher io.standard-paths kernel
 math.parser namespaces sequences make ;
 IN: editors.ted-notepad
 
-EDITOR: ted-notepad
+SINGLETON: ted-notepad
 
 : ted-notepad-path ( -- path )
     \ ted-notepad-path get [
index c7398ad4cba187452718bce87c5be274d326b3a6..78c28cbe5f550f4c9f0347d28f92dfd7174520c9 100644 (file)
@@ -14,7 +14,7 @@ io.pathnames io.standard-paths kernel make math math.parser
 namespaces sequences system vocabs ;
 IN: editors.textadept
 
-EDITOR: textadept
+SINGLETON: textadept
 
 HOOK: find-textadept-path os ( -- path )
 
index fab8c0d066fa11c23fc3bd10e18726e0913fd5b2..c8d8f3d5dbbc9d3c00bbf35138c038c92bcfd013 100644 (file)
@@ -2,7 +2,7 @@ USING: definitions io.launcher kernel math math.parser parser
 namespaces prettyprint editors make ;
 IN: editors.textedit
 
-EDITOR: textedit
+SINGLETON: textedit
 
 M: textedit editor-command
     drop
index b12e8acfa7cbb3ae652aaf581cb652db436fc45e..bf8a134c627dac81dfa49c23a90620257518f42c 100644 (file)
@@ -2,7 +2,7 @@ USING: definitions io.launcher kernel math math.parser parser
 namespaces prettyprint editors make ;
 IN: editors.textmate
 
-EDITOR: textmate
+SINGLETON: textmate
 
 M: textmate editor-command
     [ "mate" , "-a" , "-l" , number>string , , ] { } make ;
index 4104ca2ef5b356984862e464144be395ec101c44..e7d22741d8be64c57de415d5bf4980a8aac5c762 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.standard-paths kernel make math.parser
 namespaces sequences ;
 IN: editors.textpad
 
-EDITOR: textpad
+SINGLETON: textpad
 
 : textpad-path ( -- path )
     \ textpad-path get-global [
index e163dced3664ac749db5ae361ec25dd9eb6f2366..6fa420928f685976c100f134a53bbdb2a2baa116 100644 (file)
@@ -11,7 +11,7 @@ IN: editors.textwrangler
 
 ! Note that launching with ``open -a`` does not support line numbers.
 
-EDITOR: textwrangler
+SINGLETON: textwrangler
 
 M: textwrangler editor-command
     "edit" find-in-path [
index 3eb9711099e2c80146912199eb70d679439c7e58..04a18615810ae980f5ced4c82fe02ca40f42f0a4 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.pathnames io.standard-paths kernel make
 math.parser namespaces system ;
 IN: editors.ultraedit
 
-EDITOR: ultraedit
+SINGLETON: ultraedit
 
 HOOK: find-ultraedit os ( -- path )
 
index cb4b81e2a9096e66cb43537d0a246e921fbe4dc6..32761d87276c9ab19b0a8f1f2ef2d47548267dea 100644 (file)
@@ -2,7 +2,7 @@ USING: editors io.standard-paths kernel make math.parser
 namespaces sequences strings ;
 IN: editors.vim
 
-EDITOR: vim
+SINGLETON: vim
 
 MIXIN: vim-base
 
index 1f9050dac1bfac305d6ca0c16586500cbe080e7c..66a0a083dcb97d330a726a66ab44dfa30bb0b4dd 100644 (file)
@@ -5,7 +5,7 @@ io.pathnames io.standard-paths kernel namespaces system
 tools.which ;
 IN: editors.visual-studio-code-exploration
 
-EDITOR: visual-studio-code-exploration
+SINGLETON: visual-studio-code-exploration
 
 INSTANCE: visual-studio-code-exploration visual-studio-code-base
 
index 9477c56f0884af983687722db39c8c3e5ccbe36b..f9a92505ef0d70b95ce36c2aaf83bcfac24efac7 100644 (file)
@@ -5,7 +5,7 @@ io.pathnames io.standard-paths kernel namespaces system
 tools.which ;
 IN: editors.visual-studio-code-insiders
 
-EDITOR: visual-studio-code-insiders
+SINGLETON: visual-studio-code-insiders
 
 INSTANCE: visual-studio-code-insiders visual-studio-code-base
 
index 137ad93c62d1ba590969c46a020cc8075bded9ad..d1dcef10cbbd0d0907fc8e041a2fef2647578cdb 100644 (file)
@@ -10,7 +10,7 @@ IN: editors.visual-studio-code
 
 MIXIN: visual-studio-code-base
 
-EDITOR: visual-studio-code
+SINGLETON: visual-studio-code
 
 INSTANCE: visual-studio-code visual-studio-code-base
 
index 250f7906225df091401e7b41b00821085a2e6f19..d0e6245c5299ba29099797869b12864453e6c6a0 100644 (file)
@@ -5,7 +5,7 @@ io.pathnames io.standard-paths kernel namespaces system
 tools.which ;
 IN: editors.visual-studio-codium
 
-EDITOR: visual-studio-codium
+SINGLETON: visual-studio-codium
 
 INSTANCE: visual-studio-codium visual-studio-code-base
 
index a08f86af3981b15bb8a48c9308278a17b2640e5f..8475c32c2bd62cd56d5811a46d0664a594ac195c 100644 (file)
@@ -1,7 +1,7 @@
 USING: arrays editors io.standard-paths kernel namespaces ;
 IN: editors.wordpad
 
-EDITOR: wordpad
+SINGLETON: wordpad
 
 : wordpad-path ( -- path )
     \ wordpad-path get [
index dcc45e14d7dd02b0a7daa1f651239b3fd2b02146..2001538bec7051d3cc3298d0e84d358fc9d6dd2f 100644 (file)
@@ -1,7 +1,7 @@
 USING: editors kernel make namespaces ;
 IN: editors.xcode
 
-EDITOR: xcode
+SINGLETON: xcode
 
 M: xcode editor-command
     drop