cond+

cond+.clj

(defmacro cond+ [& clauses]
  (when-some [[test expr & rest] clauses]
    (condp = test
      :do   `(do ~expr (cond+ ~@rest))
      :let  `(let ~expr (cond+ ~@rest))
      :some `(or ~expr (cond+ ~@rest))
            `(if ~test ~expr (cond+ ~@rest)))))

example.clj

(ns example 
  (:require [cond+ :refer [cond+]])
  
  (cond+
     (= a b) :true
     :do     (prn a)
     :some   b
     :let    [b a]
     (= a b) :finally)