Como integrar validação de CPF em Clojure com Ring e Compojure

;; project.clj
(defproject cpf-validator "0.1.0"
    :description "Validação de CPF via API CPFHub.io"
    :dependencies [[org.clojure/clojure "1.11.1"]
    [ring/ring-core "1.10.0"]
    [ring/ring-jetty-adapter "1.10.0"]
    [ring/ring-json "0.5.1"]
    [compojure "1.7.1"]
    [clj-http "3.12.3"]
    [cheshire "5.12.0"]
    [environ "1.2.0"]]
    :main cpf-validator.core
    :plugins [[lein-environ "1.2.0"]])

;; profiles.clj (NÃO versione este arquivo)
{:dev {:env {:cpfhub-api-key "SUA_CHAVE_DE_API"
    :cpfhub-base-url "https://api.cpfhub.io"
    :cpfhub-timeout "5000"}}}

;; src/cpf_validator/config.clj
(ns cpf-validator.config
    (:require [environ.core :refer [env]]))

(def cpfhub-config
    {:api-key (env :cpfhub-api-key)
    :base-url (env :cpfhub-base-url "https://api.cpfhub.io")
    :timeout (Integer/parseInt (env :cpfhub-timeout "5000"))})

;; src/cpf_validator/cpfhub.clj
(ns cpf-validator.cpfhub
    (:require [clj-http.client :as http]
    [cheshire.core :as json]
    [clojure.string :as str]
    [cpf-validator.config :refer [cpfhub-config]]))

(defn limpar-cpf
    "Remove caracteres não numéricos do CPF."
    [cpf]
    (str/replace cpf #"\D" ""))

(defn cpf-valido?
    "Verifica se o CPF tem 11 dígitos."
    [cpf]
    (= 11 (count (limpar-cpf cpf))))

(defn- mapear-erro
    "Mapeia status HTTP para mensagem de erro."
    [status]
    (case status
    400 {:error "CPF com formato inválido" :status 400}
    401 {:error "Chave de API inválida ou ausente" :status 401}
    404 {:error "CPF não encontrado na base de dados" :status 404}
    {:error (str "Erro HTTP " status) :status status}))

(defn consultar-cpf
    "Consulta dados de um CPF na API da CPFHub.io.
    Retorna {:ok data} em caso de sucesso ou {:error msg :status code} em caso de erro."
    [cpf]
    (let [cpf-limpo (limpar-cpf cpf)]
    (if-not (= 11 (count cpf-limpo))
    {:error "CPF deve conter exatamente 11 dígitos" :status 400}
    (try
    (let [url (str (:base-url cpfhub-config) "/cpf/" cpf-limpo)
    response (http/get url
    {:headers {"x-api-key" (:api-key cpfhub-config)
    "Accept" "application/json"}
    :socket-timeout (:timeout cpfhub-config)
    :connection-timeout (:timeout cpfhub-config)
    :as :json
    :throw-exceptions false})]
    (if (= 200 (:status response))
    (let [body (:body response)]
    (if (:success body)
    {:ok (:data body)}
    {:error "Resposta inesperada da API" :status 500}))
    (mapear-erro (:status response))))
    (catch java.net.SocketTimeoutException _
    {:error "Timeout ao consultar a API da CPFHub" :status 504})
    (catch Exception e
    {:error (str "Erro de conexão: " (.getMessage e)) :status 502})))))

;; src/cpf_validator/routes.clj
(ns cpf-validator.routes
    (:require [compojure.core :refer [defroutes GET]]
    [compojure.route :as route]
    [ring.util.response :as response]
    [cpf-validator.cpfhub :as cpfhub]))

(defn- consulta-cpf-handler
    "Handler para consulta de CPF."
    [cpf]
    (let [resultado (cpfhub/consultar-cpf cpf)]
    (if (:ok resultado)
    (response/response {:success true :data (:ok resultado)})
    (-> (response/response {:success false :error (:error resultado)})
    (response/status (:status resultado 500))))))

(defroutes app-routes
    (GET "/api/cpf/:cpf" [cpf] (consulta-cpf-handler cpf))
    (route/not-found {:success false :error "Recurso não encontrado"}))

;; src/cpf_validator/core.clj
(ns cpf-validator.core
    (:require [ring.adapter.jetty :refer [run-jetty]]
    [ring.middleware.json :refer [wrap-json-response wrap-json-body]]
    [ring.middleware.params :refer [wrap-params]]
    [cpf-validator.routes :refer [app-routes]])
    (:gen-class))

(def app
    (-> app-routes
    wrap-json-response
    (wrap-json-body {:keywords? true})
    wrap-params))

(defn -main
    "Inicia o servidor HTTP."
    [& args]
    (let [port (Integer/parseInt (or (System/getenv "PORT") "3000"))]
    (println (str "Servidor iniciado na porta " port))
    (run-jetty app {:port port :join? false})))

lein run

curl -X GET http://localhost:3000/api/cpf/12345678900

{
    "success": true,
    "data": {
    "cpf": "12345678900",
    "name": "João da Silva",
    "nameUpper": "JOÃO DA SILVA",
    "gender": "M",
    "birthDate": "15/06/1990",
    "day": 15,
    "month": 6,
    "year": 1990
    }
}

;; No REPL
(require '[cpf-validator.cpfhub :as cpfhub])

;; Testar consulta
(cpfhub/consultar-cpf "12345678900")
;; => {:ok {:cpf "12345678900" :name "João da Silva" ...}}

;; Testar CPF inválido
(cpfhub/consultar-cpf "123")
;; => {:error "CPF deve conter exatamente 11 dígitos" :status 400}

;; Verificar validação
(cpfhub/cpf-valido? "123.456.789-00")
;; => true