src/components/text-input.lisp

@@ -167,5 +167,8 @@
                       value
                       (or (text-input-placeholder in) "")))
          (truncated (subseq display 0 (min (length display) w))))
-    (declare (ignore cursor))
-    (draw-text backend x y truncated nil nil)))
+    (draw-text backend x y truncated nil nil)
+    ;; Draw a solid-block cursor at the visible cursor position
+    (when (plusp (length value))
+      (let ((cursor-col (min cursor (length truncated))))
+        (draw-text backend (+ x cursor-col) y "█" :bright-white nil)))))