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

- [gemini] prevented crash happening when trying to render a TOC from an empty gemtext.

This commit is contained in:
cage 2021-10-04 19:39:31 +02:00
parent 29c6f6b7d5
commit fd39d15050
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,7 +86,8 @@
(defun highlight-current-section (visible-rows window)
(declare (ignore window))
(when-let* ((toc-win *gemini-toc-window*)
(line-fields (fields (first visible-rows)))
(first-row (first visible-rows))
(line-fields (fields first-row))
(gid (getf line-fields :group-id))
(index (position-if (lambda (a) (= (getf (fields a) :group-id)
gid))