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

fix to save as, split settings file

Browse source
This commit is contained in:
David Botton 2024-03-25 20:18:46 -04:00
parent 9913d85183
commit b78aa3ad0b
7 changed files with 11 additions and 2383 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder.lisp
View file

@ -450,10 +450,14 @@ clog-builder window.")
(set-geometry (current-window body) :top 38 :left 5 :right "" :height "" :bottom 22)
(set-geometry (current-window body) :height (height (current-window body))
:bottom (bottom (current-window body))))
(on-dir-win body :dir *start-dir*)
(handler-case
(on-dir-win body :dir *start-dir*)
(error (msg)
(alert-toast body "Directory Error" (format nil "Unable to open directory ~A. " *start-dir*))
(setf *start-dir* nil)))
(set-geometry (current-window body) :top 38 :left "" :right 5 :height "" :bottom 22)
(set-geometry (current-window body) :height (height (current-window body))
:bottom (bottom (current-window body))))))
:bottom (bottom (current-window body))))))
(set-on-before-unload (window body) (lambda(obj)
(declare (ignore obj))
;; return empty string to prevent nav off page