From e475e3523755fe2b22755e7bd484460dc48b809a Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Fri, 19 Apr 2024 07:33:30 -0400
Subject: [PATCH] console starts as text and does not hookup autocomplete
 removing ~5k limit on updating

---
 source/clog-form.lisp         | 3 ++-
 tools/clog-builder-eval.lisp  | 1 +
 tools/clog-builder-files.lisp | 5 +++++
 tools/clog-builder-repl.lisp  | 4 ++--
 4 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/source/clog-form.lisp b/source/clog-form.lisp
index 5882733..2d276aa 100644
--- a/source/clog-form.lisp
+++ b/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)
diff --git a/tools/clog-builder-eval.lisp b/tools/clog-builder-eval.lisp
index 95bd468..e3153e8 100644
--- a/tools/clog-builder-eval.lisp
+++ b/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)
diff --git a/tools/clog-builder-files.lisp b/tools/clog-builder-files.lisp
index cfdbff6..5cb96fe 100644
--- a/tools/clog-builder-files.lisp
+++ b/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
diff --git a/tools/clog-builder-repl.lisp b/tools/clog-builder-repl.lisp
index 0135257..b17a91d 100644
--- a/tools/clog-builder-repl.lisp
+++ b/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))