penpot/backend/src/uxbox/media.clj

;; 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/.
;;
;; This Source Code Form is "Incompatible With Secondary Licenses", as
;; defined by the Mozilla Public License, v. 2.0.
;;
;; Copyright (c) 2017-2020 Andrey Antukh <niwi@niwi.nz>

(ns uxbox.media
  "A media storage impl for uxbox."
  (:require
   [mount.core :refer [defstate]]
   [clojure.java.io :as io]
   [cuerdas.core :as str]
   [datoteka.core :as fs]
   [uxbox.util.storage :as ust]
   [uxbox.config :refer [config]]))

;; --- State

(defstate assets-storage
  :start (ust/create {:base-path (:assets-directory config)
                      :base-uri (:assets-uri config)}))

(defstate media-storage
  :start (ust/create {:base-path (:media-directory config)
                      :base-uri (:media-uri config)
                      :xf (comp ust/random-path
                                ust/slugify-filename)}))

;; --- Public Api

(defn resolve-asset
  [path]
  (str (ust/public-uri assets-storage path)))