use pass through merged default-args to fix download-shortcut

src/shimmers/common/ui/svg.cljs

@@ -10,16 +10,17 @@
    (fn [] (svg-export/download id filename))])
 
 (defn page
-  [{:keys [sketch-id scene-id explanation]
-    :or {scene-id "scene"}
+  [{:keys [sketch-id explanation]
     :as sketch-args}
    scene]
   (fn []
-    [sketch/with-explanation
-     [:div.canvas-frame
-      [scene sketch-args]
-      [download-shortcut scene-id (name sketch-id)]]
-     [:p.center [view-sketch/generate sketch-id]]
-     (when explanation
-       [:div.readable-width
-        [explanation sketch-args]])]))
+    (let [default-args {:scene-id "scene"}
+          {:keys [scene-id] :as args} (merge default-args sketch-args)]
+      [sketch/with-explanation
+       [:div.canvas-frame
+        [scene args]
+        [download-shortcut scene-id (name sketch-id)]]
+       [:p.center [view-sketch/generate sketch-id]]
+       (when explanation
+         [:div.readable-width
+          [explanation sketch-args]])])))

src/shimmers/sketches/radial_mosaic.cljs

@@ -136,8 +136,7 @@
         cycled across all segments in the arc, subdviding evenly as it's an even
         divisor."]]]))
 
-;; FIXME: download-sketch is failing in console
-(defn sketch [{:keys [params scene-id]}]
+(defn sketch [{:keys [scene-id params]}]
   (csvg/svg-timed {:id scene-id
                    :width width
                    :height height}