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

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

Browse Source 
- 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 (with-accessors ((rows rows)) window
(when rows (when rows
(let ((height (win-height-no-border window))) (let ((height (win-height-no-border window)))
(when (>= (rows-length window) height) (if (>= (rows-length window) height)
(select-row window (- (rows-length window) (select-row window (- (rows-length window)
height)))))) height))
(select-first-row window)))))
window) window)
(defmethod adjust-selected-rows ((object row-oriented-widget) (strategy function)) (defmethod adjust-selected-rows ((object row-oriented-widget) (strategy function))

5
src/program-events.lisp
View File

@ -1230,8 +1230,9 @@
(progn (progn
(setf (gemini-viewer:gemini-metadata-source-file window-metadata) source) (setf (gemini-viewer:gemini-metadata-source-file window-metadata) source)
(setf (gemini-viewer:gemini-metadata-links window-metadata) links) (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)) (defmethod process-event ((object gemini-got-line-event))
(with-accessors ((response payload) (with-accessors ((response payload)