From ed886b57e75f19d18c0a667f978e83bff7715a98 Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Tue, 26 Aug 2014 17:24:29 -0400 Subject: [PATCH] Set blog repo in "the right place". --- src/coleslaw.lisp | 3 +-- src/config.lisp | 3 ++- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index d65f360..36642ea 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -7,8 +7,7 @@ "Load the user's config file, then compile and deploy the blog stored in REPO-DIR. Optionally, OLDREV is the revision prior to the last push." (load-config repo-dir) - (setf (repo *config*) repo-dir - *last-revision* oldrev) + (setf *last-revision* oldrev) (load-content) (compile-theme (theme *config*)) (let ((dir (staging-dir *config*))) diff --git a/src/config.lisp b/src/config.lisp index cc3e7e9..14e3dae 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -66,5 +66,6 @@ doesn't exist, use the .coleslawrc in the home directory." preferred over the home directory if provided." (with-open-file (in (discover-config-path repo-dir) :external-format '(:utf-8)) (let ((config-form (read in))) - (setf *config* (construct 'blog config-form)))) + (setf *config* (construct 'blog config-form) + (repo *config*) repo-dir))) (load-plugins (plugins *config*)))