From 080dd8850955c0c3599bd817bc984bdba34a2999 Mon Sep 17 00:00:00 2001 From: "alonso.torres" Date: Fri, 9 Apr 2021 14:05:32 +0200 Subject: [PATCH] :bug: Fixes problem when exporting svg's --- exporter/src/app/http/export_svg.cljs | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/exporter/src/app/http/export_svg.cljs b/exporter/src/app/http/export_svg.cljs index 56dd6db203..db9795bb2b 100644 --- a/exporter/src/app/http/export_svg.cljs +++ b/exporter/src/app/http/export_svg.cljs @@ -65,7 +65,7 @@ (defn ^boolean empty-path-element? [item] (and (= (get item "name") "path") - (let [d (get item ["attributes" "d"])] + (let [d (get-in item ["attributes" "d"])] (or (str/blank? d) (nil? d) (str/empty? d))))) @@ -93,16 +93,7 @@ item)) (process-element [item xform] - (let [item (d/update-when item "elements" #(into [] xform %))] - (if (shape-element? item) - (update item "elements" - (fn [elements] - ;; flatten content of a shape element - (into [] (mapcat (fn [item] - (if (group-element? item) - (get item "elements") - [item]))) elements))) - item)))] + (d/update-when item "elements" #(into [] xform %)))] (let [xform (comp (remove empty-defs-element?) (remove empty-path-element?)