mirror of
https://github.com/penpot/penpot.git
synced 2025-05-18 06:26:10 +02:00
58 lines
1.6 KiB
Clojure
58 lines
1.6 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) UXBOX Labs SL
|
|
|
|
(ns app.worker.thumbnails
|
|
(:require
|
|
["react-dom/server" :as rds]
|
|
[app.main.exports :as exports]
|
|
[app.main.fonts :as fonts]
|
|
[app.util.http :as http]
|
|
[app.worker.impl :as impl]
|
|
[beicon.core :as rx]
|
|
[rumext.alpha :as mf]))
|
|
|
|
(defn- handle-response
|
|
[response]
|
|
(cond
|
|
(http/success? response)
|
|
(rx/of (:body response))
|
|
|
|
(http/client-error? response)
|
|
(rx/throw (:body response))
|
|
|
|
:else
|
|
(rx/throw {:type :unexpected
|
|
:code (:error response)})))
|
|
|
|
(defn- request-page
|
|
[file-id page-id]
|
|
(let [uri "/api/rpc/query/page"]
|
|
(->> (http/send!
|
|
{:uri uri
|
|
:query {:file-id file-id :id page-id :strip-thumbnails true}
|
|
:method :get})
|
|
(rx/map http/conditional-decode-transit)
|
|
(rx/mapcat handle-response))))
|
|
|
|
(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" :thumbnails? true})
|
|
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}]
|
|
(->> (request-page file-id page-id)
|
|
(rx/map
|
|
(fn [data]
|
|
{:svg (render-page data #{file-id page-id})
|
|
:fonts @fonts/loaded}))))
|