    :else spec))
 
 (defn ns-spec
+  "Gets all public vars from ns, then uses them to build a specification map."
   [ns]
   (reduce assoc-to-spec
           {:namespace ns :actions #{} :data #{}}

(ns clj-formal-specifications-app.spec)

(defn get-ns-name
  [s]
  (re-find #"(?<=\(ns\s)[a-zA-Z0-9\.-]+(?=[\s\(\)])" s))


                   :contents (str @(var-get (val spec-ref-entry)))}))

(defn assoc-to-spec
  "Associates a map-entry to spec, if map-entry is action or specification
  related ref."
 [spec map-entry]
  (cond
   (action-entry? map-entry)
