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

directory options

Browse source
This commit is contained in:
David Botton 2024-05-10 15:09:50 -04:00
parent d78aa1f586
commit 90b9b9e06e
3 changed files with 67 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
(in-package :clog-tools)
(defun on-shell (obj)
(defun on-shell (obj &key dir)
"Open a shell"
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
@ -10,6 +10,8 @@
:top 40 :left 225
:width 600 :height 400
:client-movement *client-side-movement*)))
(when dir
(uiop:chdir (uiop:native-namestring dir)))
(set-geometry (create-clog-builder-shell (window-content win))
:units "%" :width 100 :height 100)))