Ring + reitit Clojure

Un fragmento en Clojure para Ring + reitit que responde a las peticiones a /pixel.gif con el GIF vacío, decodificado una sola vez al arrancar.

Ring + reitit Clojure

Ruta

Instalar: {:deps {metosin/reitit-ring {:mvn/version "0.11.0"} ring/ring-jetty-adapter {:mvn/version "1.15.5"}}}
Archivo: core.clj
Ejecutar: 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}))

Ejecutamos este fragmento y comparamos los bytes que devolvió.

Comprobar

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

Sitio oficial: Ring + reitit