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

set status on javascript editor to say how to access controls

Browse source
This commit is contained in:
David Botton 2024-03-16 23:52:58 -04:00
parent 17017198b8
commit e82c2ed5db
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/clog-builder.lisp
View file

@ -1487,9 +1487,11 @@ var endRange = ~:*~A.session.doc.indexToPosition(endIndex);
(if r (if r
(setf r (car r)) (setf r (car r))
(setf r (swank:operator-arglist ms package))) (setf r (swank:operator-arglist ms package)))
(setf (advisory-title status) (documentation (find-symbol ms) 'function)) (when status
(setf (advisory-title status) (documentation (find-symbol ms) 'function)))
(when r (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:mode editor) *editor-mode*) (setf (clog-ace:mode editor) *editor-mode*)
@ -1782,11 +1784,12 @@ It parse the string TEXT without using READ functions."
(setf (height (event-js-editor app)) "") (setf (height (event-js-editor app)) "")
(set-geometry (event-js-editor app) :top 35 :left 5 :right 5 :bottom 30) (set-geometry (event-js-editor app) :top 35 :left 5 :right 5 :bottom 30)
(clog-ace:resize (event-js-editor app)) (clog-ace:resize (event-js-editor app))
(setf status (create-div content :class "w3-tiny w3-border")) (setf status (create-div content :class "w3-tiny w3-border"
:content "Use $(\"data-clog-name='control-name']\") to access controls."))
(setf (positioning status) :absolute) (setf (positioning status) :absolute)
(setf (width status) "") (setf (width status) "")
(set-geometry status :height 20 :left 5 :right 5 :bottom 5) (set-geometry status :height 20 :left 5 :right 5 :bottom 5)
(setup-lisp-ace (event-js-editor app) status :package "clog-user") (setup-lisp-ace (event-js-editor app) nil :package "clog-user")
(setf (clog-ace:mode (event-js-editor app)) "ace/mode/javascript") (setf (clog-ace:mode (event-js-editor app)) "ace/mode/javascript")
(set-on-window-size-done win (lambda (obj) (set-on-window-size-done win (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))