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

configure left panel size

Browse source
This commit is contained in:
David Botton 2024-06-16 16:30:47 -04:00
parent 757fdba563
commit a0c3cb5b70
10 changed files with 18 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder-dir-tree.lisp
View file

@ -7,7 +7,7 @@
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "Directory Tree"
:width 300
:width *builder-left-panel-size*
:has-pinner t
:keep-on-top t
:client-movement *client-side-movement*))

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

@ -173,7 +173,7 @@
(declare (ignore obj))
(set-geometry win
:top (menu-bar-height win)
:left 300
:left *builder-left-panel-size*
:height "" :width ""
:bottom 5 :right 0)
(clog-ace:resize (window-param win))

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

@ -120,7 +120,7 @@ symbol is used for title."
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "CLOG Probe Panel"
:width 300
:width *builder-left-panel-size*
:has-pinner t
:keep-on-top t
:client-movement *client-side-movement*))

4
tools/clog-builder-project-tree.lisp
View file

@ -20,7 +20,7 @@
(when win
(set-geometry win
:top (menu-bar-height win)
:left 300
:left *builder-left-panel-size*
:height "" :width ""
:bottom 5 :right 0)
(clog-ace:resize (window-param win))
@ -42,7 +42,7 @@
(*default-border-class* *builder-border-class*)
(entry-point "")
(win (create-gui-window obj :title "Project Tree"
:width 300
:width *builder-left-panel-size*
:has-pinner t
:keep-on-top t
:client-movement *client-side-movement*))

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

@ -36,7 +36,7 @@
(declare (ignore obj))
(set-geometry win
:top (menu-bar-height win)
:left 300
:left *builder-left-panel-size*
:height "" :width ""
:bottom 5 :right 0)
(clog-ace:resize (playground repl))

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

@ -32,7 +32,7 @@ name. If CLOG-BODY not set use *clog-debug-instance*"
(declare (ignore obj))
(set-geometry win
:top (menu-bar-height win)
:left 300
:left *builder-left-panel-size*
:height "" :width ""
:bottom 5 :right 0)
(set-on-window-move win nil)

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

@ -71,6 +71,8 @@
;; Builder Look and Feel
;; Builder Interface
(defparameter *builder-left-panel-size* 300)
(defparameter *builder-window-desktop-class* "w3-blue-grey")
(defparameter *builder-window-show-static-root-class* "w3-grey")
(defparameter *builder-show-callers-class* "w3-orange")

8
tools/clog-builder-shell.lisp
View file

@ -16,13 +16,19 @@
(declare (ignore obj))
(set-geometry win
:top (menu-bar-height win)
:left 300
:left *builder-left-panel-size*
:height "" :width ""
:bottom 5 :right 0)
(set-on-window-move win nil)
(set-on-window-move win (lambda (obj)
(setf (width obj) (width obj))
(setf (height obj) (height obj))))))
(set-on-click (create-span (window-icon-area win)
:content "- "
:auto-place :top)
(lambda (obj)
(declare (ignore obj))
(setf (hiddenp win) t)))
(when dir
(uiop:chdir (uiop:native-namestring dir)))
(set-geometry (create-clog-builder-shell (window-content win))

2
tools/clog-builder-sys-browser.lisp
View file

@ -20,7 +20,7 @@
(declare (ignore obj))
(set-geometry win
:top (menu-bar-height win)
:left 300
:left *builder-left-panel-size*
:height "" :width ""
:bottom 5 :right 0)
(clog-ace:resize (src-box panel))

1
tools/preferences.lisp.sample vendored
View file

@ -99,6 +99,7 @@
;; CLOG Builder Look and Feel
;; General
(setf *builder-left-panel-size* 300)
(setf *builder-window-desktop-class* "w3-blue-grey")
(setf *builder-window-show-static-root-class* "w3-grey")
(setf *builder-show-callers-class* "w3-orange")