From 53a6a6e9aba828613060da917ac8a78bb2ecfc26 Mon Sep 17 00:00:00 2001 From: cage Date: Wed, 3 May 2023 16:18:47 +0200 Subject: [PATCH] - [GUI] fixed checkbutton for case matching search in gemntext. --- src/gui/client/search-frame.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/gui/client/search-frame.lisp b/src/gui/client/search-frame.lisp index 354e715..aefb0b7 100644 --- a/src/gui/client/search-frame.lisp +++ b/src/gui/client/search-frame.lisp @@ -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)