add iso-kb-explorer
s-ol
7 months ago
| 25 | 25 |
"vcvmods/doc" {:to "https://github.com/s-ol/vcvmods/blob/master/README.md"}
|
| 26 | 26 |
|
| 27 | 27 |
:redirectly {:to [:mmm "/blog/why_redirectly"]}
|
| 28 | |
"redirectly/src" {:to "https://git.s-ol.nu/redirectly/"}
|
|
28 |
"redirectly/src" {:to [:klaus "redirectly"]}
|
| 29 | 29 |
|
| 30 | 30 |
:alive {:to "https://alive.s-ol.nu/stable/"}
|
| 31 | 31 |
"alive/src" {:to "https://github.com/s-ol/alive"}
|
|
| 35 | 35 |
"0xC.pad/cfg" {:to "https://qmk.s-ol.nu/#/s_ol/0xc_pad/LAYOUT"}
|
| 36 | 36 |
:0x2C.board {:to "https://fabacademy.org/2020/labs/opendot/students/sol-bekic/projects/keyboard/"}
|
| 37 | 37 |
"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"]}
|
| 38 | 41 |
|
| 39 | 42 |
; legacy blog posts
|
| 40 | 43 |
:blog {:to [:mmm "/blog"]}
|
| 21 | 21 |
|
| 22 | 22 |
(defmethod url :url [{to :to}] to)
|
| 23 | 23 |
(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 | 25 |
|
| 25 | 26 |
(defn handler [req]
|
| 26 | 27 |
(if-let [route (some #(matches? % (:uri req)) routes)]
|