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

- fixed 'adjust-rows-select-last'; 

- rewinded selected row to first one when a new gemin page is loaded.
This commit is contained in:
cage 2021-10-08 12:11:00 +02:00
parent 40f6f0642a
commit f9f5a868b3
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -238,9 +238,10 @@
(with-accessors ((rows rows)) window
(when rows
(let ((height (win-height-no-border window)))
(when (>= (rows-length window) height)
(select-row window (- (rows-length window)
height))))))
(if (>= (rows-length window) height)
(select-row window (- (rows-length window)
height))
(select-first-row window)))))
window)
(defmethod adjust-selected-rows ((object row-oriented-widget) (strategy function))

5
src/program-events.lisp
View File

@ -1230,8 +1230,9 @@
(progn
(setf (gemini-viewer:gemini-metadata-source-file window-metadata) source)
(setf (gemini-viewer:gemini-metadata-links window-metadata) links)
(funcall (message-window:adjust-rows-strategy win) win)
(line-oriented-window:update-all-rows win new-rows)))))))
(line-oriented-window:update-all-rows win new-rows)
(line-oriented-window:adjust-selected-rows specials:*message-window*
#'line-oriented-window:adjust-rows-select-first)))))))
(defmethod process-event ((object gemini-got-line-event))
(with-accessors ((response payload)