humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better naming of functions to create search/char highlight

Browse Source
This commit is contained in:
Humza Shahid
2025-10-15 10:01:50 +01:00
parent e2ed022ccc
commit 60b6cc6d6d
3 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fcore/text-builder/text-builder-with-highlight.sml
View File

@@ -146,7 +146,7 @@ struct
acc
val acc =
if PersistentVector.isInRange (absIdx, #searchList env) then
Utils.makeHighlight (posX, posY, env) :: acc
Utils.makeSearchHighlight (posX, posY, env) :: acc
else
acc
val posX =
@@ -231,11 +231,11 @@ struct
let
val acc =
if absIdx = cursorIdx then
Utils.makeCursorOnChr (chr, posX, posY, env)
Utils.makeCursorHighlightedChr (chr, posX, posY, env)
:: Utils.makeCursor (posX, posY, env) :: acc
else if PersistentVector.isInRange (absIdx, #searchList env) then
Utils.makeHighlightChr (chr, posX, posY, env)
:: Utils.makeHighlight (posX, posY, env) :: acc
Utils.makeSearchHighlightedChr (chr, posX, posY, env)
:: Utils.makeSearchHighlight (posX, posY, env) :: acc
else
Utils.makeChr (chr, posX, posY, env) :: acc
in