mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -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

11
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 (doc-box panel)) "")
(setf (text-value (file-name panel)) "") (setf (text-value (file-name panel)) "")
(setf (fname panel) nil) (setf (fname panel) nil)
(let ((filter (text-value (search-box panel))) (let* ((filter (text-value (search-box panel)))
(has-pac (position #\: filter :test #'equal))
(class-only (checkedp (class-only panel))) (class-only (checkedp (class-only panel)))
(pac (text-value (package-box 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") (cond ((equalp pac "All")
(setf class-only nil) (setf class-only nil)
(setf (classes panel) nil) (setf (classes panel) nil)

1
tools/systems.lisp
View file

@ -1,4 +1,3 @@
(in-package "CLOG-TOOLS") (in-package "CLOG-TOOLS")
(defclass asdf-systems (clog:clog-panel) (defclass asdf-systems (clog:clog-panel)
((asd-label :reader asd-label) (remove-button :reader remove-button) ((asd-label :reader asd-label) (remove-button :reader remove-button)