First commit

Author: mg50

Procfile

@@ -0,0 +1 @@
+web: lein run -m joodo.main production

config/development.clj

@@ -0,0 +1,7 @@
+(use 'joodo.env)
+
+(def environment {
+  :joodo-env "development"
+  })
+
+(swap! *env* merge environment)

config/environment.clj

@@ -0,0 +1,8 @@
+(use 'joodo.env)
+
+(def environment {
+  :joodo.core.namespace "clojurekoans.core"
+  ; environment settings go here
+  })
+
+(swap! *env* merge environment)

config/production.clj

@@ -0,0 +1,7 @@
+(use 'joodo.env)
+
+(def environment {
+  :joodo-env "production"
+  })
+
+(swap! *env* merge environment)

project.clj

@@ -0,0 +1,9 @@
+(defproject clojurekoans "0.0.1"
+  :description "A website deployable to AppEngine"
+  :dependencies [[org.clojure/clojure "1.2.1"]
+                 [joodo "0.6.0-SNAPSHOT"]]
+  :dev-dependencies [[speclj "1.4.0"]]
+  :test-path "spec/"
+  :java-source-path "src/"
+  :repl-init-script "config/development/repl_init.clj"
+  :joodo-core-namespace clojurekoans.core)

public/images/joodo.png

@@ -0,0 +1,6 @@
+body {
+    background: #e3b200;
+    font-family: sans-serif;
+    width: 600px;
+	margin: 30px auto 0 auto;
+}

public/javascript/clojurekoans.js

@@ -0,0 +1,18 @@
+(ns clojurekoans.core-spec
+  (:use
+    [speclj.core]
+    [joodo.spec-helpers.controller]
+    [clojurekoans.core]))
+
+(describe "clojurekoans"
+
+  (with-mock-rendering)
+  (with-routes app-handler)
+
+  (it "handles home page"
+    (let [result (do-get "/")]
+      (should= 200 (:status result))
+      (should= "index" @rendered-template)))
+  )
+
+(run-specs)

public/stylesheets/clojurekoans.css

@@ -0,0 +1,18 @@
+(ns clojurekoans.core
+  (:use
+    [compojure.core :only (defroutes GET)]
+    [compojure.route :only (not-found)]
+    [joodo.middleware.view-context :only (wrap-view-context)]
+    [joodo.views :only (render-template render-html)]
+    [joodo.controllers :only (controller-router)]))
+
+(defroutes clojurekoans-routes
+  (GET "/" [] (render-template "index"))
+  (controller-router 'clojurekoans.controller)
+  (not-found (render-template "not_found" :template-root "clojurekoans/view" :ns `clojurekoans.view.view-helpers)))
+
+(def app-handler
+  (->
+    clojurekoans-routes
+    (wrap-view-context :template-root "clojurekoans/view" :ns `clojurekoans.view.view-helpers)))
+

spec/clojurekoans/core_spec.clj

@@ -0,0 +1,18 @@
+[:div {:style "text-align: center;"}
+ [:img {:src "/images/joodo.png"}]
+ [:h1 "Welcomes You!"]]
+
+[:h3 "Intro"]
+[:p "Gaeshi is a clojure framework for building Google AppEngine sites. The project home is at "
+ [:a {:href "https://github.com/slagyr/joodo"} "https://github.com/slagyr/joodo"] "."
+ "It consists of 3 parts"
+ [:ul
+  [:li [:b "Kuzushi"] "- which means 'breaking balance', is a Leiningen plugin that supplies all the Geashi commands."]
+  [:li [:b "Tsukuri"] "- which means 'entry', is a library containing all the development tools."]
+  [:li [:b "Kake"] "- which means 'execution', is the runtime library that contains all the main APIs."]]]
+
+[:h3 "License"]
+[:p "Copyright (C) 2011 Micah Martin All Rights Reserved."]
+[:p "Distributed under the The MIT License."]
+
+[:p "This app was generated for clojurekoans."]

src/clojurekoans/core.clj

@@ -0,0 +1,10 @@
+(doctype :html5)
+[:html
+ [:head
+  [:meta {:http-equiv "Content-Type" :content "text/html" :charset "iso-8859-1"}]
+  [:title "clojurekoans"]
+  (include-css "/stylesheets/clojurekoans.css")
+  (include-js "/javascript/clojurekoans.js")]
+ [:body
+  (eval (:template-body joodo.views/*view-context*))
+]]

src/clojurekoans/view/index.hiccup.clj

@@ -0,0 +1 @@
+[:h1 "Not Found"]

src/clojurekoans/view/layout.hiccup.clj

@@ -0,0 +1,6 @@
+(ns clojurekoans.view.view-helpers
+  "Put helper functions for views in this namespace."
+  (:use
+    [joodo.views :only (render-partial *view-context*)]
+    [hiccup.page-helpers]
+    [hiccup.form-helpers]))