vscode: Prefer code-insiders version if installed.

master
Doug Coleman 2020-09-02 17:46:32 -05:00
parent 0b5cb42d95
commit 946bbd1597
2 changed files with 8 additions and 1 deletions

View File

@ -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|| ;

View File

@ -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 ;