add slack client

Author: tamizhvendan

clojure/wheel/project.clj

@@ -11,7 +11,8 @@
                  [org.flywaydb/flyway-core "5.2.4"]
                  [com.taoensso/timbre "4.10.0"]
                  [cheshire "5.9.0"]
-                 [toucan "1.14.0"]]
+                 [toucan "1.14.0"]
+                 [clj-http "3.10.0"]]
   :main ^:skip-aot wheel.core
   :target-path "target/%s"
   :profiles {:uberjar {:aot :all}

clojure/wheel/src/wheel/slack/webhook.clj

@@ -0,0 +1,22 @@
+(ns wheel.slack.webhook
+  (:require [clj-http.client :as http]
+            [cheshire.core :as json]))
+
+(defn post-message! [webhook-url text attachments]
+  (let [body (json/generate-string {:text text
+                                    :attachments attachments})]
+    (http/post webhook-url {:content-type :json
+                            :body body})))
+
+
+(comment
+  (post-message! webhook-url "ranging failed"
+                 [{:color :danger
+                   :fields [{:title "Channel Name"
+                             :value :tata-cliq
+                             :short true}
+                            {:title "Channel Id"
+                             :value "UA"
+                             :short true}
+                            {:title "Event Id"
+                             :value "2f763cf7-d5d7-492c-a72d-4546bb547696"}]}]))