truthy.clj

(defmacro silence-errors [& body]
  "Evaluate body and return the result, or nil if an exception is thrown"
  `(try ~@body
        (catch Exception e#)))

(defmacro first-truthy [& body]
  "Try some expressions; return the result of the first one that neither throws an exception or returns false or nil"
  (cons 'or (map (fn [item]
                   (list 'silence-errors item))
                 `~body)))