fix: cursor-style called before cursor-show to avoid style reset

2026-05-16 17:56:49 -04:00
parent 2785d6913f
commit e115a88690
1 changed files with 2 additions and 1 deletions
--- a/src/backend/modern.lisp
+++ b/src/backend/modern.lisp
@@ -128,7 +128,8 @@ as a fallback when a keyword is not in *named-colors*.")
  (backend-write b (format nil "~C[?1006h" #\Esc))  ; SGR mouse
  (backend-write b (format nil "~C[?2004h" #\Esc))  ; bracketed paste
  (backend-write b (format nil "~C[?u" #\Esc))      ; kitty keyboard
-  (cursor-hide b)
+  (cursor-style b :block :blink t)
+  (cursor-show b)
  (finish-output (backend-output-stream b))
  b)