diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp index 940d9fb..fdaa1dd 100644 --- a/src/coleslaw.lisp +++ b/src/coleslaw.lisp @@ -73,9 +73,8 @@ Additional args to render CONTENT can be passed via RENDER-ARGS." (update-symlink prev (truename curr))) (update-symlink curr new-build)))) -(defun main (config-key) - "Load the user's config section corresponding to CONFIG-KEY, then -compile and deploy the blog." +(defun main (&optional config-key) + "Load the user's config file, then compile and deploy the blog." (load-config config-key) (load-content) (compile-theme (theme *config*)) diff --git a/src/config.lisp b/src/config.lisp index 9482da3..fc35d34 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -37,8 +37,9 @@ are in the plugins folder in coleslaw's source directory." (destructuring-bind (name &rest args) plugin (apply 'enable-plugin (plugin-path name) args))))) -(defun load-config (config-key &optional (dir (user-homedir-pathname))) - "Load the coleslaw configuration for CONFIG-KEY from DIR/.coleslawrc. DIR is ~ by default." +(defun load-config (&optional config-key (dir (user-homedir-pathname))) + "Load the coleslaw configuration from DIR/.coleslawrc, using CONFIG-KEY +if necessary. DIR is ~ by default." (with-open-file (in (merge-pathnames ".coleslawrc" dir)) (let ((config-form (read in))) (if (symbolp (car config-form))