Set blog repo in "the right place".

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*)))

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*)))