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

find next in ktxt2editor

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-17 13:15:51 -07:00
parent 7af9963902
commit 1e35d6781f
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -61,10 +61,10 @@
(if e.ctrlKey (if e.ctrlKey
(case e.key (case e.key
("f" (find)) ("f" (find))
("n" (findNext))
(otherwise)) (otherwise))
(unless activeEditor (unless activeEditor
(case e.key (case e.key
("n" (findNext))
("g" (pageTop)) ("g" (pageTop))
("v" (pageBottom)) ("v" (pageBottom))
("ArrowUp" (pageUp)) ("ArrowUp" (pageUp))
@@ -453,7 +453,8 @@
(postMessage (object type "find"))) (postMessage (object type "find")))
(function findNext [] (function findNext []
(postMessage (object type "findNext"))) (let [s (getState)]
(_find s.lastSearch)))
(defMacro __find [] (defMacro __find []
`(let [elem (nth ktxt2Elements idx)] `(let [elem (nth ktxt2Elements idx)]
@@ -463,6 +464,7 @@
(return))))) (return)))))
(function :Void _find [text] (function :Void _find [text]
(changeState s (set s.lastSearch text))
(let [startIdx elementScrollY] (let [startIdx elementScrollY]
(doFor idx (range (+ 1 startIdx) ktxt2Elements.length) (doFor idx (range (+ 1 startIdx) ktxt2Elements.length)
(__find)) (__find))