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

sys browser menu and button added

Browse source
This commit is contained in:
David Botton 2024-04-04 14:33:33 -04:00
parent 6041759252
commit eca4c2dd43
2 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-gui.lisp
View file

@ -2036,7 +2036,8 @@ make-two-way-stream to provide a *query-io* using a clog-gui instead of console)
(let ((sem (bordeaux-threads:make-semaphore)))
(input-dialog (obj stream) (prompt (outbuf stream)) (lambda (result)
(add-line stream result)
(bordeaux-threads:signal-semaphore sem)))
(bordeaux-threads:signal-semaphore sem))
:modal nil)
(bordeaux-threads:wait-on-semaphore sem)))
(when (< (index stream) (length (buffer-of stream)))
(prog1

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

@ -88,6 +88,7 @@
(m-efrm (create-gui-menu-item m-lisp :content "evaluate form (cmd/alt-[)"))
(m-esel (create-gui-menu-item m-lisp :content "evaluate selection"))
(m-test (create-gui-menu-item m-lisp :content "evaluate all"))
(m-brwsp (create-gui-menu-item m-lisp :content "systen browse at point"))
(m-brws (create-gui-menu-item m-lisp :content "systen browse selection"))
(m-desc (create-gui-menu-item m-lisp :content "describe selection"))
(m-doc (create-gui-menu-item m-lisp :content "documentation on selection"))
@ -106,9 +107,10 @@
(btn-save (create-img tool-bar :alt-text "save" :url-src img-btn-save :class btn-class))
(btn-load (create-img tool-bar :alt-text "load" :url-src img-btn-load :class btn-class))
(spacer1 (create-span tool-bar :content "&nbsp;"))
(btn-efrm (create-button tool-bar :content "Eval Form" :class (format nil "w3-tiny ~A" btn-class)))
(btn-esel (create-button tool-bar :content "Eval Sel" :class (format nil "w3-tiny ~A" btn-class)))
(btn-test (create-button tool-bar :content "Eval All" :class (format nil "w3-tiny ~A" btn-class)))
(btn-efrm (create-button tool-bar :content "Eval Form" :class (format nil "w3-tiny ~A" btn-class)))
(btn-esel (create-button tool-bar :content "Eval Sel" :class (format nil "w3-tiny ~A" btn-class)))
(btn-test (create-button tool-bar :content "Eval All" :class (format nil "w3-tiny ~A" btn-class)))
(btn-brws (create-button tool-bar :content "Browse" :class (format nil "w3-tiny ~A" btn-class)))
(spacer2 (create-span tool-bar :content "&nbsp;&nbsp;"))
(btn-help (create-span tool-bar :content "?" :class "w3-tiny w3-ripple"))
(content (center-panel box))
@ -146,6 +148,7 @@
(setf (advisory-title btn-efrm) "evaluate form")
(setf (advisory-title btn-esel) "evaluate selection")
(setf (advisory-title btn-test) "evaluate")
(setf (advisory-title btn-brws) "system browse at point")
(setf (height btn-copy) "12px")
(setf (height btn-paste) "12px")
(setf (height btn-cut) "12px")
@ -157,6 +160,7 @@
(setf (height btn-efrm) "12px")
(setf (height btn-esel) "12px")
(setf (height btn-test) "12px")
(setf (height btn-brws) "12px")
(setf (height btn-help) "12px")
(setf (width btn-efrm) "43px")
(setf (width btn-esel) "43px")
@ -384,6 +388,12 @@
(set-on-click m-brws (lambda (obj)
(declare (ignore obj))
(on-new-sys-browser ace :search (clog-ace:selected-text ace))))
(set-on-click btn-brws (lambda (obj)
(declare (ignore obj))
(clog-ace:execute-command ace "find-definition")))
(set-on-click m-brwsp (lambda (obj)
(declare (ignore obj))
(clog-ace:execute-command ace "find-definition")))
(set-on-click m-doc (lambda (obj)
(open-window (window (connection-body obj))
(format nil "http://l1sp.org/search?q=~A"