Rework ASDs, add stub md+rst plugins, docs script, and stub tests.

coleslaw-static.asd

@@ -1,18 +0,0 @@
-(defsystem :coleslaw-static
-  :name "coleslaw-static"
-  :description "Flexible Lisp Blogware, Static backend"
-  :version "0.0.1"
-  :maintainer "Brit Butler <redline6561@gmail.com>"
-  :author "Brit Butler <redline6561@gmail.com>"
-  :licence "LLGPL"
-  :depends-on (:coleslaw :trivial-timers :cl-store :split-sequence)
-  :components ((:module static
-                        :components ((:file "coleslaw")
-                                     (:file "comments"
-                                            :depends-on ("coleslaw"))
-                                     (:file "posts"
-                                            :depends-on ("coleslaw"))
-                                     (:file "indices"
-                                            :depends-on ("posts"))
-                                     (:file "util"
-                                            :depends-on ("coleslaw"))))))

coleslaw.asd

@@ -1,23 +1,32 @@
-(defsystem :coleslaw
+(defsystem #:coleslaw
   :name "coleslaw-core"
   :description "Flexible Lisp Blogware"
-  :version "0.0.2"
+  :version "0.0.3"
-  :maintainer "Brit Butler <redline6561@gmail.com>"
+  :license "BSD"
   :author "Brit Butler <redline6561@gmail.com>"
-  :licence "LLGPL"
+  :pathname "src/"
-  :depends-on (:cl-markdown :docutils :closure-template
+  :depends-on (:closure-template :cl-fad :local-time :alexandria)
-               :cl-fad :local-time)
+  :serial t
-  :components ((:module src
+  :components ((:file "packages")
-                        :components ((:file "packages")
+               (:file "coleslaw")
-                                     (:file "coleslaw"
+               (:file "themes")
-                                            :depends-on ("packages"))
+               (:file "comments")
-                                     (:file "themes"
+               (:file "posts")
-                                            :depends-on ("coleslaw"))
+               (:file "indices")
-                                     (:file "comments"
+               (:file "plugins"))
-                                            :depends-on ("coleslaw"))
+  :in-order-to ((test-op (load-op coleslaw-tests)))
-                                     (:file "posts"
+  :perform (test-op :after (op c)
-                                            :depends-on ("coleslaw"))
+                    (funcall (intern "RUN!" :coleslaw-tests)
-                                     (:file "indices"
+                             (intern "COLESLAW-TESTS" :coleslaw-tests))))
-                                            :depends-on ("posts"))
+
-                                     (:file "plugins"
+(defsystem #:coleslaw-tests
-                                            :depends-on ("packages"))))))
+  :depends-on (coleslaw fiveam)
+  :pathname "tests/"
+  :serial t
+  :components ((:file "packages")
+               (:file "tests")))
+
+(defmethod operation-done-p ((op test-op)
+                             (c (eql (find-system :coleslaw))))
+  (values nil))
+

gen-docs.sh

@@ -0,0 +1,4 @@
+#!/bin/sh
+sbcl --eval "(ql:quickload '(coleslaw sb-introspect cl-api))" \
+     --eval "(cl-api:api-gen :coleslaw \"docs/coleslaw.html\")" \
+     --eval "(progn (terpri) (sb-ext:quit))"

plugins/markdown.lisp

@@ -0,0 +1,9 @@
+(eval-when (:compile-toplevel)
+  (ql:quickload '3mbd))
+
+(defpackage :coleslaw-md
+  (:use :cl :coleslaw))
+
+(in-package :coleslaw-md)
+
+

plugins/restructured-text.lisp

@@ -0,0 +1,7 @@
+(eval-when (:compile-toplevel :load-toplevel)
+  (ql:quickload 'docutils))
+
+(defpackage :coleslaw-rst
+  (:use :cl :coleslaw))
+
+(in-package :coleslaw-rst)

tests/packages.lisp

@@ -0,0 +1,3 @@
+(defpackage :coleslaw-tests
+  (:use :cl :fiveam)
+  (:export #:run!))

tests/tests.lisp

@@ -0,0 +1 @@
+(in-package :coleslaw-tests)