Add jdbc sample

Author: mk

chinook.db

@@ -14,4 +14,7 @@
         arrowic/arrowic {:mvn/version "0.1.1"}
         rewrite-clj/rewrite-clj {:mvn/version "0.6.1"}}
 
- :aliases {:demo {:extra-paths ["notebooks/src"]}}}
+ :aliases {:demo {:extra-paths ["notebooks/src"]
+                  :extra-deps {com.github.seancorfield/next.jdbc {:mvn/version "1.2.659"}
+                               org.xerial/sqlite-jdbc {:mvn/version "3.34.0"}
+                               org.clojure/data.csv {:mvn/version "1.0.0"}}}}}

deps.edn

@@ -2,6 +2,8 @@
 (ns how-clerk-works
   (:require [nextjournal.clerk :as clerk]
             [nextjournal.clerk.hashing :as h]
+            [nextjournal.viewer :as v]
+            [next.jdbc :as jdbc]
             [weavejester.dependency :as dep]))
 
 ;; ## File Watching 👀
@@ -56,8 +58,7 @@
 
 ;; For side effectful functions that should be cached, like a database query, you can add a value like this `#inst` to control when evaluation should happen.
 (def query-results
-  (let [_run-at #inst "2021-05-20T08:28:29.445-00:00"]
-    #_
-    (let [my-datasource (jdbc/get-datasource {:dbtype "..." :dbname "..."})]
-      (with-open [connection (jdbc/get-connection my-datasource)]
-        (jdbc/execute! connection [...])))))
+  (let [_run-at #inst "2021-05-20T08:28:29.445-00:00"
+        ds (next.jdbc/get-datasource {:dbtype "sqlite" :dbname "chinook.db"})]
+    (with-open [conn (next.jdbc/get-connection ds)]
+      (nextjournal.viewer/table (next.jdbc/execute! conn ["SELECT * FROM tracks ORDER BY UnitPrice DESC LIMIT 10 OFFSET 2000 "])))))

notebooks/how_clerk_works.clj

@@ -61,6 +61,11 @@
 (defn tex [x]
   (with-viewer x :latex))
 
+(defn table [xs]
+  (view-as :table
+           (into []
+                 (map #(into {} %))
+                 xs)))
 
 (defmacro register-viewers! [v]
   `(with-viewer

src/nextjournal/viewer.clj

@@ -30,4 +30,6 @@
   (show! "notebooks/viewers/markdown.clj")
   (show! "notebooks/viewers/html.clj")
 
+  (clerk/clear-cache!)
+
   )