amr/cl-tty
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: text-input cursor now rendered as solid block at cursor position

Browse Source
This commit is contained in:
Hermes Agent
2026-05-12 13:50:55 +00:00
parent 26ec1dfbe8
commit e198e8b5da
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/components/text-input.lisp
View File

@@ -167,5 +167,8 @@
value value
(or (text-input-placeholder in) ""))) (or (text-input-placeholder in) "")))
(truncated (subseq display 0 (min (length display) w)))) (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)))))