diff options
| author | s-ol <s+removethis@s-ol.nu> | 2022-01-04 23:14:15 +0000 |
|---|---|---|
| committer | s-ol <s+removethis@s-ol.nu> | 2022-01-04 23:14:15 +0000 |
| commit | d93942ca5f507d19f06190411631f65304f214b1 (patch) | |
| tree | 0026f839fdd9fae4ce33937ce61de7c923760556 /src | |
| parent | add ba/pdf (diff) | |
| download | redirectly-d93942ca5f507d19f06190411631f65304f214b1.tar.gz redirectly-d93942ca5f507d19f06190411631f65304f214b1.zip | |
add iso-kb-explorer
Diffstat (limited to 'src')
| -rw-r--r-- | src/redirectly/core.clj | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/redirectly/core.clj b/src/redirectly/core.clj index 036e937..e8c9015 100644 --- a/src/redirectly/core.clj +++ b/src/redirectly/core.clj @@ -22,6 +22,7 @@ (defmethod url :url [{to :to}] to) (defmethod url :mmm [{[_ path & rest] :to}] (str "//mmm.s-ol.nu" path "/" (join ":" rest))) +(defmethod url :klaus [{[_ repo & rest] :to}] (str "//git.s-ol.nu/" repo "/" (join "/" rest))) (defn handler [req] (if-let [route (some #(matches? % (:uri req)) routes)] |