marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unused LET variables in COMPILE-BLOG.

Browse source
This commit is contained in:
Brit Butler 2012-08-29 12:24:08 -04:00
parent 8e8d1c653a
commit fb0fe50cc3
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/coleslaw.lisp
View file

@ -28,11 +28,10 @@ If RAW is non-nil, write the content without wrapping it in the base template."
(cl-fad:delete-directory-and-files staging))
(ensure-directories-exist staging)
(with-current-directory staging
(let ((css-dir (app-path "themes/~a/css" (theme *config*)))
(static-dir (merge-pathnames "static" (repo *config*))))
(dolist (dir (list css-dir static-dir))
(when (probe-file dir)
(run-program "cp -R ~a ." dir))))
(dolist (dir (list (app-path "themes/~a/css" (theme *config*))
(merge-pathnames "static" (repo *config*))))
(when (probe-file dir)
(run-program "cp -R ~a ." dir)))
(render-posts)
(render-indices)
(render-feed)))