pair programming

src/cljs/emptyhead/util/magic.cljs

@@ -1,14 +1,18 @@
 (ns emptyhead.util.magic
-  "Magic values for EmptyHead.")
+  "Magic values for EmptyHead."
+  (:require [clojure.string :as str]))
 
-(def principle-ns [:emptyhead :principle])
+(def thought-ns [:emptyhead :thought])
 
-(def principle-impl-ns (conj principle-ns :implementation))
+(def thought-impl-ns (conj thought-ns :implementation))
 
-(defn principle-impl-prop [operator]
-  (conj principle-impl-ns operator))
+(defn thought-impl-prop [operator]
+  (conj thought-impl-ns operator))
 
-(def extension-ns (conj principle-ns :extends))
+(def extension-ns (conj thought-ns :extends))
 
 (defn extension-prop [stage]
   (conj extension-ns stage))
+
+(defn symbolize-ns [ns]
+  (str/join "." (map name ns)))