gistfile1.clj

(defroutes rotas 
  #_(ANY "/empresa" []
    (resource 
      :available-media-types ["application/edn"]
      :method-allowed? (request-method-in :get :post)
      :handle-ok (fn [ctx]
                   (k/select ent/empresa (k/fields :id :nome)))
      :post! (fn [ctx]
               (let [empresa (read-edn-from-body ctx)]
                 {::result (insert-empresa empresa)}))
      :handle-created (fn [ctx] (::result ctx))))

  #_(ANY "/empresa/:id" [id]
    (resource
      :available-media-types ["application/edn"]
      :method-allowed? (request-method-in :get :put :delete)
      :respond-with-entity? true
      :malformed? (fn [_] (not (valid-uuid? id)))
      :delete! 
        (fn [ctx]
          (k/delete ent/empresa 
            (k/where {:id (java.util.UUID/fromString id)})))
      :handle-ok
        (by-method
          :get
            (fn [ctx]
              (-> (k/select* ent/empresa)
                  (k/where {:id (java.util.UUID/fromString id)})
                  (k/select)
                  first ))
          :delete
            (fn [ctx]
              "Registro excluído"))
      :put! (fn [ctx]
              (let [empresa (read-edn-from-body ctx)]
                {::result (update-empresa empresa)}))
      :handle-created (fn [ctx] (::result ctx)))))