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

Do not create project if dir exists

Browse source
This commit is contained in:
David Botton 2022-08-23 14:39:09 -04:00
parent cc1b306e75
commit fdeb99121c
2 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

1
clog.asd
View file

@ -64,4 +64,5 @@
(:file "systems")
(:file "sys-browser")
(:file "projects")
(:file "project-directory")
(:file "clog-builder-images")))

20
tools/clog-builder.lisp
View file

@ -2174,14 +2174,18 @@ of controls and double click to select control."
(win panel) "Output Directory" fname
(lambda (filename)
(cond (filename
(template-copy sys-name start-dir filename :panel (window-content (win panel)))
(when (getf tmpl-rec :www)
(template-copy sys-name www-dir filename :panel (window-content (win panel))))
(asdf:clear-source-registry)
(when (project-win app)
(clog-gui:window-close (project-win app)))
(on-show-project panel :project sys-name)
(create-div (window-content (win panel)) :content "<hr><b>done.</b>"))
(cond ((uiop:directory-exists-p (format nil "~A~A" filename sys-name))
(clog-gui:alert-toast (win panel) "Cancel" "Canceled - Project directory exists")
(window-close (win panel)))
(t
(template-copy sys-name start-dir filename :panel (window-content (win panel)))
(when (getf tmpl-rec :www)
(template-copy sys-name www-dir filename :panel (window-content (win panel))))
(asdf:clear-source-registry)
(when (project-win app)
(clog-gui:window-close (project-win app)))
(on-show-project panel :project sys-name)
(create-div (window-content (win panel)) :content "<hr><b>done.</b>"))))
(t
(window-close (win panel))))))))
(t