Using Timbre and a Clojure Macro to centralise logging and error handling

macroraise.clj

 (ns macroraise                                                                                                                                                                                                             
   (:require                                                                                                                                                                                                          
     [taoensso.timbre :as log]))                                                                                                                                                                                      
                                                                                                                                                                                                                      
 (defmacro raise [& fragments]                                                                                                                                                                                        
   (let [msgs (butlast fragments)                                                                                                                                                                                     
         data (last fragments)]                                                                                                                                                                                       
     (list `(log/error ~@fragments)                                                                                                                                                                                   
           `(log/log! :error :p ~fragments ~{:?line (:line (meta &form))})                                                                                                                                            
           `(throw (ex-info (str ~@(map (fn [m#] (if (string? m#) m# (list 'pr-str m#))) msgs)) ~data)))))                                                                                                            
                              
(defn -main []                                                                                                                                                                                                       
   (log/info "macroraise running!")                                                                                                                                                                                   
   (raise "open" "fridge" "door"                                                                                                                                                                                      
          {:causes             #{:fridge-door-open :dangerously-high-temperature}                                                                                                                                     
           :current-temperature {:value 25 :unit :celsius}}))

1. copy script into src/ folder
2. put {:deps {com.taoensso/timbre {:mvn/version "4.10.0"}}} into deps.edn in project-root
3. run with clj -m macroraise