From 075477b9ce6a6542fd46a3209af7d330bd47a03c Mon Sep 17 00:00:00 2001 From: Lukasz Janyst Date: Thu, 3 Dec 2015 12:09:14 +0100 Subject: [PATCH 1/2] Allow for plug-ins to be defined in the user repo --- src/config.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/config.lisp b/src/config.lisp index 1d55c9c..15b5b1f 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -49,7 +49,9 @@ (defun enable-plugin (name args) "Given a plugin, NAME, compile+load it and call its ENABLE function with ARGS." (flet ((plugin-path (sym) - (app-path "plugins/~(~A~)" sym)) + (if (probe-file (repo-path "plugins/~(~A~).lisp" sym)) + (repo-path "plugins/~(~A~)" sym) + (app-path "plugins/~(~A~)" sym))) (plugin-package (sym) (format nil "~:@(coleslaw-~A~)" sym))) (let ((file (plugin-path name))) From 414c8dd742abb249465c39aa08ebdc6a51030a87 Mon Sep 17 00:00:00 2001 From: Lukasz Janyst Date: Thu, 3 Dec 2015 12:09:45 +0100 Subject: [PATCH 2/2] Export *config* accessors useful in user plug-ins --- src/packages.lisp | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/packages.lisp b/src/packages.lisp index 2a37849..d49035f 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -13,6 +13,14 @@ (:export #:main #:preview #:*config* + ;; Config Accessors + #:author + #:deploy-dir + #:domain + #:page-ext + #:repo-dir + #:staging-dir + #:title ;; Core Classes #:content #:post