Dockerfile

@@ -22,8 +22,6 @@ RUN clj -P
 COPY build.clj config.edn ./
 COPY src ./src
 
-ENV DATOMIC_PATH=/datomic_data
-ENV DATOMIC_ENV=prd
 # construct the application jar
 RUN clj -T:build uber  && cp target/snippets-standalone.jar ./app.jar && rm -r target
 

README.md

@@ -32,14 +32,6 @@ $ fd -e clj | entr -r clojure -M -m snippets.main
 
 ### Repl
 
-Connect to the repl of running app
-
-```shell
-$ rlwrap nc localhost 5555
-```
-
-Or start up fresh repl
-
 ```
 $ rlwrap clojure
 ; print stuff

bruno/CodeSnippets/bruno.json

@@ -1,6 +1,6 @@
 {
   "version": "1",
-  "name": "Snippets",
+  "name": "CodeSnippets",
   "type": "collection",
   "ignore": [
     "node_modules",

dev.sh

@@ -1,3 +0,0 @@
-#!/bin/sh
-
-fd -e clj | entr -r clojure -M -m snippets.main

src/snippets/infra/api.clj

@@ -2,6 +2,7 @@
   (:require
    [ring.adapter.jetty :as jetty]
    [clojure.pprint :as pprint]
+   [clojure.string :as str]
    [taoensso.telemere :as t]
    [snippets.use-cases.view]
    [snippets.use-cases.delete]

src/snippets/infra/config.clj

@@ -14,7 +14,5 @@
 (defn get-config []
   (->
    (static-config)
-   (assoc-in-not-nil [:datomic :storage-dir] (env :datomic-path))
-   (assoc-in-not-nil [:datomic :system] (env :datomic-env))
    (assoc-in-not-nil [:jetty :host] (env :host))
    (assoc-in-not-nil [:jetty :port] (safe-parse-int (env :port)))))

src/snippets/infra/db2.clj

@@ -3,18 +3,14 @@
    [clojure.set :as set]
    [datomic.client.api :as d]
    [malli.core :as m]
-   [snippets.infra.config :as config]
    [taoensso.telemere :as t]))
 
 ;; Initialize the Datomic Local client
 ;; :system "dev" groups your databases in the "dev" system
 ;; In production, you'd set :storage-dir to a persistent path
 ;; TODO: add save file location for prod
-
+(def client (d/client {:server-type :datomic-local
-(def datomic-config (:datomic (config/get-config)))
+                       :system "dev"}))
-
-(def client (d/client (merge {:server-type :datomic-local
-                              :system "dev"} datomic-config)))
 
 (def db-name "snippets")
 
@@ -106,7 +102,7 @@
   [entity]
   (m/validate create-schema entity))
 
-(defn create-snippets
+(defn- put-snippets
   "Create new snippets in the database."
   [snippets]
   (t/log! {:level :info, :data {:slugs (map :slug snippets)}} "Saving new snippets to db")
@@ -116,6 +112,9 @@
       (d/transact conn {:tx-data entities})
       (throw (ex-info "Invalid snippet entity" {:entities entities})))))
 
+(def create-snippets
+  (wrap-snippet-return put-snippets))
+
 ;; read
 (defn- get-snippet-by-slug-from-db
   "Get a single snippet by its slug."

src/snippets/main.clj

@@ -1,20 +1,9 @@
 (ns snippets.main
   (:require
    [snippets.infra.api :as api]
-   [clojure.core.server]
+   [snippets.infra.db2 :refer [start-up-check]])
-   [snippets.infra.db2 :refer [start-up-check]]
-   [taoensso.telemere :as t])
   (:gen-class))
 
-(defn start-repl-server []
-  (let [settings {:port 5555 :host "0.0.0.0"}]
-    (clojure.core.server/start-server
-     (merge
-      {:name "repl"
-       :accept 'clojure.core.server/repl} settings))
-    (t/log! {:level :info, :data {:settings settings}} "Starting repl server")))
-
 (defn -main []
   (start-up-check)
-  (start-repl-server)
   (api/run-server))

src/snippets/use_cases/view.clj

@@ -15,8 +15,6 @@
     (let [limit (:limit options)
           skip (:skip options)]
       (->> (db/list-snippets)
-           (sort-by :pub-date)
-           (reverse)
            (drop skip)
            (take limit)
            (map serialize-snippet)))))