suggest unused keys in kiss shortcut map

2021-12-21 15:18:17 -07:00
parent f2800e0bcd
commit 5db920d39e
1 changed files with 4 additions and 1 deletions
--- a/projects/kiss-vscode/config/KissConfig.kiss
+++ b/projects/kiss-vscode/config/KissConfig.kiss
@@ -123,8 +123,10 @@
    (shortcutPanel.webview.postMessage (object command "focus")))

 (function shortcutPanelHtml [:Map<String,ShortcutKey> prefixMap]
-    (let [shortcutParagraphs
+    (let [&mut unusedKeys "abcdefghijklmnopqrstuvwxyz1234567890-/"
+            shortcutParagraphs
                (for =>key shortcutKey prefixMap
+                    (set unusedKeys (unusedKeys.replace (key.toLowerCase) ""))
                    "<p><strong>${key}</strong> - $(case shortcutKey
                                    ((Prefix innerMap)
                                        "$(Lambda.count innerMap) shortcuts")
@@ -140,6 +142,7 @@
            </head>
            <body>
                $(shortcutParagraphs.join "")
+                <p>unused: ${unusedKeys}</p>
                <script>
                    const vscode = acquireVsCodeApi();
                    window.addEventListener('message', function(event) {