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

regex find when clicking from sys-browser

Browse source
This commit is contained in:
David Botton 2024-04-03 17:09:25 -04:00
parent daaa2801ae
commit 6e244e5291
4 changed files with 75 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tools/clog-builder-files.lisp
View file

@ -47,6 +47,7 @@
text
(title-class *builder-title-class*)
lisp-package
regex
maximized)
"Open a new text editor"
(unless (window-to-top-by-title obj open-file)
@ -220,8 +221,12 @@
(open-file-name fname)
(setf is-dirty nil)))))
(when (and open-file
(not (equalp open-file " ")))
(not (equalp open-file " "))
(not (equalp open-file "")))
(open-file-name open-file))
(when regex
(js-execute obj (format nil "~A.find('~A',{caseSensitive:false,regExp:true})"
(clog-ace::js-ace ace) regex)))
(set-on-click btn-load (lambda (obj) (load-file obj)))
(set-on-click m-load (lambda (obj) (load-file obj))))
(set-on-input ace (lambda (obj)