From dd15807a5e603bffa0949600724daefe8e090dfc Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 31 Jul 2022 19:43:25 -0700 Subject: [PATCH] editors: allow them to be loaded in the load-all image --- basis/editors/acme/acme.factor | 3 ++- basis/editors/acme/tags.txt | 1 - basis/editors/atom/atom.factor | 3 ++- basis/editors/atom/tags.txt | 1 - basis/editors/bbedit/bbedit.factor | 3 ++- basis/editors/brackets/brackets.factor | 3 ++- basis/editors/coteditor/coteditor.factor | 3 ++- basis/editors/coteditor/tags.txt | 1 - basis/editors/editpadlite/editpadlite.factor | 3 ++- basis/editors/editpadlite/tags.txt | 1 - basis/editors/editpadpro/editpadpro.factor | 3 ++- basis/editors/editpadpro/tags.txt | 1 - basis/editors/editplus/editplus.factor | 3 ++- basis/editors/editplus/tags.txt | 1 - basis/editors/emacs/emacs.factor | 3 ++- basis/editors/emacs/tags.txt | 1 - basis/editors/emeditor/emeditor.factor | 3 ++- basis/editors/emeditor/tags.txt | 1 - basis/editors/etexteditor/etexteditor.factor | 3 ++- basis/editors/etexteditor/tags.txt | 1 - basis/editors/geany/geany.factor | 3 ++- basis/editors/gedit/gedit.factor | 3 ++- basis/editors/gedit/tags.txt | 1 - basis/editors/gvim/gvim.factor | 3 ++- basis/editors/gvim/tags.txt | 1 - basis/editors/jedit/jedit.factor | 3 ++- basis/editors/jedit/tags.txt | 1 - basis/editors/macvim/macvim.factor | 3 ++- basis/editors/macvim/tags.txt | 1 - basis/editors/notepad++/notepad++.factor | 3 ++- basis/editors/notepad++/tags.txt | 1 - basis/editors/notepad/notepad.factor | 3 ++- basis/editors/notepad/tags.txt | 1 - basis/editors/notepad2/notepad2.factor | 3 ++- basis/editors/notepad2/tags.txt | 1 - basis/editors/nova/nova.factor | 3 ++- basis/editors/scite/scite.factor | 3 ++- basis/editors/scite/tags.txt | 1 - basis/editors/smultron/smultron.factor | 3 ++- basis/editors/subethaedit/subethaedit.factor | 3 ++- basis/editors/subethaedit/tags.txt | 1 - basis/editors/sublime/sublime.factor | 3 ++- basis/editors/ted-notepad/tags.txt | 1 - basis/editors/ted-notepad/ted-notepad.factor | 3 ++- basis/editors/textadept/tags.txt | 1 - basis/editors/textadept/textadept.factor | 3 ++- basis/editors/textedit/tags.txt | 1 - basis/editors/textedit/textedit.factor | 3 ++- basis/editors/textmate/tags.txt | 1 - basis/editors/textmate/textmate.factor | 3 ++- basis/editors/textpad/tags.txt | 1 - basis/editors/textpad/textpad.factor | 3 ++- basis/editors/textwrangler/tags.txt | 1 - basis/editors/textwrangler/textwrangler.factor | 3 ++- basis/editors/ui/ui.factor | 13 +++++++++---- basis/editors/ultraedit/tags.txt | 1 - basis/editors/ultraedit/ultraedit.factor | 3 ++- basis/editors/vim/tags.txt | 1 - basis/editors/vim/vim.factor | 3 ++- .../visual-studio-code-exploration.factor | 2 +- .../visual-studio-code-insiders.factor | 2 +- .../visual-studio-code/visual-studio-code.factor | 3 ++- .../visual-studio-codium.factor | 2 +- basis/editors/wordpad/tags.txt | 1 - basis/editors/wordpad/wordpad.factor | 3 ++- basis/editors/xcode/xcode.factor | 3 ++- 66 files changed, 82 insertions(+), 69 deletions(-) delete mode 100644 basis/editors/acme/tags.txt delete mode 100644 basis/editors/atom/tags.txt delete mode 100644 basis/editors/coteditor/tags.txt delete mode 100644 basis/editors/editpadlite/tags.txt delete mode 100644 basis/editors/editpadpro/tags.txt delete mode 100644 basis/editors/editplus/tags.txt delete mode 100644 basis/editors/emacs/tags.txt delete mode 100644 basis/editors/emeditor/tags.txt delete mode 100644 basis/editors/etexteditor/tags.txt delete mode 100644 basis/editors/gedit/tags.txt delete mode 100644 basis/editors/gvim/tags.txt delete mode 100644 basis/editors/jedit/tags.txt delete mode 100644 basis/editors/macvim/tags.txt delete mode 100644 basis/editors/notepad++/tags.txt delete mode 100644 basis/editors/notepad/tags.txt delete mode 100644 basis/editors/notepad2/tags.txt delete mode 100644 basis/editors/scite/tags.txt delete mode 100644 basis/editors/subethaedit/tags.txt delete mode 100644 basis/editors/ted-notepad/tags.txt delete mode 100644 basis/editors/textadept/tags.txt delete mode 100644 basis/editors/textedit/tags.txt delete mode 100644 basis/editors/textmate/tags.txt delete mode 100644 basis/editors/textpad/tags.txt delete mode 100644 basis/editors/textwrangler/tags.txt delete mode 100644 basis/editors/ultraedit/tags.txt delete mode 100644 basis/editors/vim/tags.txt delete mode 100644 basis/editors/wordpad/tags.txt diff --git a/basis/editors/acme/acme.factor b/basis/editors/acme/acme.factor index ea476f6dfd..4f6580eae1 100644 --- a/basis/editors/acme/acme.factor +++ b/basis/editors/acme/acme.factor @@ -5,7 +5,8 @@ kernel make math.parser namespaces sequences ; IN: editors.acme SINGLETON: acme -acme editor-class set-global + +editor-class [ acme ] initialize : plan9-path ( -- path ) \ plan9-path get [ diff --git a/basis/editors/acme/tags.txt b/basis/editors/acme/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/acme/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/atom/atom.factor b/basis/editors/atom/atom.factor index 904aceb94e..bf870a5f3a 100644 --- a/basis/editors/atom/atom.factor +++ b/basis/editors/atom/atom.factor @@ -5,7 +5,8 @@ math.parser namespaces sequences system ; IN: editors.atom SINGLETON: atom -atom editor-class set-global + +editor-class [ atom ] initialize SYMBOL: atom-path diff --git a/basis/editors/atom/tags.txt b/basis/editors/atom/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/atom/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/bbedit/bbedit.factor b/basis/editors/bbedit/bbedit.factor index baeccc8528..8de2b9d555 100644 --- a/basis/editors/bbedit/bbedit.factor +++ b/basis/editors/bbedit/bbedit.factor @@ -2,7 +2,8 @@ USING: editors kernel make namespaces ; IN: editors.bbedit SINGLETON: bbedit -bbedit editor-class set-global + +editor-class [ bbedit ] initialize M: bbedit editor-command drop diff --git a/basis/editors/brackets/brackets.factor b/basis/editors/brackets/brackets.factor index e6ef60561c..83621f3d76 100644 --- a/basis/editors/brackets/brackets.factor +++ b/basis/editors/brackets/brackets.factor @@ -5,7 +5,8 @@ namespaces system vocabs ; IN: editors.brackets SINGLETON: brackets -brackets editor-class set-global + +editor-class [ brackets ] initialize HOOK: brackets-path os ( -- path ) diff --git a/basis/editors/coteditor/coteditor.factor b/basis/editors/coteditor/coteditor.factor index af0507f68d..241bdc98b1 100644 --- a/basis/editors/coteditor/coteditor.factor +++ b/basis/editors/coteditor/coteditor.factor @@ -3,7 +3,8 @@ math.parser namespaces ; IN: editors.coteditor SINGLETON: coteditor -coteditor editor-class set-global + +editor-class [ coteditor ] initialize : find-cot-bundle-path ( -- path/f ) "com.coteditor.CotEditor" find-native-bundle [ diff --git a/basis/editors/coteditor/tags.txt b/basis/editors/coteditor/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/coteditor/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/editpadlite/editpadlite.factor b/basis/editors/editpadlite/editpadlite.factor index bf96457fd2..9575b6e78b 100644 --- a/basis/editors/editpadlite/editpadlite.factor +++ b/basis/editors/editpadlite/editpadlite.factor @@ -3,7 +3,8 @@ kernel make namespaces ; IN: editors.editpadlite SINGLETON: editpadlite -editpadlite editor-class set-global + +editor-class [ editpadlite ] initialize : editpadlite-path ( -- path ) \ editpadlite-path get [ diff --git a/basis/editors/editpadlite/tags.txt b/basis/editors/editpadlite/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/editpadlite/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/editpadpro/editpadpro.factor b/basis/editors/editpadpro/editpadpro.factor index 6e85490a98..4ce9aaca84 100644 --- a/basis/editors/editpadpro/editpadpro.factor +++ b/basis/editors/editpadpro/editpadpro.factor @@ -3,7 +3,8 @@ kernel make math.parser namespaces sequences ; IN: editors.editpadpro SINGLETON: editpadpro -editpadpro editor-class set-global + +editor-class [ editpadpro ] initialize : editpadpro-path ( -- path ) \ editpadpro-path get [ diff --git a/basis/editors/editpadpro/tags.txt b/basis/editors/editpadpro/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/editpadpro/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/editplus/editplus.factor b/basis/editors/editplus/editplus.factor index db203e2abd..8c38eee185 100644 --- a/basis/editors/editplus/editplus.factor +++ b/basis/editors/editplus/editplus.factor @@ -3,7 +3,8 @@ namespaces ; IN: editors.editplus SINGLETON: editplus -editplus editor-class set-global + +editor-class [ editplus ] initialize : editplus-path ( -- path ) \ editplus-path get [ diff --git a/basis/editors/editplus/tags.txt b/basis/editors/editplus/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/editplus/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/emacs/emacs.factor b/basis/editors/emacs/emacs.factor index dea14c9020..f1b12b6211 100644 --- a/basis/editors/emacs/emacs.factor +++ b/basis/editors/emacs/emacs.factor @@ -3,7 +3,8 @@ kernel make math.parser namespaces sequences system ; IN: editors.emacs SINGLETON: emacs -emacs editor-class set-global + +editor-class [ emacs ] initialize SYMBOL: emacsclient-path SYMBOL: emacsclient-args diff --git a/basis/editors/emacs/tags.txt b/basis/editors/emacs/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/emacs/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/emeditor/emeditor.factor b/basis/editors/emeditor/emeditor.factor index fe5ee1c725..deb916bc26 100644 --- a/basis/editors/emeditor/emeditor.factor +++ b/basis/editors/emeditor/emeditor.factor @@ -3,7 +3,8 @@ namespaces ; IN: editors.emeditor SINGLETON: emeditor -emeditor editor-class set-global + +editor-class [ emeditor ] initialize : emeditor-path ( -- path ) \ emeditor-path get [ diff --git a/basis/editors/emeditor/tags.txt b/basis/editors/emeditor/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/emeditor/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/etexteditor/etexteditor.factor b/basis/editors/etexteditor/etexteditor.factor index 75e8a2252f..31bd74405a 100644 --- a/basis/editors/etexteditor/etexteditor.factor +++ b/basis/editors/etexteditor/etexteditor.factor @@ -5,7 +5,8 @@ namespaces ; IN: editors.etexteditor SINGLETON: etexteditor -etexteditor editor-class set-global + +editor-class [ etexteditor ] initialize : etexteditor-path ( -- str ) \ etexteditor-path get [ diff --git a/basis/editors/etexteditor/tags.txt b/basis/editors/etexteditor/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/etexteditor/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/geany/geany.factor b/basis/editors/geany/geany.factor index 005fa94cb5..930c4096cd 100644 --- a/basis/editors/geany/geany.factor +++ b/basis/editors/geany/geany.factor @@ -5,7 +5,8 @@ kernel make math.parser namespaces system ; IN: editors.geany SINGLETON: geany -geany editor-class set-global + +editor-class [ geany ] initialize SYMBOL: geany-path diff --git a/basis/editors/gedit/gedit.factor b/basis/editors/gedit/gedit.factor index 117802001e..ba4a33775a 100644 --- a/basis/editors/gedit/gedit.factor +++ b/basis/editors/gedit/gedit.factor @@ -5,7 +5,8 @@ math.parser namespaces sequences ; IN: editors.gedit SINGLETON: gedit -gedit editor-class set-global + +editor-class [ gedit ] initialize : gedit-path ( -- path ) \ gedit-path get [ diff --git a/basis/editors/gedit/tags.txt b/basis/editors/gedit/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/gedit/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/gvim/gvim.factor b/basis/editors/gvim/gvim.factor index e776437ce1..756fdcc722 100644 --- a/basis/editors/gvim/gvim.factor +++ b/basis/editors/gvim/gvim.factor @@ -6,7 +6,8 @@ IN: editors.gvim ! more information. TUPLE: gvim < vim ; -T{ gvim } editor-class set-global + +editor-class [ T{ gvim } ] initialize HOOK: find-gvim-path io-backend ( -- path ) diff --git a/basis/editors/gvim/tags.txt b/basis/editors/gvim/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/gvim/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/jedit/jedit.factor b/basis/editors/jedit/jedit.factor index c6544d534c..b5ec708be1 100644 --- a/basis/editors/jedit/jedit.factor +++ b/basis/editors/jedit/jedit.factor @@ -6,7 +6,8 @@ system ; IN: editors.jedit SINGLETON: jedit -jedit editor-class set-global + +editor-class [ jedit ] initialize HOOK: find-jedit-path os ( -- path ) diff --git a/basis/editors/jedit/tags.txt b/basis/editors/jedit/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/jedit/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/macvim/macvim.factor b/basis/editors/macvim/macvim.factor index ba3726b6aa..ef4427fb90 100644 --- a/basis/editors/macvim/macvim.factor +++ b/basis/editors/macvim/macvim.factor @@ -3,7 +3,8 @@ namespaces ; IN: editors.macvim TUPLE: macvim < vim ; -T{ macvim } editor-class set-global + +editor-class [ T{ macvim } ] initialize : find-macvim-bundle-path ( -- path/f ) "org.vim.MacVim" find-native-bundle [ diff --git a/basis/editors/macvim/tags.txt b/basis/editors/macvim/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/macvim/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/notepad++/notepad++.factor b/basis/editors/notepad++/notepad++.factor index 0a3085ec42..daae4beb08 100644 --- a/basis/editors/notepad++/notepad++.factor +++ b/basis/editors/notepad++/notepad++.factor @@ -3,7 +3,8 @@ namespaces sequences ; IN: editors.notepad++ SINGLETON: notepad++ -notepad++ editor-class set-global + +editor-class [ notepad++ ] initialize : notepad++-path ( -- path ) \ notepad++-path get [ diff --git a/basis/editors/notepad++/tags.txt b/basis/editors/notepad++/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/notepad++/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/notepad/notepad.factor b/basis/editors/notepad/notepad.factor index b60b878b81..cc672ebc24 100644 --- a/basis/editors/notepad/notepad.factor +++ b/basis/editors/notepad/notepad.factor @@ -6,7 +6,8 @@ sequences windows.shell32 ; IN: editors.notepad SINGLETON: notepad -notepad editor-class set-global + +editor-class [ notepad ] initialize : notepad-path ( -- path ) \ notepad-path get [ diff --git a/basis/editors/notepad/tags.txt b/basis/editors/notepad/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/notepad/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/notepad2/notepad2.factor b/basis/editors/notepad2/notepad2.factor index 9c9f90a0d9..4f5b857385 100644 --- a/basis/editors/notepad2/notepad2.factor +++ b/basis/editors/notepad2/notepad2.factor @@ -3,7 +3,8 @@ namespaces sequences windows.shell32 make io.pathnames ; IN: editors.notepad2 SINGLETON: notepad2 -notepad2 editor-class set-global + +editor-class [ notepad2 ] initialize : notepad2-path ( -- path ) \ notepad2-path get [ diff --git a/basis/editors/notepad2/tags.txt b/basis/editors/notepad2/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/notepad2/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/nova/nova.factor b/basis/editors/nova/nova.factor index 3f065c1658..db7da54a2d 100644 --- a/basis/editors/nova/nova.factor +++ b/basis/editors/nova/nova.factor @@ -2,7 +2,8 @@ USING: editors kernel make namespaces ; IN: editors.nova SINGLETON: nova -nova editor-class set-global + +editor-class [ nova ] initialize M: nova editor-command drop diff --git a/basis/editors/scite/scite.factor b/basis/editors/scite/scite.factor index e58229ab14..27fd305f81 100644 --- a/basis/editors/scite/scite.factor +++ b/basis/editors/scite/scite.factor @@ -6,7 +6,8 @@ namespaces sequences system ; IN: editors.scite SINGLETON: scite -scite editor-class set-global + +editor-class [ scite ] initialize SYMBOL: scite-path diff --git a/basis/editors/scite/tags.txt b/basis/editors/scite/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/scite/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/smultron/smultron.factor b/basis/editors/smultron/smultron.factor index 1c1688fd0d..0720d94801 100644 --- a/basis/editors/smultron/smultron.factor +++ b/basis/editors/smultron/smultron.factor @@ -2,7 +2,8 @@ USING: editors kernel make namespaces ; IN: editors.smultron SINGLETON: smultron -smultron editor-class set-global + +editor-class [ smultron ] initialize M: smultron editor-command drop diff --git a/basis/editors/subethaedit/subethaedit.factor b/basis/editors/subethaedit/subethaedit.factor index aa1b5f835e..9cc90ea1a3 100644 --- a/basis/editors/subethaedit/subethaedit.factor +++ b/basis/editors/subethaedit/subethaedit.factor @@ -3,7 +3,8 @@ namespaces prettyprint editors make ; IN: editors.subethaedit SINGLETON: subethaedit -subethaedit editor-class set-global + +editor-class [ subethaedit ] initialize M: subethaedit editor-command drop diff --git a/basis/editors/subethaedit/tags.txt b/basis/editors/subethaedit/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/subethaedit/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/sublime/sublime.factor b/basis/editors/sublime/sublime.factor index a457ded4fe..bf744dfcba 100644 --- a/basis/editors/sublime/sublime.factor +++ b/basis/editors/sublime/sublime.factor @@ -6,7 +6,8 @@ system ; IN: editors.sublime SINGLETON: sublime -sublime editor-class set-global + +editor-class [ sublime ] initialize HOOK: find-sublime-path os ( -- path ) diff --git a/basis/editors/ted-notepad/tags.txt b/basis/editors/ted-notepad/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/ted-notepad/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/ted-notepad/ted-notepad.factor b/basis/editors/ted-notepad/ted-notepad.factor index fe1ce8478f..0dca51e203 100644 --- a/basis/editors/ted-notepad/ted-notepad.factor +++ b/basis/editors/ted-notepad/ted-notepad.factor @@ -3,7 +3,8 @@ math.parser namespaces sequences make ; IN: editors.ted-notepad SINGLETON: ted-notepad -ted-notepad editor-class set-global + +editor-class [ ted-notepad ] initialize : ted-notepad-path ( -- path ) \ ted-notepad-path get [ diff --git a/basis/editors/textadept/tags.txt b/basis/editors/textadept/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/textadept/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/textadept/textadept.factor b/basis/editors/textadept/textadept.factor index 1edfbdcf4f..8ba969cc27 100644 --- a/basis/editors/textadept/textadept.factor +++ b/basis/editors/textadept/textadept.factor @@ -15,7 +15,8 @@ namespaces sequences system vocabs ; IN: editors.textadept SINGLETON: textadept -textadept editor-class set-global + +editor-class [ textadept ] initialize HOOK: find-textadept-path os ( -- path ) diff --git a/basis/editors/textedit/tags.txt b/basis/editors/textedit/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/textedit/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/textedit/textedit.factor b/basis/editors/textedit/textedit.factor index 9c0c50cc7b..5d7055ac30 100644 --- a/basis/editors/textedit/textedit.factor +++ b/basis/editors/textedit/textedit.factor @@ -3,7 +3,8 @@ namespaces prettyprint editors make ; IN: editors.textedit SINGLETON: textedit -textedit editor-class set-global + +editor-class [ textedit ] initialize M: textedit editor-command drop diff --git a/basis/editors/textmate/tags.txt b/basis/editors/textmate/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/textmate/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/textmate/textmate.factor b/basis/editors/textmate/textmate.factor index 8dd5dc1b9a..e7610d1b96 100644 --- a/basis/editors/textmate/textmate.factor +++ b/basis/editors/textmate/textmate.factor @@ -3,7 +3,8 @@ namespaces prettyprint editors make ; IN: editors.textmate SINGLETON: textmate -textmate editor-class set-global + +editor-class [ textmate ] initialize M: textmate editor-command [ "mate" , "-a" , "-l" , number>string , , ] { } make ; diff --git a/basis/editors/textpad/tags.txt b/basis/editors/textpad/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/textpad/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/textpad/textpad.factor b/basis/editors/textpad/textpad.factor index 62cb493d1b..025928d896 100644 --- a/basis/editors/textpad/textpad.factor +++ b/basis/editors/textpad/textpad.factor @@ -3,7 +3,8 @@ namespaces sequences ; IN: editors.textpad SINGLETON: textpad -textpad editor-class set-global + +editor-class [ textpad ] initialize : textpad-path ( -- path ) \ textpad-path get-global [ diff --git a/basis/editors/textwrangler/tags.txt b/basis/editors/textwrangler/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/textwrangler/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/textwrangler/textwrangler.factor b/basis/editors/textwrangler/textwrangler.factor index d95eae9f51..f16b9afa45 100644 --- a/basis/editors/textwrangler/textwrangler.factor +++ b/basis/editors/textwrangler/textwrangler.factor @@ -12,7 +12,8 @@ IN: editors.textwrangler ! Note that launching with ``open -a`` does not support line numbers. SINGLETON: textwrangler -textwrangler editor-class set-global + +editor-class [ textwrangler ] initialize M: textwrangler editor-command "edit" find-in-path [ diff --git a/basis/editors/ui/ui.factor b/basis/editors/ui/ui.factor index 8174703336..631c2f68b1 100644 --- a/basis/editors/ui/ui.factor +++ b/basis/editors/ui/ui.factor @@ -1,12 +1,17 @@ ! Copyright (C) 2018 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors editors kernel sequences ui ui.gadgets -ui.gadgets.borders ui.gadgets.buttons ui.gadgets.packs -ui.gadgets.scrollers ui.tools.listener vocabs.loader ; +USING: accessors editors kernel namespaces sequences ui +ui.gadgets ui.gadgets.borders ui.gadgets.buttons +ui.gadgets.packs ui.gadgets.scrollers ui.tools.listener +vocabs.loader ; IN: editors.ui : ( editor -- button ) - dup '[ drop [ _ reload ] \ run call-listener ] ; + dup '[ + drop + [ f editor-class set-global _ reload ] + \ run call-listener + ] ; : ( -- gadget ) { 2 2 } >>gap available-editors diff --git a/basis/editors/ultraedit/tags.txt b/basis/editors/ultraedit/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/ultraedit/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/ultraedit/ultraedit.factor b/basis/editors/ultraedit/ultraedit.factor index 539123aad5..970a10353c 100644 --- a/basis/editors/ultraedit/ultraedit.factor +++ b/basis/editors/ultraedit/ultraedit.factor @@ -3,7 +3,8 @@ math.parser namespaces system ; IN: editors.ultraedit SINGLETON: ultraedit -ultraedit editor-class set-global + +editor-class [ ultraedit ] initialize HOOK: find-ultraedit os ( -- path ) diff --git a/basis/editors/vim/tags.txt b/basis/editors/vim/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/vim/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/vim/vim.factor b/basis/editors/vim/vim.factor index 79618ac08b..39d20c41d1 100644 --- a/basis/editors/vim/vim.factor +++ b/basis/editors/vim/vim.factor @@ -3,7 +3,8 @@ namespaces sequences strings ; IN: editors.vim TUPLE: vim ; -T{ vim } editor-class set-global + +editor-class [ T{ vim } ] initialize SYMBOL: vim-path diff --git a/basis/editors/visual-studio-code-exploration/visual-studio-code-exploration.factor b/basis/editors/visual-studio-code-exploration/visual-studio-code-exploration.factor index a503b358b5..0d507f9aa9 100644 --- a/basis/editors/visual-studio-code-exploration/visual-studio-code-exploration.factor +++ b/basis/editors/visual-studio-code-exploration/visual-studio-code-exploration.factor @@ -7,7 +7,7 @@ IN: editors.visual-studio-code-exploration TUPLE: visual-studio-code-exploration < visual-studio-code ; -T{ visual-studio-code-exploration } editor-class set-global +editor-class [ T{ visual-studio-code-exploration } ] initialize M: visual-studio-code-exploration find-visual-studio-code-path os { diff --git a/basis/editors/visual-studio-code-insiders/visual-studio-code-insiders.factor b/basis/editors/visual-studio-code-insiders/visual-studio-code-insiders.factor index deffec0482..48678de096 100644 --- a/basis/editors/visual-studio-code-insiders/visual-studio-code-insiders.factor +++ b/basis/editors/visual-studio-code-insiders/visual-studio-code-insiders.factor @@ -7,7 +7,7 @@ IN: editors.visual-studio-code-insiders TUPLE: visual-studio-code-insiders < visual-studio-code ; -T{ visual-studio-code-insiders } editor-class set-global +editor-class [ T{ visual-studio-code-insiders } ] initialize M: visual-studio-code-insiders find-visual-studio-code-path os { diff --git a/basis/editors/visual-studio-code/visual-studio-code.factor b/basis/editors/visual-studio-code/visual-studio-code.factor index 867a3c42e6..70880e99e9 100644 --- a/basis/editors/visual-studio-code/visual-studio-code.factor +++ b/basis/editors/visual-studio-code/visual-studio-code.factor @@ -9,7 +9,8 @@ IN: editors.visual-studio-code ! https://code.visualstudio.com/docs/editor/command-line TUPLE: visual-studio-code ; -T{ visual-studio-code } editor-class set-global + +editor-class [ T{ visual-studio-code } ] initialize HOOK: find-visual-studio-code-path editor-class ( -- path ) diff --git a/basis/editors/visual-studio-codium/visual-studio-codium.factor b/basis/editors/visual-studio-codium/visual-studio-codium.factor index a47975b5d1..923001c375 100644 --- a/basis/editors/visual-studio-codium/visual-studio-codium.factor +++ b/basis/editors/visual-studio-codium/visual-studio-codium.factor @@ -7,7 +7,7 @@ IN: editors.visual-studio-codium TUPLE: visual-studio-codium < visual-studio-code ; -T{ visual-studio-codium } editor-class set-global +editor-class [ T{ visual-studio-codium } ] initialize M: visual-studio-codium find-visual-studio-code-path os { diff --git a/basis/editors/wordpad/tags.txt b/basis/editors/wordpad/tags.txt deleted file mode 100644 index ebb74b4d5f..0000000000 --- a/basis/editors/wordpad/tags.txt +++ /dev/null @@ -1 +0,0 @@ -not loaded diff --git a/basis/editors/wordpad/wordpad.factor b/basis/editors/wordpad/wordpad.factor index 3245e0cfd8..6d8fa4835c 100644 --- a/basis/editors/wordpad/wordpad.factor +++ b/basis/editors/wordpad/wordpad.factor @@ -2,7 +2,8 @@ USING: arrays editors io.standard-paths kernel namespaces ; IN: editors.wordpad SINGLETON: wordpad -wordpad editor-class set-global + +editor-class [ wordpad ] initialize : wordpad-path ( -- path ) \ wordpad-path get [ diff --git a/basis/editors/xcode/xcode.factor b/basis/editors/xcode/xcode.factor index 0e0da19061..b694e2fc1d 100644 --- a/basis/editors/xcode/xcode.factor +++ b/basis/editors/xcode/xcode.factor @@ -2,7 +2,8 @@ USING: editors kernel make namespaces ; IN: editors.xcode SINGLETON: xcode -xcode editor-class set-global + +editor-class [ xcode ] initialize M: xcode editor-command drop -- 2.34.1