From 4455ca95380cb85c833b0a181615af3b9d69db05 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Fri, 17 Dec 2021 12:42:58 -0700
Subject: [PATCH] make Ctrl+f in ktxt2 case-insensitive

---
 projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss b/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
index 989b109e..07659fbe 100644
--- a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
+++ b/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
@@ -456,12 +456,11 @@
 (defMacro __find []
     `(let [elem (nth ktxt2Elements idx)]
         (assertLet [(Block block) elem]
-            (whenLet [(Some foundIdx) (indexOf "${block.source}${block.output}" text)]
+            (whenLet [(Some foundIdx) (indexOf (.toLowerCase "${block.source}${block.output}") (.toLowerCase text))]
                 (changeElementScrollY ->(set elementScrollY idx))
                 (return)))))
 
 (function :Void _find [text]
-    // TODO use (indexOf) to find the text in source/output of elements, then set elementScrollY to that element
     (let [startIdx elementScrollY]
         (doFor idx (range (+ 1 startIdx) ktxt2Elements.length)
             (__find))