Merge branch 'master' of github.com:slagyr/specljweb

project.clj

@@ -1,21 +1,10 @@
-(defproject speclj_www "0.0.1"
-  :description "A website deployable to AppEngine"
+(defproject speclj_www "1.0.0"
+  :description "Speclj's Documentation Website"
   :dependencies [[org.clojure/clojure "1.5.1"]
                  [joodo "1.1.2"]
-                 [speclj "2.5.0"]
-                 ]
+                 [speclj "2.5.0"]]
   :min-lein-version "2.0.0"
-
-  ; lein 1.x
-  :dev-dependencies [[speclj "2.5.0"]]
-  :test-path "spec/"
-
-   ;lein 2.x
-  :profiles {:dev {:dependencies [[speclj "2.5.0"]]}}
   :plugins [[speclj "2.5.0"]
             [joodo/lein-joodo "1.1.2"]]
   :test-paths ["spec"]
-
-  ;:java-source-path "src/"
-  :repl-init-script "config/development/repl_init.clj"
   :joodo-core-namespace speclj_www.core)

spec/speclj_www/controller/docs_controller_spec.clj

@@ -0,0 +1,22 @@
+(ns speclj_www.controller.docs-controller-spec
+  (:require [joodo.spec-helpers.controller :refer :all ]
+            [speclj.core :refer :all ]
+            [speclj_www.controller.docs-controller :refer :all ]))
+
+(describe "docs_controller_spec.clj"
+
+  (with-routes docs-controller)
+  (with-mock-rendering :strict true :template-root "speclj_www/view")
+
+  (it "renders a components documentation"
+    (let [response (do-get "/docs/describe")]
+      (should= 200 (:status response))
+      (should= "describe" (:component-name @rendered-context))
+      (should-not= nil (:doc @rendered-context))))
+
+  (it "404s on a missing component"
+    (let [response (do-get "/docs/foo")]
+      (should= 404 (:status response))
+      (should= "not_found" @rendered-template)))
+
+  )

spec/speclj_www/view/view_helpers_spec.clj

@@ -0,0 +1,15 @@
+(ns speclj_www.view.view-helpers-spec
+  (:require [speclj.core :refer :all]
+            [speclj_www.view.view-helpers :refer :all]))
+
+(describe "view_helpers_spec.clj"
+
+    (it "spec components"
+      (should= true (> (count speclj-components) 15))
+      (doseq [name speclj-components]
+        (should-not= true (.startsWith name "-"))
+        (should-not= true (.startsWith name "*")))
+      )
+
+
+    )

src/speclj_www/controller/docs_controller.clj

@@ -1,42 +1,14 @@
 (ns speclj_www.controller.docs-controller
-  (:use
-	[compojure.core :only (routes GET)]
-    [joodo.views :only (render-template render-html)]
-))
+  (:use [compojure.core :only (routes GET context)]
+        [joodo.views :only (render-template render-html)]))
+
+(def speclj-ns (the-ns 'speclj.core))
+
+(defn render-docs-for [component-name]
+  (if-let [component (ns-resolve speclj-ns (symbol component-name))]
+    (render-template "docs/doc" :component-name component-name :doc (:doc (meta component)))
+    {:status 404 :body (render-template "not_found")}))
 
 (def docs-controller
-  (->
-    (routes
-      (GET "/docs" [] (render-template "docs/index"))
-      (GET "/docs/" [] (render-template "docs/index"))
-      (GET "/docs/describe" [] (render-template "docs/describe"))
-      (GET "/docs/it" [] (render-template "docs/it"))
-      (GET "/docs/context" [] (render-template "docs/context"))
-      (GET "/docs/should" [] (render-template "docs/should"))
-      (GET "/docs/should-not" [] (render-template "docs/should_not"))
-      (GET "/docs/should-e" [] (render-template "docs/should_e"))
-      (GET "/docs/should-not-e" [] (render-template "docs/should_not_e"))
-      (GET "/docs/should-fail" [] (render-template "docs/should_fail"))
-      (GET "/docs/should-throw" [] (render-template "docs/should_throw"))
-      (GET "/docs/should-not-throw" [] (render-template "docs/should_not_throw"))
-      (GET "/docs/before" [] (render-template "docs/before"))
-      (GET "/docs/before-all" [] (render-template "docs/before_all"))
-      (GET "/docs/after" [] (render-template "docs/after"))
-      (GET "/docs/after-all" [] (render-template "docs/after_all"))
-      (GET "/docs/with" [] (render-template "docs/with"))
-      (GET "/docs/with-all" [] (render-template "docs/with-all"))
-      (GET "/docs/around" [] (render-template "docs/around"))
-      (GET "/docs/tags" [] (render-template "docs/tags"))
-      (GET "/docs/run-specs" [] (render-template "docs/run-specs"))
-      (GET "/docs/should-be-nil" [] (render-template "docs/should-be-nil"))
-      (GET "/docs/should-be-same" [] (render-template "docs/should-be-same"))
-      (GET "/docs/should-contain" [] (render-template "docs/should-contain"))
-      (GET "/docs/should-not-be-nil" [] (render-template "docs/should-not-be-nil"))
-      (GET "/docs/should-not-be-same" [] (render-template "docs/should-not-be-same"))
-      (GET "/docs/should-not-contain" [] (render-template "docs/should-not-contain"))
-      (GET "/docs/should-not-e-e" [] (render-template "docs/should-not-e-e"))
-      (GET "/docs/should-e-e" [] (render-template "docs/should-e-e"))
-      (GET "/docs/with-bang" [] (render-template "docs/with-bang"))
-      (GET "/docs/with-all-bang" [] (render-template "docs/with-all-bang"))
-      (GET "/docs/xit" [] (render-template "docs/xit"))
-)))
+  (context "/docs" []
+    (GET "/:component-name" [component-name] (render-docs-for component-name))))

src/speclj_www/view/docs/doc.hiccup

@@ -0,0 +1,4 @@
+[:h3 (:component-name *view-context*)]
+
+[:div {:id "comp_box"}
+  [:pre (:doc *view-context*)]]