amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

v0.8.2: fix grey background/text cosmetic issues

Browse Source 
- view-chat draw-text calls: change nil bg to (theme-color :bg)
  so text characters sit on explicit near-black instead of terminal
  default background (which appears as grey highlight)
- cl-tty bump (v1.2.0: remove \n from draw-rect that caused scroll
  leaving the last row blank)
This commit is contained in:
Amr Gharbeia
2026-05-20 09:57:59 -04:00
parent b61191bec2
commit 8eb866dee3
2 changed files with 53 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
org/channel-tui-view.org
View File

@@ -181,13 +181,13 @@ Returns a list of strings, one per line."
do (let ((pairs (aref msg-lines i)))
(dolist (pair pairs)
(when (>= y panel-top) (return))
(destructuring-bind (bstr bcolor tstr tcolor &optional rect-bg) pair
(when rect-bg
(cl-tty.backend:draw-rect fb 0 y 1 1 :bg rect-bg))
(let ((has-border (and bstr (> (length bstr) 0))))
(when has-border
(cl-tty.backend:draw-text fb hpad y bstr bcolor nil))
(cl-tty.backend:draw-text fb (+ hpad (if has-border 2 0)) y tstr tcolor nil)))
(destructuring-bind (bstr bcolor tstr tcolor &optional rect-bg) pair
(when rect-bg
(cl-tty.backend:draw-rect fb 0 y 1 1 :bg rect-bg))
(let ((has-border (and bstr (> (length bstr) 0))))
(when has-border
(cl-tty.backend:draw-text fb hpad y bstr bcolor (theme-color :bg)))
(cl-tty.backend:draw-text fb (+ hpad (if has-border 2 0)) y tstr tcolor (theme-color :bg))))
(incf y))
;; spacer between message blocks
(when (< i (1- total))