     lamina.core
     cheshire.core))
 
-(defn getevents [user position]
+(defn get-events [user position]
   (if (not (valid-position? position))
     (cheshire.core/generate-string {:goaway true})
     (let [ch (lamina.core/channel)]

       (let [{type :type id :id} route-params]
         (put-command! id
                      {:type        (keyword type)
                       :id           id
                       :remote-addr remote-addr
                       :body        (zipmap (map keyword
                                                 (keys form-params))

  (GET "/events/:user/:position" [user position]
       {:status  200
        :headers {"content-type" "application/json"}
        :body    (get-events user position)})

  (PUT "/command/:type/:id"
       {route-params :route-params
