editors.visual-studio-code-exploration: Add yet another vscode version.

This one is the Apple M1 experimental version.

diff --git a/basis/editors/visual-studio-code-exploration/authors.txt b/basis/editors/visual-studio-code-exploration/authors.txt
new file mode 100644 (file)
index 0000000..7c1b2f2
--- /dev/null
+++ b/basis/editors/visual-studio-code-exploration/authors.txt
@@ -0,0 +1 @@
+Doug Coleman

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
new file mode 100644 (file)
index 0000000..a503b35
--- /dev/null
+++ b/basis/editors/visual-studio-code-exploration/visual-studio-code-exploration.factor
@@ -0,0 +1,20 @@
+! Copyright (C) 2020 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: combinators editors editors.visual-studio-code
+io.pathnames io.standard-paths kernel namespaces system
+tools.which ;
+IN: editors.visual-studio-code-exploration
+
+TUPLE: visual-studio-code-exploration < visual-studio-code ;
+
+T{ visual-studio-code-exploration } editor-class set-global
+
+M: visual-studio-code-exploration find-visual-studio-code-path
+    os {
+        { linux [ "code-exploration" which ] }
+        { macosx [
+            "com.microsoft.VSCodeExploration" find-native-bundle
+            [ "Contents/MacOS/Electron" append-path ] [ f ] if* ] }
+        { windows [
+            { "Microsoft VS Code Exploration" } "code-exploration.cmd" find-in-applications ] }
+    } case ;