registry/add! now just takes a map with sketch-id

dgtized · Jul 10, 2024 · cdbf8a0 · cdbf8a0
1 parent bc59553
commit cdbf8a0
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 22 deletions.
diff --git a/src/shimmers/registry.cljc b/src/shimmers/registry.cljc
@@ -4,5 +4,5 @@
 
 (def sketches (atom {}))
 
-(defn add! [name sketch]
-  (swap! sketches assoc name sketch))
+(defn add! [sketch]
+  (swap! sketches assoc (:sketch-id sketch) sketch))
diff --git a/src/shimmers/sketch.cljc b/src/shimmers/sketch.cljc
@@ -87,16 +87,16 @@
 
        (let [page-identifier# ~(keyword sketch-page-name)
              m# (meta (var ~sketch-page-name))]
-         (registry/add! page-identifier#
-                        {:sketch-id page-identifier#
-                         :type :quil
-                         :fn ~runner
-                         :taps ~(:taps options)
-                         :created-at ~(:created-at opts)
-                         :tags ~(:tags opts #{})
-                         :ns (:ns m#)
-                         :file (:file m#)
-                         :line (:line m#)})))))
+         (registry/add!
+          {:sketch-id page-identifier#
+           :type :quil
+           :fn ~runner
+           :taps ~(:taps options)
+           :created-at ~(:created-at opts)
+           :tags ~(:tags opts #{})
+           :ns (:ns m#)
+           :file (:file m#)
+           :line (:line m#)})))))
 
 
 ;; `component` is a macro specifically to allow repl changes to
@@ -122,16 +122,16 @@
 
          (let [page-identifier# ~(keyword sketch-page-name)
                m# (meta (var ~sketch-page-name))]
-           (registry/add! page-identifier#
-                          {:sketch-id page-identifier#
-                           :type ~(:type options)
-                           :fn ~runner
-                           :taps ~(:taps options)
-                           :created-at ~created-at
-                           :tags ~(:tags options #{})
-                           :ns (:ns m#)
-                           :file (:file m#)
-                           :line (:line m#)})))))
+           (registry/add!
+            {:sketch-id page-identifier#
+             :type ~(:type options)
+             :fn ~runner
+             :taps ~(:taps options)
+             :created-at ~created-at
+             :tags ~(:tags options #{})
+             :ns (:ns m#)
+             :file (:file m#)
+             :line (:line m#)})))))
 
 (defn with-explanation
   [component & children]