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

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

Browse Source
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)) (declare (ignore e))
(loop for match in (matches frame) do (loop for match in (matches frame) do
(gui:tag-delete gemtext-widget (gui:match-tag-name match))) (gui:tag-delete gemtext-widget (gui:match-tag-name match)))
(let ((tags (gui:search-all-text gemtext-widget (gui:text (entry frame)) (let ((tags (gui:search-all-text gemtext-widget
:case-insensitive (gui:value case-sensitive-checkbox)))) (gui:text (entry frame))
:case-insensitive
(not (gui:value case-sensitive-checkbox)))))
(setf (matches frame) (nreverse tags))) (setf (matches frame) (nreverse tags)))
(loop for match in (matches frame) do (loop for match in (matches frame) do
(gui:tag-configure gemtext-widget (gui:tag-configure gemtext-widget
(gui:match-tag-name match) (gui:match-tag-name match)
:background (gui:cget gemtext-widget :background (gui:cget gemtext-widget :highlightbackground)))))
:highlightbackground)))))
(setf (gui:command (button-next frame)) (setf (gui:command (button-next frame))
(lambda () (lambda ()
(when (matches frame) (when (matches frame)