kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Escape to close kvscode shortcut panel

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-10-22 16:48:48 -04:00
parent 08be4c7459
commit 821a66992c
1 changed files with 19 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
projects/kiss-vscode/config/KissConfig.kiss
View File

@@ -136,23 +136,25 @@
(let [&mut keyListener null]
(set keyListener (shortcutPanel.webview.onDidReceiveMessage
->:Void key
(if (prefixMap.exists key)
{
(keyListener.dispose)
(case (dictGet prefixMap key)
((Prefix innerMap)
(showShortcutPanel innerMap))
((Final command)
// TODO dispose() for some reason doesn't take effect until
// the awaitLet below finishes its work...
(shortcutPanel.dispose)
(if documentBeforeShortcut
(awaitLet [_ (Vscode.window.showTextDocument documentBeforeShortcut)]
(_runCommand command selectedTextBeforeShortcut))
(_runCommand command selectedTextBeforeShortcut))))
}
(warningMessage "$key is not mapped to a shortcut in this context")))))
(case (the String key)
((when (prefixMap.exists key) key)
(keyListener.dispose)
(case (dictGet prefixMap key)
((Prefix innerMap)
(showShortcutPanel innerMap))
((Final command)
// TODO dispose() for some reason doesn't take effect until
// the awaitLet below finishes its work...
(shortcutPanel.dispose)
(if documentBeforeShortcut
(awaitLet [_ (Vscode.window.showTextDocument documentBeforeShortcut)]
(_runCommand command selectedTextBeforeShortcut))
(_runCommand command selectedTextBeforeShortcut)))))
("Escape"
(shortcutPanel.dispose))
(otherwise (warningMessage "$key is not mapped to a shortcut in this context"))))))
(set shortcutPanel.webview.html (shortcutPanelHtml prefixMap))
(shortcutPanel.webview.postMessage (object command "focus")))