multiple environments.

src/clj/auto_ap/background/mail.clj

@@ -5,6 +5,7 @@
             [clojure-mail.message :as message]
             [clojure.string :as str]
             [clojure.java.io :as io]
+            [config.core :refer [env]]
             [auto-ap.parse :as parse]
             [auto-ap.db.invoices :as invoices]
             [auto-ap.db.companies :as companies]
@@ -20,13 +21,12 @@
             Flags$Flag AuthenticationFailedException]
            (com.sun.mail.imap IMAPStore)))
 
-(def queue-url "https://sqs.us-east-1.amazonaws.com/679918342773/integreat-mail-prod")
 
 (defn process-sqs []
   (try
     (println "Fetching messages from sqs...")
     (let [companies (companies/get-all)]
-      (doseq [message (:messages (sqs/receive-message {:queue-url queue-url 
+      (doseq [message (:messages (sqs/receive-message {:queue-url (:invoice-import-queue-url env)
                                                        :wait-time-seconds 5
                                                        :max-number-of-messages 10
                                                        #_#_:attribute-names ["All"]}))]
@@ -46,7 +46,7 @@
                   (io/copy (:body pdf-stream) (io/file filename))
                   (invoices/import (parse/parse-file filename filename) companies)
                   (io/delete-file filename))))))
-        (sqs/delete-message (assoc message :queue-url queue-url ))))
+        (sqs/delete-message (assoc message :queue-url (:invoice-import-queue-url env) ))))
     (catch Exception e
       (println e))))
 

src/clj/auto_ap/handler.clj

@@ -22,7 +22,7 @@
             [auto-ap.routes.auth :as auth]
             [amazonica.core :refer [defcredential]]))
 
-(defcredential "AKIAINHACMVQJ6NYD26A" "FwdL4TbIC/5H/4mwhQy4iSI/eSewyPgfS1EEt6tL" "us-east-1")
+(defcredential (:aws-access-key-id env) (:aws-secret-access-key env) (:aws-region env))
 
 (defroutes static-routes
   (GET "/"  [] (response/resource-response "index.html" {:root "public"})) 

src/clj/auto_ap/routes/reminders.clj

@@ -39,8 +39,7 @@
 (defn find-ready-reminders []
   (let [vendors (vendors/get-all)
         ready-reminders (reminders/get-ready)]
-    ready-reminders
-    ))
+    ready-reminders))
 
 (defn send-emails [reminders]
   (doseq [{:keys [vendor-name email id]} reminders]