Skip to content

Instantly share code, notes, and snippets.

View kbosompem's full-sized avatar
💭
I may be slow to respond.

K B kbosompem

💭
I may be slow to respond.
View GitHub Profile
@kbosompem
kbosompem / data.edn
Created April 19, 2022 06:53
Learn Datalog Today Schema for Datalevin
[{:db/id -100
:person/name "James Cameron"
:person/born #inst "1954-08-16"}
{:db/id -101
:person/name "Arnold Schwarzenegger"
:person/born #inst "1947-07-30"}
{:db/id -102
:person/name "Linda Hamilton"
@borkdude
borkdude / router.clj
Last active April 9, 2024 15:03
Small ring router using core.mach in babashka
(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!"]))})))