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

close popup if window exists

Browse source
This commit is contained in:
David Botton 2024-04-10 00:25:43 -04:00
parent d3842c8e0d
commit 3b309036b6
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -65,6 +65,10 @@
"Open a new text editor"
(let ((win (window-to-top-by-title obj open-file)))
(when win
(let ((pop (connection-data-item obj "clog-popup")))
(when pop
(close-window pop)
(window-focus win)))
(when regex
(js-execute win (format nil "~A.find('~A',{caseSensitive:false,regExp:true})"
(clog-ace::js-ace (window-param win)) regex)))