if->.clj

if->.clj

;; idea from https://stackoverflow.com/questions/11676120/why-dont-when-let-and-if-let-support-multiple-bindings-by-default
(defmacro if->
  "Use this to avoid `if else nested hell`.
  (if-> [true (prn 1) (prn 2) true (prn 3) (prn 4) false (prn 5) (prn 6)])"
  [bindings]
  (if (seq bindings)
    `(if ~(first bindings)
       (let [r# ~(second bindings)]
         (or (if-> ~(vec (drop 3 bindings)))
             r#))
       ~(first (next (next bindings))))
    nil))