cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed padding of modeline.

This commit is contained in:
cage 2023-07-27 15:47:54 +02:00
parent 376ba4e783
commit a92bed217f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/modeline-window.lisp
View File

@ -123,7 +123,9 @@
(max-width (win-width-no-border object)))
(when (< line-length max-width)
(setf line
(cat-tui-string line (build-string (- max-width line-length)))))
(cat-tui-string line
(build-string (- max-width line-length))
:color-attributes-contagion t)))
(print-text object line 1 (1- (win-height object)))))))
(defun add-modeline-char-expander (win code fn)