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

- [GUI] fixed checkbutton for case matching search in gemntext.

This commit is contained in:
cage 2023-05-03 16:18:47 +02:00
parent be04ddc99c
commit 53a6a6e9ab
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/gui/client/search-frame.lisp
View File

@ -54,14 +54,15 @@
(declare (ignore e))
(loop for match in (matches frame) do
(gui:tag-delete gemtext-widget (gui:match-tag-name match)))
(let ((tags (gui:search-all-text gemtext-widget (gui:text (entry frame))
:case-insensitive (gui:value case-sensitive-checkbox))))
(let ((tags (gui:search-all-text gemtext-widget
(gui:text (entry frame))
:case-insensitive
(not (gui:value case-sensitive-checkbox)))))
(setf (matches frame) (nreverse tags)))
(loop for match in (matches frame) do
(gui:tag-configure gemtext-widget
(gui:match-tag-name match)
:background (gui:cget gemtext-widget
:highlightbackground)))))
:background (gui:cget gemtext-widget :highlightbackground)))))
(setf (gui:command (button-next frame))
(lambda ()
(when (matches frame)