vscode: Prefer code-insiders version if installed.
parent
0b5cb42d95
commit
946bbd1597
|
@ -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|| ;
|
||||||
|
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue