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 M: linux find-visual-studio-code-invocation
{ {
[ "code-insiders" which ]
[ "code" which ] [ "code" which ]
[ "Code" which ] [ "Code" which ]
[ home "VSCode-linux-x64/Code" append-path ] [ 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 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" ] [ "code.cmd" ]
} 0|| ; } 0|| ;

View File

@ -156,6 +156,12 @@ INSTANCE: +win32-nt-executable+ windows-executable ! pe
: application-data ( -- str ) : application-data ( -- str )
CSIDL_APPDATA shell32-directory ; 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 ) : windows-directory ( -- str )
CSIDL_WINDOWS shell32-directory ; CSIDL_WINDOWS shell32-directory ;