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

Switch back to having a default for COMPILE-THEME.

Browse source
This commit is contained in:
Brit Butler 2012-08-29 11:29:45 -04:00
parent e23fc10551
commit 5e4f21d2ff
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/coleslaw.lisp
View file

@ -62,6 +62,6 @@ If RAW is non-nil, write the content without wrapping it in the base template."
(defun main () (defun main ()
"Load the user's config, then compile and deploy the blog." "Load the user's config, then compile and deploy the blog."
(load-config) (load-config)
(compile-theme (app-path "themes/~a/" (theme *config*))) (compile-theme)
(compile-blog (staging *config*)) (compile-blog (staging *config*))
(deploy (staging *config*))) (deploy (staging *config*)))

2
src/themes.lisp
View file

@ -16,7 +16,7 @@
"Find the symbol NAME inside the current theme's package." "Find the symbol NAME inside the current theme's package."
(find-symbol name (theme-package))) (find-symbol name (theme-package)))
(defun compile-theme (theme-dir) (defun compile-theme (&key (theme-dir (app-path "themes/~a/" (theme *config*))))
"Iterate over the files in THEME-DIR, compiling them when they are templates." "Iterate over the files in THEME-DIR, compiling them when they are templates."
(do-files (file theme-dir "tmpl") (do-files (file theme-dir "tmpl")
(compile-template :common-lisp-backend file))) (compile-template :common-lisp-backend file)))