pair programming

src/cljs/emptyhead/thought/define.cljs

@@ -0,0 +1,32 @@
+(ns emptyhead.thought.define
+  "Utilities for defining new thoughts."
+  (:require [emptyhead.thought.crud :as thought]
+            [emptyhead.thought.eval :as eval]
+            [emptyhead.idea.crud :as idea]
+            [emptyhead.util.magic :as magic]))
+
+(defn register-implementation!
+  [operator impl]
+  (idea/have-idea! :prefix (str "impl_thought#" (magic/symbolize-ns operator))
+                   :properties [(magic/thought-impl-prop operator)]
+                   :data {:implementation impl}))
+
+(defn register-constructor!
+  [operator & {:keys [constr-fn defaults]
+               :or {constr-fn identity
+                    defaults {}}}]
+  (let [constr-op (conj operator :construct)]
+    (register-implementation!
+     constr-op
+     (fn [thought & [parent]]
+       [parent
+       (thought/register-thought!
+        operator
+        (merge defaults {:operator operator}
+               (constr-fn (merge parent thought))))]))))
+
+(defn define!
+  [operator impl & {:keys [constr-fn defaults]
+                    :as constr-args}]
+  (register-implementation! operator impl)
+  (register-constructor! operator constr-args))