luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-31 13:48:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add trailing slash handler

Browse source
This commit is contained in:
Unknown 2018-10-29 10:10:22 +09:00
parent 46254975d9
commit 875934360e
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
modules/reitit-ring/src/reitit/ring.cljc
View file

@ -110,6 +110,35 @@
(respond nil)))]
(f handlers))))))
(defn redirect-trailing-slash-handler
"A ring handler that redirects a missing path if there is an
existing path that only differs in the ending slash.
| key | description |
|---------|-------------|
| :method | :add - redirects slash-less to slashed |
| | :strip - redirects slashed to slash-less |
| | :both - works both ways (default) |
"
[{:keys [method] :or {method :both}}]
(let [redirect-handler (fn redirect-handler [request]
(let [uri (:uri request)
maybe-redirect (fn maybe-redirect [path]
(if (r/match-by-path (::r/router request) path)
{:status 308 ; permanent redirect
:headers {"Location" path}
:body ""}))]
(if (str/ends-with? uri "/")
(if (not= method :add)
(maybe-redirect (subs uri 0 (-> uri count dec))))
(if (not= method :strip)
(maybe-redirect (str uri "/"))))))]
(fn
([request]
(redirect-handler request))
([request respond _]
(respond (redirect-handler request))))))
(defn create-default-handler
"A default ring handler that can handle the following cases,
configured via options: