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

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

Browse source
This commit is contained in:
David Botton 2024-04-19 07:33:30 -04:00
parent 5e69bd4acd
commit e475e35237
4 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-form.lisp
View file

@ -1014,7 +1014,8 @@ optionally fill in with contents of data-list."))
(defgeneric create-select (clog-obj &key name multiple label (defgeneric create-select (clog-obj &key name multiple label
style hidden class html-id auto-place) 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) (defmethod create-select ((obj clog-obj)
&key (name nil) &key (name nil)

1
tools/clog-builder-eval.lisp
View file

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

5
tools/clog-builder-files.lisp
View file

@ -68,6 +68,7 @@
(title-class *builder-title-class*) (title-class *builder-title-class*)
lisp-package lisp-package
regex regex
is-console
(editor-use-console-for-evals *editor-use-console-for-evals*) (editor-use-console-for-evals *editor-use-console-for-evals*)
maximized) maximized)
"Open a new text editor" "Open a new text editor"
@ -211,6 +212,10 @@
(set-geometry status :units "" :width "" :height "20px" (set-geometry status :units "" :width "" :height "20px"
:bottom "0px" :left "0px" :right "0px") :bottom "0px" :left "0px" :right "0px")
(setup-lisp-ace ace status) (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) (labels ((on-help (obj)
(declare (ignore obj)) (declare (ignore obj))
(alert-dialog win (alert-dialog win

4
tools/clog-builder-repl.lisp
View file

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