vscode: Prefer code-insiders version if installed.

diff --git a/basis/editors/visual-studio-code/visual-studio-code.factor b/basis/editors/visual-studio-code/visual-studio-code.factor
index 5ac6c00bfd3e58cd0c864d3f2591cf27d2d09c66..b8e5f2236d9dc064ed9188bd5b75d00a04313774 100644 (file)
--- a/basis/editors/visual-studio-code/visual-studio-code.factor
+++ b/basis/editors/visual-studio-code/visual-studio-code.factor
@@ -31,6 +31,7 @@ ERROR: can't-find-visual-studio-code ;
 
 M: linux find-visual-studio-code-invocation
     {
+        [ "code-insiders" which ]
         [ "code" which ]
         [ "Code" which ]
         [ home "VSCode-linux-x64/Code" append-path ]
@@ -39,7 +40,7 @@ M: linux find-visual-studio-code-invocation
 
 M: windows find-visual-studio-code-invocation
     {
-        [ { "Microsoft VS Code" } "code.exe" find-in-applications ]
+        [ { "Microsoft VS Code Insiders" } "code-insiders.cmd" find-in-applications ]
         [ "code.cmd" ]
     } 0|| ;
 

diff --git a/basis/windows/shell32/shell32.factor b/basis/windows/shell32/shell32.factor
index 25b1ecca8aa08084cc5a1846faf709d1c7d5f559..1dbd9254638596071f6b0339df8292e4e4522d89 100644 (file)
--- a/basis/windows/shell32/shell32.factor
+++ b/basis/windows/shell32/shell32.factor
@@ -156,6 +156,12 @@ INSTANCE: +win32-nt-executable+ windows-executable   ! pe
 : application-data ( -- str )
     CSIDL_APPDATA shell32-directory ;
 
+: local-application-data ( -- str )
+    CSIDL_LOCAL_APPDATA shell32-directory ;
+
+: common-application-data ( -- str )
+    CSIDL_COMMON_APPDATA shell32-directory ;
+
 : windows-directory ( -- str )
     CSIDL_WINDOWS shell32-directory ;