|
@@ -75,8 +75,9 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
|
75
|
75
|
(defun main (config-key)
|
76
|
76
|
"Load the user's config section corresponding to CONFIG-KEY, then
|
77
|
77
|
compile and deploy the blog."
|
78
|
|
- (load-config config-key)
|
79
|
|
- (load-content)
|
80
|
|
- (compile-theme (theme *config*))
|
81
|
|
- (compile-blog (staging *config*))
|
82
|
|
- (deploy (staging *config*)))
|
|
78
|
+ (let (*injections*)
|
|
79
|
+ (load-config config-key)
|
|
80
|
+ (load-content)
|
|
81
|
+ (compile-theme (theme *config*))
|
|
82
|
+ (compile-blog (staging *config*))
|
|
83
|
+ (deploy (staging *config*))))
|