19 lines
427 B
Clojure
19 lines
427 B
Clojure
(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)))
|