Как получить selflink в обработчике compojure?

Question

При определении обработчика compojure, например. с помощью defroutes макрос, я могу сделать что-то вроде этого:

(defroutes home-routes 
    (GET "/myhome/:id" [ id ] (home-page))) 

(defn home-page [ id ] 
    (... do something ...)) 

Так что я знаю, как передать часть параметра пути. Но представьте себе, что я хочу вернуть объект HAL + JSON с помощью selflink. Как я могу получить defroutes для передачи всего URI функции home-page?

Answer 1

Карта запроса звонка содержит всю необходимую информацию для создания «selflink». В частности, :scheme, :server-name, :server-port и :uri значения могут быть собраны в полный URL-адрес запроса. Когда я столкнулся с этой проблемой, я создал промежуточное ПО Ring, которое добавляет собранный URL-адрес запроса на карту запроса звонка. Затем я мог бы использовать URL-адрес запроса в своих обработчиках, если я передаю карту запроса (или некоторое ее подмножество) в обработчик. Следующий фрагмент кода показывает один из способов реализации этого:

(defroutes app-routes 
    (GET "/myhome/:id" [id :as {:keys [self-link]}] (home-page id self-link)) 
    (route/resources "/") 
    (route/not-found "Not Found")) 

(defn wrap-request-add-self-link [handler] 
    (fn add-self-link [{:keys [scheme server-name server-port uri] :as r}] 
    (let [link (str (name scheme) "://" server-name ":" server-port uri)] 
     (handler (assoc r :self-link link))))) 

(def app 
    (-> app-routes 
    handler/site 
    wrap-request-add-self-link))