🎉 Add thumbnail caching.

Avoid unnecesary rendering unchanged pages.

backend/src/app/rpc/queries/files.clj

@@ -166,7 +166,6 @@
     (let [file (retrieve-file conn file-id)]
       (get-in file [:data :pages-index id]))))
 
-
 ;; --- Query: Shared Library Files
 
 (def ^:private sql:shared-files

frontend/src/app/worker/thumbnails.cljs

@@ -45,13 +45,22 @@
                      (fn [error]
                        (reject error))))))))
 
+(defonce cache (atom {}))
+
+(defn render-page
+  [data ckey]
+  (let [prev (get @cache ckey)]
+    (if (= (:data prev) data)
+      (:result prev)
+      (let [elem   (mf/element exports/page-svg #js {:data data :width "290" :height "150"})
+            result (rds/renderToStaticMarkup elem)]
+        (swap! cache assoc ckey {:data data :result result})
+        result))))
+
 (defmethod impl/handler :thumbnails/generate
   [{:keys [file-id page-id] :as message}]
   (p/then
    (request-page file-id page-id)
    (fn [data]
-     (let [elem (mf/element exports/page-svg #js {:data data
+     {:svg (render-page data #{file-id page-id})
-                                                  :width "290"
+      :fonts @fonts/loaded})))
-                                                  :height "150"})]
-       {:svg (rds/renderToStaticMarkup elem)
-        :fonts @fonts/loaded}))))