mirror of https://codeberg.org/cage/tinmop/
68 lines
3.1 KiB
Common Lisp
68 lines
3.1 KiB
Common Lisp
(in-package :client-search-frame)
|
|
|
|
(named-readtables:in-readtable nodgui.syntax:nodgui-syntax)
|
|
|
|
(defclass search-frame (gui:frame)
|
|
((entry
|
|
:initform nil
|
|
:initarg :entry
|
|
:accessor entry)
|
|
(button-next
|
|
:initform nil
|
|
:initarg :button-next
|
|
:accessor button-next)
|
|
(button-previous
|
|
:initform nil
|
|
:initarg :button-previous
|
|
:accessor button-previous)
|
|
(matches
|
|
:initform nil
|
|
:initarg :matches
|
|
:accessor matches)
|
|
(counter
|
|
:initform 0
|
|
:initarg :counter
|
|
:accessor counter)))
|
|
|
|
(defun init-window (main-window)
|
|
(let* ((frame (make-instance 'search-frame :master main-window))
|
|
(gemtext-widget (client-main-window::gemtext-widget main-window))
|
|
(search-label (make-instance 'gui:label :master frame :text (_ "Search: ")))
|
|
(case-sensitive-checkbox (make-instance 'gui:check-button
|
|
:master frame
|
|
:text (_ "Case sensitive"))))
|
|
|
|
(setf (entry frame) (make-instance 'gui:entry :master frame))
|
|
(setf (button-next frame) (make-instance 'gui:button :image icons:*arrow-down*
|
|
:master frame))
|
|
(setf (button-previous frame) (make-instance 'gui:button :image icons:*arrow-up*
|
|
:master frame))
|
|
(gui:grid search-label 0 0 :sticky :news :padx +minimum-padding+)
|
|
(gui:grid (entry frame) 0 1 :sticky :news :padx +minimum-padding+)
|
|
(gui:grid (button-previous frame) 0 2 :sticky :nw :padx +minimum-padding+)
|
|
(gui:grid (button-next frame) 0 3 :sticky :nw :padx +minimum-padding+)
|
|
(gui:grid case-sensitive-checkbox 0 4 :sticky :ns :padx +minimum-padding+)
|
|
(gui:bind (entry frame)
|
|
#$<KeyPress-Return>$
|
|
(lambda (e)
|
|
(declare (ignore e))
|
|
(loop for match in (matches frame) do
|
|
(gui:tag-delete gemtext-widget (gui:match-tag-name match)))
|
|
(setf (matches frame)
|
|
(gui:search-all-text gemtext-widget (gui:text (entry frame))
|
|
:case-insensitive (gui:value case-sensitive-checkbox)))
|
|
(loop for match in (matches frame) do
|
|
(gui:tag-configure gemtext-widget
|
|
(gui:match-tag-name match)
|
|
:background (gui:cget gemtext-widget
|
|
:highlightbackground)))))
|
|
(setf (gui:command (button-next frame))
|
|
(lambda ()
|
|
(setf (counter frame) (rem (1+ (counter frame)) (length (matches frame))))
|
|
(gui:see gemtext-widget (gui:match-start (elt (matches frame) (counter frame))))))
|
|
(setf (gui:command (button-previous frame))
|
|
(lambda ()
|
|
(setf (counter frame) (max 0 (1- (counter frame))))
|
|
(gui:see gemtext-widget (gui:match-start (elt (matches frame) (counter frame))))))
|
|
frame))
|