git.s-ol.nu redirectly / d93942c
add iso-kb-explorer s-ol 7 months ago
2 changed file(s) with 5 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
2525 "vcvmods/doc" {:to "https://github.com/s-ol/vcvmods/blob/master/README.md"}
2626
2727 :redirectly {:to [:mmm "/blog/why_redirectly"]}
28 "redirectly/src" {:to "https://git.s-ol.nu/redirectly/"}
28 "redirectly/src" {:to [:klaus "redirectly"]}
2929
3030 :alive {:to "https://alive.s-ol.nu/stable/"}
3131 "alive/src" {:to "https://github.com/s-ol/alive"}
3535 "0xC.pad/cfg" {:to "https://qmk.s-ol.nu/#/s_ol/0xc_pad/LAYOUT"}
3636 :0x2C.board {:to "https://fabacademy.org/2020/labs/opendot/students/sol-bekic/projects/keyboard/"}
3737 "0x2C.board/cfg" {:to "https://qmk.s-ol.nu/#/s_ol/0x2c_board/LAYOUT"}
38
39 :isokbexp {:to "https://isokb.s-ol.nu"}
40 "isokbexp/src" {:to [:klaus "isomorphic-kb-explorer"]}
3841
3942 ; legacy blog posts
4043 :blog {:to [:mmm "/blog"]}
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)))
2425
2526 (defn handler [req]
2627 (if-let [route (some #(matches? % (:uri req)) routes)]