(ns emptyhead.util.magic
  "Magic values for EmptyHead."
  (:require [clojure.string :as str]))

(def thought-ns [:emptyhead :thought])

(def thought-impl-ns (conj thought-ns :implementation))

(defn thought-impl-prop [operator]
  (conj thought-impl-ns operator))

(def extension-ns (conj thought-ns :extends))

(defn extension-prop [stage]
  (conj extension-ns stage))

(defn symbolize-ns [ns]
  (str/join "." (map name ns)))
