diff options
| author | s-ol <s+removethis@s-ol.nu> | 2022-06-23 16:53:02 +0000 |
|---|---|---|
| committer | s-ol <s+removethis@s-ol.nu> | 2022-06-23 16:53:08 +0000 |
| commit | 06e74f45075ee3c23f9d1263585c1de6a24258c9 (patch) | |
| tree | 7e05ee673f18918761dcd33397f863437aaa0610 /src | |
| parent | link 0xC.pad to kb.s-ol.nu (diff) | |
| download | redirectly-06e74f45075ee3c23f9d1263585c1de6a24258c9.tar.gz redirectly-06e74f45075ee3c23f9d1263585c1de6a24258c9.zip | |
new klaus URL scheme
Diffstat (limited to 'src')
| -rw-r--r-- | src/redirectly/core.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/redirectly/core.clj b/src/redirectly/core.clj index e8c9015..bf32c6e 100644 --- a/src/redirectly/core.clj +++ b/src/redirectly/core.clj @@ -22,7 +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))) +(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)] |