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

- added row count for all window that display rows of text.

This commit is contained in:
cage 2022-04-16 11:09:16 +02:00
parent 331dc0973b
commit c9878b2ae4
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -467,7 +467,21 @@ this exact quantity would go beyond the length or rows or zero."
max-line-size) max-line-size)
x y x y
:bgcolor (normal-bg row) :bgcolor (normal-bg row)
:fgcolor (normal-fg 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)))))))
(defgeneric resync-rows-db (object &key redraw) (defgeneric resync-rows-db (object &key redraw)
(:documentation "Synchronize information table slot of `object` with (:documentation "Synchronize information table slot of `object` with
@ -501,20 +515,9 @@ will fire the `callback' function (with the selected field from `all-fields'
:uses-border-p t :uses-border-p t
:croatoan-window low-level-window))) :croatoan-window low-level-window)))
(flet ((draw () (flet ((draw ()
(let ((pages-count-line (format nil (win-clear high-level-window :redraw nil)
"~a/~a" (draw high-level-window)
(row-selected-index high-level-window) (print-text high-level-window title 2 0)))
(length text-lines))))
(win-clear high-level-window :redraw nil)
(draw high-level-window)
(win-box high-level-window)
(print-text high-level-window title 2 0)
(print-text high-level-window
pages-count-line
(- (win-width high-level-window)
(length pages-count-line)
1)
(1- (win-height high-level-window))))))
(setf (c:background low-level-window) (tui:make-win-background bg)) (setf (c:background low-level-window) (tui:make-win-background bg))
(setf (c:fgcolor low-level-window) fg) (setf (c:fgcolor low-level-window) fg)
(win-resize high-level-window window-width window-height) (win-resize high-level-window window-width window-height)