cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-03 10:07:36 +01:00
Code Issues

- prevented non rendering of 'new-message' character in tags window.

Browse Source
This commit is contained in:
cage 2021-01-24 14:46:13 +01:00
parent b2e71f7461
commit 3daf205dd8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/tags-window.lisp
View File

@ -67,8 +67,7 @@
(new-messages-mark new-messages-mark)) object
(win-clear object)
(with-croatoan-window (croatoan-window object)
(let ((histogram-width (- (win-width-no-border object)
(length new-messages-mark))))
(let ((histogram-width (* 2/3 (win-width-no-border object))))
(loop
for y from (+ 2 top-row-padding) by single-row-height
for row-fields in (mapcar #'fields rows) do