able to read emails from sqs.

src/clj/auto_ap/background/mail.clj

@@ -0,0 +1,18 @@
+(ns auto-ap.background.mail
+  (:require [amazonica.aws.sqs :as sqs]
+            [amazonica.aws.s3 :as s3]
+            [clojure.data.json :as json])
+  )
+
+(defn process-sqs []
+  (doseq [message (:messages (sqs/receive-message {:queue-url "https://sqs.us-east-1.amazonaws.com/679918342773/integreat-mail-prod"
+                                                   :wait-time-seconds 5
+                                                   :max-number-of-messages 10
+                                                   #_#_:attribute-names ["All"]}))]
+    (let [message-body (json/read-str (:body message)
+                                      :key-fn keyword)]
+      (doseq [r (:Records message-body)] 
+        (println (-> (s3/get-object {:key (-> r :s3 :object :key)
+                                     :bucket-name (-> r :s3 :bucket :name)})
+                     :input-stream
+                     slurp))))))