From 946bbd15977b8d99975f908a4e28e5538eff8452 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 2 Sep 2020 17:46:32 -0500 Subject: [PATCH] vscode: Prefer code-insiders version if installed. --- basis/editors/visual-studio-code/visual-studio-code.factor | 3 ++- basis/windows/shell32/shell32.factor | 6 ++++++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/basis/editors/visual-studio-code/visual-studio-code.factor b/basis/editors/visual-studio-code/visual-studio-code.factor index 5ac6c00bfd..b8e5f2236d 100644 --- 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 25b1ecca8a..1dbd925463 100644 --- 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 ; -- 2.34.1