Small ring router using core.mach in babashka

router.clj

(require '[clojure.core.match :refer [match]]
         '[clojure.string :as str]
         '[hiccup2.core :refer [html]]
         '[org.httpkit.server :as server])

(defn router [req]
  (let [paths (vec (rest (str/split (:uri req) #"/")))]
    (match [(:request-method req) paths]
           [:get ["users" id]] {:body (str (html [:div id]))}
           :else {:body (str (html [:html "Welcome!"]))})))

(server/run-server router {:port 8090})
@(promise)

There's a little bug if (:uri req) is "/". You can rewrite it as (vec (rest (str/split "/" #"/"))).

Fixed, thanks.