Versao services.clj no exemplo de grupo FP de Calango

gistfile1.txt

(ns clojure-web-server.routes.services
  (:require [ring.util.http-response :refer :all]
            [compojure.api.sweet :refer :all]
            [schema.core :as s])
)

(defonce ideias (atom {:id 0 :nome "root" :criancas
                   [{:id 1 :nome "hello" :criancas {}}]}))

(defn buscar [id ids]
  (if (= id (:id ids))
    ids
    (some #(buscar id %) (:criancas ids) )
    ))

(defn add [pai-id nova-id nova-nome {:keys [id nome criancas]}]
  (if (= pai-id id)
    {:id id :nome nome
     :criancas (cons {:id nova-id
                      :nome nova-nome
                      :criancas []} criancas) }
    {:id id :nome nome
     :criancas (map #(add pai-id nova-id nova-nome %) criancas)}
)  )


(defapi service-routes
  {:swagger {:ui "/swagger-ui"
             :spec "/swagger.json"
             :data {:info {:version "1.0.0"
                           :title "Sample API"
                           :description "Sample Services"}}}}

  (context "/api" []
    :tags ["Ideias"]


    (GET "/idea/:id" []
         :path-params [id :- String]
         :summary "search by id"
         (ok (buscar (Integer. id) @ideias)))

    (POST "/new-idea/:id" []
          :return String
          :path-params [id :- Long]
          :query-params [nid :- Long, nome :- String]
          :summary "add a new node"
          (ok (str  (reset! ideias (add id nid nome @ideias))))
          )

))