Clojure and-> and or-> macros

and_thread.clj

(defmacro and->
  "(and-> 1 int? odd?)
   ;;=> (and (int? 1) (odd? 1))"

  [expr & tests]

  `(and ~@(for [t# tests]
            `(~t# ~expr))))

(defmacro and-> [x & forms] ;; 1, (int? odd?)
  `(and ~(loop [x x
                forms forms]
           (if forms
             (let [form (first forms)
                   threaded (if (seq? form)
                              (with-meta `(~(first form) ~x ~@(next form)) (meta form))
                              (list form x))]
               (recur threaded (next forms)))
             x))))

(defmacro and->>
  ""

  [expr & tests]

  `(and ~@(for [t# tests]
            `(~t# ~expr))))

(defmacro or->
  "(or-> 1 string? odd?)
   ;;=> (or (string? 1) (odd? 1))"

  [expr & tests]

  `(or ~@(for [t# tests]
           `(~t# ~expr))))

(or-> 1 seq? odd?)

(defmacro or->> [expr & tests])