console starts as text and does not hookup autocomplete removing ~5k limit on updating

source/clog-form.lisp

@@ -1014,7 +1014,8 @@ optionally fill in with contents of data-list."))
 
 (defgeneric create-select (clog-obj &key name multiple label
                                       style hidden class html-id auto-place)
-  (:documentation "Create a new clog-select as child of CLOG-OBJ."))
+  (:documentation "Create a new clog-select as child of CLOG-OBJ. Use SIZE and
+set to greater than 1 for select to act as a listbox."))
 
 (defmethod create-select ((obj clog-obj)
                           &key (name nil)

tools/clog-builder-eval.lisp

@@ -7,6 +7,7 @@
           (setf (hiddenp (console-win app)) nil)
           (window-focus (console-win app)))
         (let* ((win (on-open-file obj :title "CLOG Builder Console"
+                                      :is-console t
                                       :editor-use-console-for-evals t)))
           (set-on-window-can-close win (lambda (obj)
                                          (setf (hiddenp obj) t)

tools/clog-builder-files.lisp

@@ -68,6 +68,7 @@
                      (title-class *builder-title-class*)
                      lisp-package
                      regex
+                     is-console
                      (editor-use-console-for-evals *editor-use-console-for-evals*)
                      maximized)
   "Open a new text editor"
@@ -211,6 +212,10 @@
         (set-geometry status :units "" :width "" :height "20px"
                       :bottom "0px" :left "0px" :right "0px")
         (setup-lisp-ace ace status)
+        (when is-console
+          (setf (clog-ace:mode ace) "ace/mode/plain_text")
+          (clog-ace:set-auto-completion ace nil)
+          (set-on-change ace nil))
         (labels ((on-help (obj)
                    (declare (ignore obj))
                    (alert-dialog win

tools/clog-builder-repl.lisp

@@ -1,8 +1,8 @@
 (in-package :clog-tools)
 
 (defun on-open-repl-console (obj repl)
-  (let* ((app (connection-data-item obj "builder-app-data"))
-         (win (on-open-file obj :title "CLOG REPL Console"
+  (let* ((win (on-open-file obj :title "CLOG REPL Console"
+                                :is-console t
                                 :editor-use-console-for-evals t)))
     (set-on-window-can-close win (lambda (obj)
                                    (declare (ignore obj))