diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org index 4e08192..a00a9dc 100644 --- a/org/channel-tui-main.org +++ b/org/channel-tui-main.org @@ -922,9 +922,10 @@ Event handlers + daemon I/O + main loop. (cl-tty.backend:backend-clear be) (view-status be w h) (view-chat be w h) - (view-input be w h) + ;; Draw separator line above input (cl-tty.backend:draw-text be 0 (- h 4) (make-string w :initial-element #\─) (theme-color :separator) nil) + (view-input be w h) (loop while (st :running) do (dolist (ev (drain-queue)) (cond @@ -967,13 +968,13 @@ Event handlers + daemon I/O + main loop. (when (or (first (st :dirty)) (second (st :dirty)) (third (st :dirty))) (cl-tty.backend:backend-clear be) (view-status be w h) - (view-chat be w h) - (view-input be w h) - ;; Draw separator line above input - (cl-tty.backend:draw-text be 0 (- h 4) (make-string w :initial-element #\─) - (theme-color :separator) nil) - (when (and (st :sidebar-visible) (>= w 120)) - (view-sidebar be w h)) + (view-chat be w h) + ;; Draw separator line above input + (cl-tty.backend:draw-text be 0 (- h 4) (make-string w :initial-element #\─) + (theme-color :separator) nil) + (view-input be w h) + (when (and (st :sidebar-visible) (>= w 120)) + (view-sidebar be w h)) (setf (st :dirty) (list nil nil nil))) (let ((ds (st :dialog-stack))) (when ds