Clojure/Noir: Forzar HTTPS, redirigir si la solicitud fue http: // a https: //

Question

Estoy tratando de forzar SSL en mi sitio. Quiero tener un middle-ware estilo anillo para redirigir el sitio a la misma URL con https si solo es http

Escribí el siguiente código pero en realidad no hace nada además de verificar el esquema de solicitud e imprimir el URL a la que debería estar redirigiendo.

(defn https-url [request-url] 
    (str (str (str (str "https://" (:server-name request-url) ":") (:server-port request-url))) (:uri request-url))) 

(defn require-https 
    [handler] 
    (fn [request] 
    (let [page-request (handler request)] 
     (if (= (:scheme page-request) :http) 
     (println (https-url page-request)))))) 

(server/add-middleware require-https) 

¿Cómo implementaría esto en una aplicación real?

Estoy usando clojure 1.2 con Noir.

Nota al margen: ¿Cómo combino múltiples cadenas en una cadena sin usar múltiples str anidados?

Answer 1

Puede utilizar ring.util.response/redirect:

(fn handler [request] 
    (if need-to-redirect? 
    ;; NB. target-url should be a string 
    (ring.util.response/redirect target-url) 
    ...)) 

En cuanto a la nota al margen, es str variadic:

(str "foo" 'bar "baz") 
; => "foobarbaz"