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

Set blog repo in "the right place".

Browse source
This commit is contained in:
Brit Butler 2014-08-26 17:24:29 -04:00
parent f512ab7a48
commit ed886b57e7
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/coleslaw.lisp
View file

@ -7,8 +7,7 @@
"Load the user's config file, then compile and deploy the blog stored "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." in REPO-DIR. Optionally, OLDREV is the revision prior to the last push."
(load-config repo-dir) (load-config repo-dir)
(setf (repo *config*) repo-dir (setf *last-revision* oldrev)
*last-revision* oldrev)
(load-content) (load-content)
(compile-theme (theme *config*)) (compile-theme (theme *config*))
(let ((dir (staging-dir *config*))) (let ((dir (staging-dir *config*)))

3
src/config.lisp
View file

@ -66,5 +66,6 @@ doesn't exist, use the .coleslawrc in the home directory."
preferred over the home directory if provided." preferred over the home directory if provided."
(with-open-file (in (discover-config-path repo-dir) :external-format '(:utf-8)) (with-open-file (in (discover-config-path repo-dir) :external-format '(:utf-8))
(let ((config-form (read in))) (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*))) (load-plugins (plugins *config*)))