From 5e4f21d2ff8ed6b5f5d117958714e3a9fec91d75 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Wed, 29 Aug 2012 11:29:45 -0400 Subject: [PATCH] Switch back to having a default for COMPILE-THEME. --- src/coleslaw.lisp | 2 +- src/themes.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index 7b2b2f1..06c6fb8 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -62,6 +62,6 @@ If RAW is non-nil, write the content without wrapping it in the base template." (defun main () "Load the user's config, then compile and deploy the blog." (load-config) - (compile-theme (app-path "themes/~a/" (theme *config*))) + (compile-theme) (compile-blog (staging *config*)) (deploy (staging *config*))) diff --git a/src/themes.lisp b/src/themes.lisp index e2efae0..587a123 100644 --- a/src/themes.lisp +++ b/src/themes.lisp @@ -16,7 +16,7 @@ "Find the symbol NAME inside the current theme's 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." (do-files (file theme-dir "tmpl") (compile-template :common-lisp-backend file)))