(ns lccl.app
  (:require [reitit.ring :as ring-reitit]
            [reitit.coercion.malli]
            [reitit.ring.malli]
            [reitit.dev.pretty :as pretty]
            [reitit.ring.middleware.muuntaja :as muuntaja]
            [muuntaja.core :as m]))

(defn eval
  [request]
  (let [sexpr (slurp (:body request))]
    (println "Demande d'évaluation de l'expression :" sexpr)
    {:status 200, :body sexpr}))

(defn api-handler
  []
  (ring-reitit/ring-handler
   (ring-reitit/router
    [["/eval" {:post eval}]]

    {:exception pretty/exception
     :data {
            :muuntaja m/instance
            :middleware [muuntaja/format-response-middleware]}})))

(defn app-handler
  []
  (ring-reitit/routes (api-handler)))