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)))))
(unless (equal s "")
(with-input-from-string (i s)
(ignore-errors
(let* ((p (when (current-control app)
(attribute (get-placer (current-control app)) "data-panel-id")))
(pac (if (eq (current-editor-is-lisp app) t)
(if (current-control app)
(string-upcase (attribute (attach-as-child (current-control app) p)
"data-in-package"))
package)
(current-editor-is-lisp app)))
(m (read i))
(ms (format nil "~A" m))
r)
(setf r (swank:operator-arglist ms pac))
(ignore-errors
(let* ((p (when (current-control app)
(attribute (get-placer (current-control app)) "data-panel-id")))
(pac (string-upcase (if (eq (current-editor-is-lisp app) t)
(if (current-control app)
(string-upcase (attribute (attach-as-child (current-control app) p)
"data-in-package"))
package)
(current-editor-is-lisp app))))
(*package* (find-package pac))
r)
(setf r (swank:operator-arglist s pac))
(when r
(when status
(setf (advisory-title status) (documentation (find-symbol ms) 'function)))
(when r
(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)
(setf (clog-ace:theme editor) *editor-theme*)
(setf (clog-ace:tab-size editor) *editor-tab-size*)