mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -08:00
Code Issues Projects Releases Wiki Activity

Improved M-. search

Browse source
This commit is contained in:
David Botton 2022-08-04 00:30:04 -04:00
parent 5b25d747e4
commit 2d7896c0b2
2 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tools/clog-builder.lisp
View file

@ -2336,9 +2336,18 @@ of controls and double click to select control."
(setf (text-value (doc-box panel)) "")
(setf (text-value (file-name panel)) "")
(setf (fname panel) nil)
(let ((filter (text-value (search-box panel)))
(class-only (checkedp (class-only panel)))
(pac (text-value (package-box panel))))
(let* ((filter (text-value (search-box panel)))
(has-pac (position #\: filter :test #'equal))
(class-only (checkedp (class-only panel)))
(pac (text-value (package-box panel))))
(when has-pac
(setf pac (string-upcase (subseq filter 0 has-pac)))
(setf (text-value (package-box panel)) pac)
(unless (equalp (text-value (package-box panel)) pac)
(setf (text-value (package-box panel)) "All")
(setf pac "All"))
(setf filter (subseq filter (+ has-pac 1)))
(setf (text-value (search-box panel)) filter))
(cond ((equalp pac "All")
(setf class-only nil)
(setf (classes panel) nil)