mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-03-01 03:20:35 -08:00
Code Issues Projects Releases Wiki Activity

apropos and system browser

Browse source
This commit is contained in:
David Botton 2024-03-25 00:23:31 -04:00
parent 57798e083d
commit 29d5eee829
1 changed files with 21 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -74,8 +74,10 @@
(m-efrm (create-gui-menu-item m-lisp :content "evaluate form"))
(m-esel (create-gui-menu-item m-lisp :content "evaluate selection"))
(m-test (create-gui-menu-item m-lisp :content "evaluate all"))
(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"))
(m-apro (create-gui-menu-item m-lisp :content "apropos on selection"))
(m-ppr (create-gui-menu-item m-lisp :content "pretty print"))
(m-help (create-gui-menu-drop-down menu :content "Help"))
(m-helpk (create-gui-menu-item m-help :content "keyboard help"))
@ -330,14 +332,25 @@
(declare (ignore obj))
(clog-ace:execute-command ace "redo")))
(set-on-click m-desc (lambda (obj)
(let ((r (make-array '(0) :element-type 'base-char
:fill-pointer 0 :adjustable t)))
(with-output-to-string (s r)
(let ((*standard-output* s))
(describe (find-symbol (string-upcase (clog-ace:selected-text ace))
(string-upcase (text-value pac-line)))))
(on-open-file obj :title-class "w3-purple" :title "describe selection"
:text r)))))
(let ((r (make-array '(0) :element-type 'base-char
:fill-pointer 0 :adjustable t)))
(with-output-to-string (s r)
(let ((*standard-output* s))
(describe (find-symbol (string-upcase (clog-ace:selected-text ace))
(string-upcase (text-value pac-line)))))
(on-open-file obj :title-class "w3-purple" :title "describe selection"
:text r)))))
(set-on-click m-apro (lambda (obj)
(let ((r (make-array '(0) :element-type 'base-char
:fill-pointer 0 :adjustable t)))
(with-output-to-string (s r)
(let ((*standard-output* s))
(apropos (clog-ace:selected-text ace)))
(on-open-file obj :title-class "w3-purple" :title "apropos selection"
:text r)))))
(set-on-click m-brws (lambda (obj)
(declare (ignore obj))
(on-new-sys-browser ace :search (clog-ace:selected-text ace))))
(set-on-click m-doc (lambda (obj)
(open-window (window (connection-body obj))
(format nil "http://l1sp.org/search?q=~A"