3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-03 22:21:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add more adaptations to make app run in a prefixed path.

Browse source
This commit is contained in:
Andrey Antukh 2021-04-19 18:35:36 +02:00 • committed by Andrés Moya
parent 2828ccda7f
commit 55ea84a056
14 changed files with 115 additions and 98 deletions
Download patch file Download diff file Expand all files Collapse all files

8
frontend/src/app/main/repo.cljs
View file

@ -7,13 +7,13 @@
(ns app.main.repo
(:require
[app.common.data :as d]
[app.common.uri :as u]
[app.config :as cfg]
[app.util.http :as http]
[app.util.time :as dt]
[app.util.transit :as t]
[beicon.core :as rx]
[cuerdas.core :as str]
[lambdaisland.uri :as u]))
[cuerdas.core :as str]))
(defn- handle-response
[{:keys [status body] :as response}]
@ -43,7 +43,7 @@
:status status
:data body})))
(def ^:private base-uri (u/uri cfg/public-uri))
(def ^:private base-uri cfg/public-uri)
(defn- send-query!
"A simple helper for send and receive transit data on the penpot
@ -125,7 +125,7 @@
(defmethod mutation ::multipart-upload
[id params]
(->> (http/send! {:method :post
:uri (u/join base-uri "/api/rpc/mutation/" (name id))
:uri (u/join base-uri "api/rpc/mutation/" (name id))
:body (http/form-data params)})
(rx/map http/conditional-decode-transit)
(rx/mapcat handle-response)))