swlkr

(ns your-proj.models.posts
  (:require [coast.db :as db])
  (:refer-clojure :exclude [update]))

(def columns [:title :body])

(defn all []
  (db/query :posts/all))

(defn find-by-id [id]

swlkr

(ns simple
  (:require [coast.core :as coast]))

(defn home [request]
  (coast/ok "You're coasting on clojure!"))

(def app (-> (coast/get "/" home)
             (coast/wrap-coast-defaults)))

(defn -main []

swlkr

(ns your-app.core
  (require [trail.core :as trail]
           [your-app.controllers.items :as items]))
           [your-app.controllers.tags :as tags]))

(def routes
  (-> (trail/resource :items)
      (trail/resource :tags)))

swlkr

(def protected-routes (-> (get "/" (fn [r] "GET /"))
                          (get "/sign-out" (fn [r] "GET /sign-out"))))

(defn middleware [handler]
  (fn [request]
    (if (= 1 2)
      (handler request)
      (throw (Exception. "Nope")))))

(def routes (-> (wrap-routes middleware protected-routes)

swlkr

(defroutes app-routes
  (trail/get "/items"          items/index)
  (trail/get "/items/:id"      items/show)
  (trail/get "/items/:id/new"  items/new!)
  (trail/get "/items/:id/edit" items/edit)
  (trail/post "/items"         items/create)
  (trail/put "/items/:id"      items/update)
  (trail/delete "/items/:id"   items/delete))

swlkr

(ns your-app.core
  (require [trail.core :as trail]
           [org.httpkit.server :as server]
           [ring.middleware.defaults :as ring-defaults]
           [your-app.controllers.items :as items]))

(def routes
  (-> (trail/get "/items"          items/index)
      (trail/get "/items/:id"      items/show)
      (trail/get "/items/:id/new"  items/new!)

swlkr

{
  [:get "/items"]          items/index
  [:get "/items/:id"]      items/show
  [:get "/items/:id/new"]  items/new!
  [:get "/items/:id/edit"] items/edit
  [:post "/items"]         items/create
  [:put "/items/:id"]      items/update
  [:delete "/items/:id"]   items/delete
}

swlkr

(ns trail-usage.core
  (:require [trail.core :as trail]))

(def routes
  (-> (trail/get "/items"          items/index)
      (trail/get "/items/:id"      items/show)
      (trail/get "/items/:id/new"  items/new!)
      (trail/get "/items/:id/edit" items/edit)
      (trail/post "/items"         items/create)
      (trail/put "/items/:id"      items/update)

swlkr

(ns trail.core
  (:require [clout.core :as clout])
  (:refer-clojure :exclude [get]))

(defn route
  ([method route-map uri f]
   (assoc route-map [method uri] f))
  ([method uri f]
   (route method {} uri f)))

swlkr

(ns my-blog.views.home
  (:require [my-blog.components :as c]))

(defn index []
  (c/layout
    (c/center
      "Welcome to my blog!")))