do-if macro in Clojure

do-if.clj

;; A small macro that enables if-else syntax without explicit do-blocks.
;; Example usage:
(comment
  (do-if (= slang :british)
    (println "oh bloody hell mate")
    :posh-face

    :else
    (println "f*** dude")
    :angry-face))

(defmacro do-if [c & forms]
  (let [else-idx (.indexOf forms :else)
        [i-forms e-forms] (if (> else-idx -1)
                            [(take else-idx forms) (rest (drop else-idx forms))]
                            [forms nil])]
    `(if ~c
       (do ~@i-forms)
       (do ~@e-forms))))