Ring + reitit Clojure

Un extrait Clojure pour Ring + reitit qui répond aux requêtes sur /pixel.gif avec le GIF vide, décodé une seule fois au démarrage.

Ring + reitit Clojure

Chemin

Installer: {:deps {metosin/reitit-ring {:mvn/version "0.11.0"} ring/ring-jetty-adapter {:mvn/version "1.15.5"}}}
Fichier: core.clj
Lancer: clojure -M -m pixel.core

(ns pixel.core
  (:require [reitit.ring :as ring]
            [ring.adapter.jetty :as jetty])
  (:import (java.util Base64)))

(def gif (.decode (Base64/getDecoder) "R0lGODlhAQABAIAAAP///wAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw=="))

(def app
  (ring/ring-handler
   (ring/router
    ["/pixel.gif" {:get (fn [_]
                        {:status 200
                         :headers {"Content-Type" "image/gif"
                                   "Content-Length" (str (alength gif))
                                   "Cache-Control" "no-store"}
                         :body gif})}])
   (ring/create-default-handler)))

(defn -main []
  (jetty/run-jetty app {:port 8080 :join? true}))

Nous avons exécuté cet extrait et comparé les octets qu’il a renvoyés.

Vérifier

curl -sI http://localhost:8080/pixel.gif

Site officiel: Ring + reitit