(ns co.fwoar.logging-utils)

(defmulti logging-multi first)
(defmethod logging-multi 'and [forms]
  (let [assertions (rest forms)
        assertions' (map (fn [assn]
                           `(or ~assn
                                (do (print ~(str assn) " ")
                                    (pp/pprint ~assn))))
                         assertions)]
    `(and ~@assertions')))

(defmacro logging [form]
  (logging-multi form))