namespace.clj

(ns clj-holmes.logic.namespace
  (:require [clojure.tools.namespace.parse :refer [name-from-ns-decl ns-decl?]]))

; private
(defn ^:private require-form? [form]
  (and (seq? form)
       (-> form first (= :require))))

(defn ^:private index-of-ns-declaration [forms ns-declaration]
  (-> forms (.indexOf ns-declaration) inc))

; public
(defn find-ns-declaration [forms]
  (when-let [ns-declaration (first (filter ns-decl? forms))]
    (with-meta ns-declaration {:index (index-of-ns-declaration forms ns-declaration)})))

(defn name-from-ns-declaration [form]
  (if (ns-decl? form)
    (or (name-from-ns-decl form) 'user)
    'user))

(defn requires [ns-declaration]
  (when (ns-decl? ns-declaration)
    (let [filter-map (comp (filter require-form?) (map rest))]
      (transduce filter-map concat ns-declaration))))

(defn find-ns-in-requires [requires namespace]
  (let [is-namespace? (comp #(= namespace %) first)]
    (first (filter is-namespace? requires))))