From 60ce9c894cf9120426724c5e6109bfa0dfa4db61 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Wed, 13 May 2026 16:29:50 -0400 Subject: [PATCH] fix: backend-clear called with framebuffer instead of backend Main loop was calling (backend-clear curr-fb) where curr-fb is a framebuffer array. Changed to (backend-clear be) using the cl-tty backend, which writes the terminal clear escape sequence. --- lisp/channel-tui-main.lisp | 2 +- org/channel-tui-main.org | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/channel-tui-main.lisp b/lisp/channel-tui-main.lisp index f79f914..f715a9c 100644 --- a/lisp/channel-tui-main.lisp +++ b/lisp/channel-tui-main.lisp @@ -842,7 +842,7 @@ (add-msg :system "Search exited"))) (t (on-key ch))))))) (when (or (first (st :dirty)) (second (st :dirty)) (third (st :dirty))) - (cl-tty.backend:backend-clear curr-fb) + (cl-tty.backend:backend-clear be) (redraw curr-fb w h) (cl-tty.rendering:flush-framebuffer prev-fb curr-fb be) (rotatef prev-fb curr-fb)) diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org index d1993f9..de70c23 100644 --- a/org/channel-tui-main.org +++ b/org/channel-tui-main.org @@ -885,7 +885,7 @@ Event handlers + daemon I/O + main loop. (add-msg :system "Search exited"))) (t (on-key ch))))))) (when (or (first (st :dirty)) (second (st :dirty)) (third (st :dirty))) - (cl-tty.backend:backend-clear curr-fb) + (cl-tty.backend:backend-clear be) (redraw curr-fb w h) (cl-tty.rendering:flush-framebuffer prev-fb curr-fb be) (rotatef prev-fb curr-fb))