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

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

33
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 (string-upcase (if (eq (current-editor-is-lisp app) t)
(pac (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))) (*package* (find-package pac))
(m (read i)) r)
(ms (format nil "~A" m)) (setf r (swank:operator-arglist s pac))
r) (when r
(setf r (swank:operator-arglist ms pac))
(when status (when status
(setf (advisory-title status) (documentation (find-symbol ms) 'function))) (setf (advisory-title status) (documentation (read-from-string s) 'function))
(when r (setf (text status) (string-downcase r))))))))))
(when status
(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*)