From e115a88690d0c27a75e00b5cc15275c32ab901e6 Mon Sep 17 00:00:00 2001
From: Amr Gharbeia <amr@gharbeia.net>
Date: Sat, 16 May 2026 17:56:49 -0400
Subject: [PATCH] fix: cursor-style called before cursor-show to avoid style
 reset

---
 src/backend/modern.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/backend/modern.lisp b/src/backend/modern.lisp
index 5e1be3b..8d79ef9 100644
--- 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)