better visual positioning for cursor

2025-09-27 08:14:22 +01:00
parent 2c388899ca
commit 5e9872e4d6
2 changed files with 11 additions and 17 deletions
--- a/fcore/text-builder/text-builder-utils.sml
+++ b/fcore/text-builder/text-builder-utils.sml
@@ -150,7 +150,7 @@ struct
  (* different functions to make vectors of different things we want to draw. *)
  fun makeCursor (posX, posY, env: env_data) =
    Rect.lerp
-      ( Real32.fromInt (posX - 1)
+      ( Real32.fromInt (posX - 2)
      , Real32.fromInt posY
      , #cursorZ env
      , TC.scale
@@ -163,7 +163,7 @@ struct

  fun makeHighlight (posX, posY, env: env_data) =
    Rect.lerp
-      ( Real32.fromInt (posX - 1)
+      ( Real32.fromInt (posX - 2)
      , Real32.fromInt posY
      , #highlightZ env
      , TC.scale