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

1
clog.asd vendored
View file

@ -75,6 +75,7 @@
(:file "clog-db-admin")
;; clog-builder code
(:file "clog-builder-settings")
(:file "clog-builder-settings-controls")
(:file "clog-builder")
(:file "clog-builder-control-events")
(:file "clog-builder-control-properties")

2
tools/clog-builder-control-list.lisp
View file

@ -61,7 +61,7 @@
(setf (select-tool app) nil)
(setf (control-list-win app) nil)))
(reset-control-pallete pallete)
(window-toggle-pinned win :state t)
(window-toggle-pinned win :state nil)
(set-geometry win :units "" :top "33px" :left 0 :height "" :bottom "5px" :right "")
(set-geometry pallete :left 0 :top 0 :height sheight :right 0);:width (- swidth 10))
(setf (background-color divider) :black)

2
tools/clog-builder-control-properties.lisp
View file

@ -12,7 +12,7 @@
(setf (control-properties-win app) nil)))
(set-on-window-move win (lambda (obj)
(setf (height obj) (height obj))))
(window-toggle-pinned win :state t)
(window-toggle-pinned win :state nil)
(setf (control-properties-win app) win)
(setf (properties-list app) control-list)
(setf (background-color content) :silver)

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

@ -237,6 +237,7 @@
(window-focus win)
(when fname
(setf file-name fname)
(setf (window-title win) fname)
(add-class btn-save "w3-animate-top")
(write-file (text-value ace) fname :clog-obj obj)
(setf is-dirty nil)

1
tools/clog-builder-panels.lisp
View file

@ -863,6 +863,7 @@ not a temporarily attached one when using select-control."
(lambda (fname)
(window-focus win)
(when fname
(setf file-name fname)
(do-save obj fname data)))
:initial-filename file-name))
(t

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

File diff suppressed because it is too large Load diff

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