Version bump to 0.6. Move LOAD-PLUGINS into config file. Minor cleanups.

coleslaw.asd

@@ -1,17 +1,16 @@
 (defsystem #:coleslaw
   :name "coleslaw-core"
   :description "Flexible Lisp Blogware"
-  :version "0.5"
+  :version "0.6"
   :license "BSD"
   :author "Brit Butler <redline6561@gmail.com>"
   :pathname "src/"
-  :depends-on (:alexandria :closure-template :3bmd :3bmd-ext-code-blocks
-               :local-time :trivial-shell :cl-fad)
+  :depends-on (:closure-template :3bmd :3bmd-ext-code-blocks
+               :alexandria :local-time :trivial-shell :cl-fad)
   :serial t
   :components ((:file "packages")
-               (:file "config")
                (:file "util")
-               (:file "plugins")
+               (:file "config")
                (:file "themes")
                (:file "coleslaw")
                (:file "feeds")

src/config.lisp

@@ -15,6 +15,17 @@
 (defparameter *config* nil
   "A variable to store the blog configuration and plugin settings.")
 
+(defun load-plugins (plugins)
+  "Resolve the path of each symbol in PLUGINS and call LOAD on the
+resulting pathnames. It is expected that the matching *.lisp files
+are in the plugins folder in coleslaw's source directory."
+  (let ((files (mapcar (lambda (sym)
+                         (app-path "plugins/~a" (string-downcase (symbol-name sym))))
+                       plugins)))
+    (map nil (lambda (file)
+               (compile-file file)
+               (load file)) files)))
+
 (defun load-config (&optional (dir (user-homedir-pathname)))
   "Load the coleslaw configuration from DIR/.coleslawrc. DIR is ~ by default."
   (with-open-file (in (merge-pathnames ".coleslawrc" dir))

src/plugins.lisp

@@ -1,12 +0,0 @@
-(in-package :coleslaw)
-
-(defun load-plugins (plugins)
-  "Resolve the path of each symbol in PLUGINS and call LOAD on the
-resulting pathnames. It is expected that the matching *.lisp files
-are in the plugins folder in coleslaw's source directory."
-  (let ((files (mapcar (lambda (sym)
-                         (app-path "plugins/~a" (string-downcase (symbol-name sym))))
-                       plugins)))
-    (map nil (lambda (file)
-               (compile-file file)
-               (load file)) files)))