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

- [gemini] fixed row moving in TOC window.

This commit is contained in:
cage 2021-05-16 15:43:11 +02:00
parent 6ecc3fc5a0
commit d5f5bad33c
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/gemini-page-toc.lisp
View File

@ -84,7 +84,6 @@
(setf *gemini-toc-window*
(make-instance 'gemini-toc-window
:title (_ "Table of contents")
:single-row-height 1
:uses-border-p t
:keybindings keybindings:*gemini-toc-keymap*
:croatoan-window low-level-window

2
src/ui-goodies.lisp
View File

@ -1936,7 +1936,7 @@ gemini page the program is rendering."
(trivial-line-oriented-window-move *gemini-toc-window* -1))
(defun gemini-toc-scroll-down ()
(trivial-line-oriented-window-move *gemini-toc-window* 2))
(trivial-line-oriented-window-move *gemini-toc-window* 1))
(defun gemini-toc-jump-to-entry ()
(let* ((selected-row (line-oriented-window:selected-row-fields *gemini-toc-window*))