db cached

project.clj

@@ -84,8 +84,7 @@
 
   :profiles {:production {:env {:dev false :production true}
                           :prep-tasks [["cljsbuild" "once" "app" "sw"] ["garden" "once"]]}
-
-             :dev {:env {:dev "true", :production "false", :database-url "postgres://localhost/nossal"}
+             :dev {:env {:dev "true", :production "false", :database-url "postgres://nossal:nossal@localhost:5432/nossal"}
                   ;  :prep-tasks [["garden" "once"]]
                    :cljsbuild {:builds
                                {:app {:source-paths ["src/clojurescript/nossal/app"]

src/clojure/nossal/api/shortner.clj

@@ -20,10 +20,8 @@
   (-> (res/response (json/write-str (encode (:id (first (data/insert-url db {:url url}))))))
       (res/content-type "text/plain")))
 
-(def get-url (memoize (fn [id] (data/url-by-id db {:id (decode encoded-id)}))))
-
 (defn redirect [encoded-id]
-  (let [url (:url (get-url encoded-id))]
+  (let [url (:url (data/get-data data/url-by-id {:id (decode encoded-id)}))]
     (log/info url)
     (do
       (client/post "https://www.google-analytics.com/collect"

src/clojure/nossal/db.clj

@@ -1,6 +1,7 @@
 (ns nossal.db
   (:require [hugsql.core :as hugsql]
             [clojure.string :as s]
+            [clojure.core.cache :as cache]
             [environ.core :refer [env]]
             [heroku-database-url-to-jdbc.core :as h]))
 
@@ -13,3 +14,13 @@
 (hugsql/def-db-fns "sql/schema.sql")
 
 (hugsql/def-sqlvec-fns "sql/schema.sql")
+
+
+(defonce cache-store (atom (cache/lru-cache-factory {})))
+
+(defn get-data [func key]
+  (cache/lookup (swap! cache-store
+                       #(if (cache/has? % key)
+                          (cache/hit % key)
+                          (cache/miss % key (func db key))))
+                key))