cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-01-31 04:24:48 +01:00
Code Issues

- [gemini] fixed row moving in TOC window.

Browse Source
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* (setf *gemini-toc-window*
(make-instance 'gemini-toc-window (make-instance 'gemini-toc-window
:title (_ "Table of contents") :title (_ "Table of contents")
:single-row-height 1
:uses-border-p t :uses-border-p t
:keybindings keybindings:*gemini-toc-keymap* :keybindings keybindings:*gemini-toc-keymap*
:croatoan-window low-level-window :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)) (trivial-line-oriented-window-move *gemini-toc-window* -1))
(defun gemini-toc-scroll-down () (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 () (defun gemini-toc-jump-to-entry ()
(let* ((selected-row (line-oriented-window:selected-row-fields *gemini-toc-window*)) (let* ((selected-row (line-oriented-window:selected-row-fields *gemini-toc-window*))