✨ Experiment for data definition

frontend/src/app/plugins/events.cljs

@@ -49,7 +49,10 @@
         new-theme (get-in new-val [:profile :theme])]
     (if (identical? old-theme new-theme)
       ::not-changed
-      new-theme)))
+      (if (= new-theme "default")
+        "dark"
+        new-theme))))
+
 
 (defmethod handle-state-change :default
   [_ _ _]

frontend/src/app/plugins/shape.cljs

@@ -8,36 +8,59 @@
   "RPC for plugins runtime."
   (:require
    [app.common.data :as d]
-   [app.common.data.macros :as dm]
    [app.common.record :as crc]
    [app.plugins.utils :as utils]
+   [app.util.object :as obj]
    [cuerdas.core :as str]))
 
-(defn- fills
+(defn- make-fills
-  [shape]
+  [fills]
   ;; TODO: Transform explicitly?
   (apply array
-         (->> (:fills shape)
+         (->> fills
               (map #(clj->js % {:keyword-fn (fn [k] (str/camel (name k)))})))))
 
-(deftype ShapeProxy
+(deftype ShapeProxy [_data]
-    [id
+  Object
-     name
+  (clone [_] (.log js/console (clj->js _data)))
-     type
+  (delete [_] (.log js/console (clj->js _data)))
-     fills
+  (appendChild [_] (.log js/console (clj->js _data))))
-     _data])
 
 (crc/define-properties!
   ShapeProxy
   {:name js/Symbol.toStringTag
    :get (fn [] (str "ShapeProxy"))})
 
+
+(defn get-data
+  ([this attr]
+   (-> this
+       (obj/get "_data")
+       (get attr)))
+  ([this attr transform-fn]
+   (-> this
+       (get-data attr)
+       (transform-fn))))
+
 (defn data->shape-proxy
   [data]
-  (utils/hide-data!
+
-   (->ShapeProxy (dm/str (:id data))
+  (-> (->ShapeProxy data)
-                 (:name data)
+      (js/Object.defineProperties
-                 (d/name (:type data))
+       #js {"_data" #js {:enumerable false}
-                 (fills data)
+
-                 data)))
+            :id
+            #js {:get #(get-data (js* "this") :id str)
+                 :enumerable true}
+
+            :name
+            #js {:get #(get-data (js* "this") :name)
+                 ;;:set (fn [] (prn "SET NAME"))
+                 :enumerable true}
+
+            :fills
+            #js {:get #(get-data (js* "this") :fills make-fills)
+                 ;;:set (fn [] (prn "SET FILLS"))
+                 :enumerable true}}
+       )))