clojure cognitect aws sqs

aws_sqs.clj

;; deps:
;;                 [com.cognitect.aws/api "0.8.352"]
;;                 [com.cognitect.aws/endpoints "1.1.11.632"]
;;                 [com.cognitect.aws/sqs "742.2.519.0"]
;;                 [mount "0.1.16"]
;;                 [cheshire "5.8.1"]

(require '[cognitect.aws.client.api :as aws])
(require '[mount.core :as mount)
(defn -create-sqs-client []
  (let [api (aws/client {:api :sqs})]
    api))
           
(mount/defstate AWS-SQS
                :start (-create-sqs-client))
(defn send-msg! [sqs-url msg]
     (let [msg-str (json/generate-string msg)]
         (aws/invoke AWS-SQS {:op :SendMessage
                         :request {:QueueUrl sqs-url
                                   :MessageBody msg-str}})))