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 search fixed

Browse source
This commit is contained in:
David Botton 2024-07-08 21:02:57 -04:00
parent 17774657b6
commit 62e8b89351
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-search.lisp
View file

@ -41,8 +41,8 @@
(clog-ace:get-mode-from-extension (preview-ace panel) fname)))))
(setf (text-value (preview-ace panel)) c)
(clog-ace:resize (preview-ace panel))
(js-execute obj (format nil "~A.find('~A',{caseSensitive:false,regExp:true})"
(clog-ace::js-ace (preview-ace panel)) regex))
(js-execute obj (format nil "~A.find({regExp:true,needle:'~A',caseSensitive:false})"
(clog-ace::js-ace (preview-ace panel)) (escape-string regex)))
(clog-ace:execute-command (preview-ace panel) "find"))
(focus (result-box panel))))
(unless dir