From 1e35d6781fa4cbc02404ba3335d39b7e60a01306 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Fri, 17 Dec 2021 13:15:51 -0700 Subject: [PATCH] find next in ktxt2editor --- projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss b/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss index 95b0812f..64ba9851 100644 --- a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss +++ b/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss @@ -61,10 +61,10 @@ (if e.ctrlKey (case e.key ("f" (find)) - ("n" (findNext)) (otherwise)) (unless activeEditor (case e.key + ("n" (findNext)) ("g" (pageTop)) ("v" (pageBottom)) ("ArrowUp" (pageUp)) @@ -453,7 +453,8 @@ (postMessage (object type "find"))) (function findNext [] - (postMessage (object type "findNext"))) + (let [s (getState)] + (_find s.lastSearch))) (defMacro __find [] `(let [elem (nth ktxt2Elements idx)] @@ -463,6 +464,7 @@ (return))))) (function :Void _find [text] + (changeState s (set s.lastSearch text)) (let [startIdx elementScrollY] (doFor idx (range (+ 1 startIdx) ktxt2Elements.length) (__find))