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

CLOG Plugin Template added

Browse source
This commit is contained in:
David Botton 2022-06-19 15:15:53 -04:00
parent 35ec8e0259
commit 0528851ff7
7 changed files with 173 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tools/clog-builder.lisp
View file

@ -220,11 +220,14 @@ create-div's"
(ensure-directories-exist out-dir)
(cond ((equalp (pathname-type file) tmpl-ext)
(let* ((nfile (pathname-name file))
(afile (if (equalp (pathname-name nfile) "tmpl")
(format nil "~A~A.~A" out-dir sys-name (pathname-type nfile))
(format nil "~A~A" out-dir nfile))))
(write-file (funcall (cl-template:compile-template (read-file src-file))
(list :sys-name sys-name))
(afile (cond ((equalp (pathname-name nfile) "tmpl")
(format nil "~A~A.~A" out-dir sys-name (pathname-type nfile)))
((equalp (pathname-name nfile) "tmpl-tools")
(format nil "~A~A-tools.~A" out-dir sys-name (pathname-type nfile)))
(t
(format nil "~A~A" out-dir nfile)))))
(write-file (funcall (cl-template:compile-template (read-file src-file))
(list :sys-name sys-name))
afile)
(when panel
(create-div panel