Allow for plug-ins to be defined in the user repo
This commit is contained in:
parent
44eb77da2c
commit
075477b9ce
1 changed files with 3 additions and 1 deletions
|
@ -49,7 +49,9 @@
|
||||||
(defun enable-plugin (name args)
|
(defun enable-plugin (name args)
|
||||||
"Given a plugin, NAME, compile+load it and call its ENABLE function with ARGS."
|
"Given a plugin, NAME, compile+load it and call its ENABLE function with ARGS."
|
||||||
(flet ((plugin-path (sym)
|
(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)
|
(plugin-package (sym)
|
||||||
(format nil "~:@(coleslaw-~A~)" sym)))
|
(format nil "~:@(coleslaw-~A~)" sym)))
|
||||||
(let ((file (plugin-path name)))
|
(let ((file (plugin-path name)))
|
||||||
|
|
Loading…
Add table
Reference in a new issue