mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-24 02:50:41 -08:00
Code Issues Projects Releases Wiki Activity

fixed doc look up

Browse source
This commit is contained in:
David Botton 2024-07-10 20:17:05 -04:00
parent bb086f828d
commit 9604c7393b
1 changed files with 15 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tools/clog-builder-ace.lisp
View file

@ -321,25 +321,22 @@ var endRange = ~:*~A.session.doc.indexToPosition(endIndex);
(clog-ace::js-ace obj) (clog-ace::js-ace obj)
(clog-ace::js-ace obj))))) (clog-ace::js-ace obj)))))
(unless (equal s "") (unless (equal s "")
(with-input-from-string (i s)
(ignore-errors (ignore-errors
(let* ((p (when (current-control app) (let* ((p (when (current-control app)
(attribute (get-placer (current-control app)) "data-panel-id"))) (attribute (get-placer (current-control app)) "data-panel-id")))
(pac (if (eq (current-editor-is-lisp app) t) (pac (string-upcase (if (eq (current-editor-is-lisp app) t)
(if (current-control app) (if (current-control app)
(string-upcase (attribute (attach-as-child (current-control app) p) (string-upcase (attribute (attach-as-child (current-control app) p)
"data-in-package")) "data-in-package"))
package) package)
(current-editor-is-lisp app))) (current-editor-is-lisp app))))
(m (read i)) (*package* (find-package pac))
(ms (format nil "~A" m))
r) r)
(setf r (swank:operator-arglist ms pac)) (setf r (swank:operator-arglist s pac))
(when status
(setf (advisory-title status) (documentation (find-symbol ms) 'function)))
(when r (when r
(when status (when status
(setf (text status) (string-downcase r))))))))))) (setf (advisory-title status) (documentation (read-from-string s) 'function))
(setf (text status) (string-downcase r))))))))))
(clog-ace:set-auto-completion editor t) (clog-ace:set-auto-completion editor t)
(setf (clog-ace:theme editor) *editor-theme*) (setf (clog-ace:theme editor) *editor-theme*)
(setf (clog-ace:tab-size editor) *editor-tab-size*) (setf (clog-ace:tab-size editor) *editor-tab-size*)