|
@@ -33,10 +33,8 @@ are in the plugins folder in coleslaw's source directory."
|
33
|
33
|
(flet ((plugin-path (sym)
|
34
|
34
|
(app-path "plugins/~a" (string-downcase (symbol-name sym)))))
|
35
|
35
|
(dolist (plugin plugins)
|
36
|
|
- (etypecase plugin
|
37
|
|
- (list (destructuring-bind (name &rest args) plugin
|
38
|
|
- (apply 'enable-plugin (plugin-path name) args)))
|
39
|
|
- (symbol (enable-plugin (plugin-path plugin)))))))
|
|
36
|
+ (destructuring-bind (name &rest args) plugin
|
|
37
|
+ (apply 'enable-plugin (plugin-path name) args)))))
|
40
|
38
|
|
41
|
39
|
(defun load-config (config-key &optional (dir (user-homedir-pathname)))
|
42
|
40
|
"Load the coleslaw configuration for CONFIG-KEY from DIR/.coleslawrc. DIR is ~ by default."
|