Add some REPL helpers

clojureverse · Sep 9, 2020 · 55d023c · 55d023c
1 parent 2555acb
commit 55d023c
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/clojurians_log/repl.clj b/src/clojurians_log/repl.clj
@@ -19,6 +19,7 @@
    (uncaughtException [_ thread throwable]
      (println (.getMessage throwable)))))
 
+
 (defn read-edn [filepath]
   (-> filepath
       slurp
@@ -37,6 +38,9 @@
   []
   (get-in (app/system) [:datomic :conn]))
 
+(defn db []
+  (d/db (conn)))
+
 (defn load-slack-data!
   "Import Slack users, Channels, and custom emojis."
   []
@@ -182,10 +186,13 @@
 (comment
   ;; rlwrap nc localhost 50505
   (use 'clojurians-log.repl)
+  (in-ns 'clojurians-log.repl)
   (load-slack-data!)
   (def result (load-files! (log-files)))
   result
 
+  (load-files! [f])
+
   (def result (load-files! (drop 1508 (log-files))))
   (def rrr (load-files! (filter #(and (.contains (str %) "2020-08") (.contains (str %) "backfill")) (log-files))))