mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-06 01:02:14 -08:00
Code Issues Projects Releases Wiki Activity

asdf browser options and title bars

Browse source
This commit is contained in:
David Botton 2024-03-25 11:34:07 -04:00
parent 29d5eee829
commit a4de6eac52
6 changed files with 84 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -9,6 +9,8 @@
(defun populate-dir-win (panel d)
(let ((dir (directory-namestring (uiop:truename* d))))
(setf (window-title (current-window panel))
(format nil "Directory Listing - ~A" dir))
(setf (current-dir panel) dir)
;; Dirs
(setf (inner-html (folders panel)) "")