From 8cf47da24ad130ffdc7dc65323e06c9c5229f32e Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 7 Jul 2024 17:27:03 -0400 Subject: [PATCH] additional qlot notes on updating --- QLOT.md | 5 +++++ tools/clog-builder-shell.lisp | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/QLOT.md b/QLOT.md index f47ec1b..445c5ac 100644 --- a/QLOT.md +++ b/QLOT.md @@ -54,6 +54,11 @@ builder do: (clog-tools:clog-builder :project :qtest) ``` +To update your local quicklisp use (ql:update-all-dist) or in CLOG Builder +Options -> Update CLOG Builder + +If you used qlot and or added directly to the qlfile use (qlot:update :name-of-system) + To make things easier create a file say - ql and chmod 775 ``` sbcl --eval "(ql:quickload :qlot)" \ diff --git a/tools/clog-builder-shell.lisp b/tools/clog-builder-shell.lisp index 27fffdb..a25bf68 100644 --- a/tools/clog-builder-shell.lisp +++ b/tools/clog-builder-shell.lisp @@ -7,8 +7,10 @@ (win (create-gui-window obj :title (format nil "OS Pseudo Shell - ~A - ~A" (uiop:operating-system) (uiop:hostname)) - :width 600 :height 400 - :client-movement *client-side-movement*))) + :top (menu-bar-height obj) + :left (+ *builder-left-panel-size* 5) + :width 600 :height 400 + :client-movement *client-side-movement*))) (set-on-click (create-span (window-icon-area win) :content (format nil "~A " (code-char #x26F6)) :auto-place :top)