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

- prevented printing line count for empty row window.

This commit is contained in:
cage 2022-04-16 17:54:57 +02:00
parent 9b724d2639
commit 1e9fecc599
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/line-oriented-window.lisp
View File

@ -468,20 +468,20 @@ this exact quantity would go beyond the length or rows or zero."
x y
:bgcolor (normal-bg row)
:fgcolor (normal-fg row))))
(let* ((current-selected (1+ (row-selected-index object)))
(pages-count-line (text-ellipsis (format nil
(_ "line ~a of ~a")
current-selected
(rows-length object))
(win-width-no-border object)))
(x-count-line (- (win-width object)
(length pages-count-line)
1))
(y-count-line (1- (win-height object))))
(print-text object
pages-count-line
x-count-line
y-count-line)))))))
(when (> (rows-length object) 0)
(let* ((current-selected (1+ (row-selected-index object)))
(pages-count-line (format nil
(_ "line ~a of ~a")
current-selected
(rows-length object)))
(x-count-line (- (win-width object)
(length pages-count-line)
1))
(y-count-line (1- (win-height object))))
(print-text object
(text-ellipsis pages-count-line (win-width-no-border object))
x-count-line
y-count-line))))))))
(defgeneric resync-rows-db (object &key redraw)
(:documentation "Synchronize information table slot of `object` with