From c63d6a384cd43cbfa582c5dd4571f6d33ba8acf8 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Tue, 14 Dec 2021 18:22:13 -0700 Subject: [PATCH] Filter more unused warnings from compile errors in kvscode --- projects/kiss-vscode/src/Main.kiss | 1 + projects/kiss-vscode/src/Util.kiss | 6 ++++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/projects/kiss-vscode/src/Main.kiss b/projects/kiss-vscode/src/Main.kiss index e8b7a07e..96034f29 100644 --- a/projects/kiss-vscode/src/Main.kiss +++ b/projects/kiss-vscode/src/Main.kiss @@ -20,6 +20,7 @@ (when (FileSystem.exists lastConfigDir) (FileSystem.rename lastConfigDir activeConfigDir)) // When user config fails to build, use the default + // Counterintuitively, this unless is correct: (unless fallbackToDefault (warningMessage "Falling back to the default Kiss-VSCode Config") (unless config diff --git a/projects/kiss-vscode/src/Util.kiss b/projects/kiss-vscode/src/Util.kiss index 786466c7..7ee6ddc6 100644 --- a/projects/kiss-vscode/src/Util.kiss +++ b/projects/kiss-vscode/src/Util.kiss @@ -102,7 +102,8 @@ null))))) (function :Void showCompileError [errorMessage] - (ifLet [compileErrors (R.distinctMatches + (ifLet [errorMessage (.join (filter (errorMessage.split "\n") ->[:String l] (= -1 (l.indexOf "This case is unused"))) "\n") + compileErrors (R.distinctMatches (R.group (R.namedGroup "file" (R.repeat (R.oneOf R.anyLetter R.anyDigit (R.escape "/")) 1) // filename @@ -117,7 +118,8 @@ errorMessage)] { (Vscode.window.showErrorMessage errorMessage) - (awaitLet [chosen (quickPickMap (for match (filter compileErrors ->match (= -1 (match.match.indexOf "This case is unused"))) =>match.match match))] + (awaitLet [chosen (quickPickMap (for match compileErrors =>match.match match))] + (Vscode.window.showErrorMessage chosen.match) (executeCommand "workbench.action.quickOpen" (substr (chosen.namedGroup "file") 0 -1))) } (Vscode.window.showErrorMessage errorMessage))) \ No newline at end of file