git.s-ol.nu redirectly / 06e74f4
new klaus URL scheme s-ol 11 months ago
1 changed file(s) with 1 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
+1
-1
src/redirectly/core.clj less more
2121
2222 (defmethod url :url [{to :to}] to)
2323 (defmethod url :mmm [{[_ path & rest] :to}] (str "//mmm.s-ol.nu" path "/" (join ":" rest)))
24 (defmethod url :klaus [{[_ repo & rest] :to}] (str "//git.s-ol.nu/" repo "/" (join "/" rest)))
24 (defmethod url :klaus [{[_ repo & rest] :to}] (str "//git.s-ol.nu/" repo "/-/" (join "/" rest)))
2525
2626 (defn handler [req]
2727 (if-let [route (some #(matches? % (:uri req)) routes)]