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

keyboard shortcut help in ktxt2 editor

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-18 15:25:50 -07:00
parent a1c89f1186
commit 9827febcca
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
View File

@@ -67,6 +67,7 @@
(otherwise)) (otherwise))
(unless activeEditor (unless activeEditor
(case e.key (case e.key
("h" (showHelp))
("n" (findNext)) ("n" (findNext))
("g" (pageTop)) ("g" (pageTop))
("v" (pageBottom)) ("v" (pageBottom))
@@ -76,6 +77,9 @@
("ArrowRight" (scrollToPageBottom)) ("ArrowRight" (scrollToPageBottom))
("s" (export)) ("s" (export))
(otherwise))))) (otherwise)))))
(function showHelp []
(print "s: export | C-f: find | n: find next | C-m: Try full conversion | h: show this message | g/v: beginning/end of file | arrow down/up: next page/previous page. | arrow left/right: scroll to page top/bottom"))
// Don't use getState helper here because we don't want to force updateContent with blank text // Don't use getState helper here because we don't want to force updateContent with blank text
(whenLet [state (the EditorState (_vscode.getState))] (whenLet [state (the EditorState (_vscode.getState))]
@@ -402,10 +406,13 @@
(document.body.appendChild content) (document.body.appendChild content)
(when text (set ktxt2Elements (KTxt2.splitFileElements (Stream.fromString text)))) (when text (set ktxt2Elements (KTxt2.splitFileElements (Stream.fromString text))))
(let [terminatorEditor (document.createElement "div") (let [terminatorEditor (document.createElement "div")
help (document.createElement "p")
explanation (document.createElement "p")] explanation (document.createElement "p")]
(set help.innerHTML "press h for keyboard shortcut help")
(set explanation.innerHTML "Force output blocks to end with:") (set explanation.innerHTML "Force output blocks to end with:")
(monacoEditor terminatorEditor "" (KTxt2.insertSpecialChars (KTxt2.outputBlockTerminator (Stream.fromString text))) "txt" false (monacoEditor terminatorEditor "" (KTxt2.insertSpecialChars (KTxt2.outputBlockTerminator (Stream.fromString text))) "txt" false
->editor (changeOutputTerminator (KTxt2.insertSpecialChars (editor.getValue)))) ->editor (changeOutputTerminator (KTxt2.insertSpecialChars (editor.getValue))))
(content.appendChild help)
(content.appendChild explanation) (content.appendChild explanation)
(content.appendChild terminatorEditor)) (content.appendChild terminatorEditor))
(when (< 0 elementScrollY) (when (< 0 elementScrollY)