fnhouse blogpost gists

entrieshandlerinfo.clj

{;; HTTP-related info
 :path "/entries/"
 :method :post

 :description
   "Add a new entry to the guestbook"

 ;; information about the HTTP request that the handler expects
 :request
  {:body Entry
  ;; our function does not expect any query-params or uri-args, but in general they are supported
   :query-params {}
   :uri-args {}}

 :responses {200 [Entry]}

 ;; additional metadata about the Clojure implementation
 :resources {:guestbook s/Any}
 
 :source-map
 {:line   23
  :column 1
  :file   "guesthouse.clj"
  :ns     "guesthouse"
  :name   "entries$POST"}}

entriespost.clj

(defnk entries$POST
  "Add a new entry to the guestbook"
  {:responses {200 [Entry]}}
  [[:request body :- Entry]
   [:resources guestbook]]
  (swap! guestbook conj body))

entrypost2.clj

(defnk entries$POST
  "Add a new entry to the guestbook"
  {:responses {200 [Entry]}}
  [[:request body :- Entry]
   [:resources guestbook]]
  (swap! guestbook conj body))

entryschema.clj

(def Entry
 "A simple Schema for a guestbook entry"
 {:name String
  :age Long
  :lang (s/enum :clj :cljs)})

inspectdefnk.clj

(plumbing.fnk.pfnk/input-schema entries$POST)

{Keyword Any,
 :resources {Keyword Any, :guestbook Any},
 :request {Keyword Any,
           :body {:name java.lang.String,
                  :age java.lang.Long,
                  :lang (enum :cljs :clj)}}}

properentry.clj

{:name   "John"
 :age    31
 :lang   :clojure}

spinupserver.clj

(-> ;; take your resources
    resources
    ;; pass them into the slurped up handlers
    ((handlers/nss->handlers-fn {"guestbook" 'guesthouse.guestbook}))
    ;; compile the handlers into a router
    routes/root-handler
    ;; run jetty
    (jetty/run-jetty options))

stringentry.clj

{:name   "John"
 :age    "31.0"
 :lang   "clojure"}