mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 15:00:24 -08:00
Code Issues Projects Releases Wiki Activity

start position of console matches project trees

Browse source
This commit is contained in:
David Botton 2024-05-05 23:52:02 -04:00
parent 4e5cc847b5
commit acf4cf240b
2 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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"
:left 305 :top (menu-bar-height obj)
:is-console t :is-console t
:editor-use-console-for-evals t))) :editor-use-console-for-evals t)))
(setf (clog-ace:mode (window-param win)) "ace/mode/plain_text") (setf (clog-ace:mode (window-param win)) "ace/mode/plain_text")

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

@ -69,6 +69,7 @@
lisp-package lisp-package
regex regex
is-console is-console
left top
(editor-use-console-for-evals *editor-use-console-for-evals*) (editor-use-console-for-evals *editor-use-console-for-evals*)
has-time-out has-time-out
maximized) maximized)
@ -93,6 +94,7 @@
(*default-border-class* *builder-border-class*) (*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title title (win (create-gui-window obj :title title
:title-class title-class :title-class title-class
:left left :top top
:width 700 :height 480 :width 700 :height 480
:has-pinner is-console :has-pinner is-console
:keep-on-top is-console :keep-on-top is-console