From acf4cf240b26ac7a6a21da79e15e2f26a86b6059 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Sun, 5 May 2024 23:52:02 -0400
Subject: [PATCH] start position of console matches project trees

---
 tools/clog-builder-eval.lisp  | 1 +
 tools/clog-builder-files.lisp | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/tools/clog-builder-eval.lisp b/tools/clog-builder-eval.lisp
index 084b892..89f32ce 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"
+                                      :left 305 :top (menu-bar-height obj)
                                       :is-console t
                                       :editor-use-console-for-evals t)))
           (setf (clog-ace:mode (window-param win)) "ace/mode/plain_text")
diff --git a/tools/clog-builder-files.lisp b/tools/clog-builder-files.lisp
index dd81e77..f7a752c 100644
--- a/tools/clog-builder-files.lisp
+++ b/tools/clog-builder-files.lisp
@@ -69,6 +69,7 @@
                      lisp-package
                      regex
                      is-console
+                     left top
                      (editor-use-console-for-evals *editor-use-console-for-evals*)
                      has-time-out
                      maximized)
@@ -93,6 +94,7 @@
              (*default-border-class*     *builder-border-class*)
              (win (create-gui-window obj :title title
                                      :title-class title-class
+                                     :left left :top top
                                      :width 700 :height 480
                                      :has-pinner is-console
                                      :keep-on-top is-console