Fixbug

.gitignore

@@ -1 +1,2 @@
 target/
+.lein-failures

config.yaml

@@ -1,7 +1,7 @@
 domain: "http://localhost"
 debug: true
 port: 7404
-from: "api2smtp <no-reply@www.tadam-framework.dev>"
+smtp-from: "api2smtp <no-reply@www.tadam-framework.dev>"
 smtp-host: localhost
 smtp-user:
 smtp-pass:

project.clj

@@ -6,7 +6,7 @@
   :dependencies [;; Clojure
                  [org.clojure/clojure "1.10.1"]
                  ;; Tadam core
-                 [tadam-core "0.3.2"]
+                 [tadam-core "0.4.0"]
                  ;; HTTP Server
                  [ring "1.8.0"]
                  ;; Ring middleware that prevents CSRF attacks

src/api2smtp/urls.clj

@@ -6,7 +6,7 @@
 
 (defroutes public
   ;; Urls public endpoints
-  (POST "/api/v1/email/" [] view-public/send))
+  (POST "/api/v1/email/" [] view-public/send-email))
 
 
 (defroutes resources-routes

src/api2smtp/views/public.clj

@@ -3,17 +3,20 @@
   (:require
    [tadam.templates :refer [render-template render-JSON]]
    [tadam.responses :refer [response]]
-   [tadam.email :refer [send]]))
+   [tadam.utils :refer [get-JSON]]
+   [tadam.email :refer [send]]
+   [api2smtp.config :refer [config]]))
 
-(defn send
+(defn send-email
   ;; View Send email
   [req]
-  (let [params {:name    (-> req :params :name)
-                :subject (-> req :params :subject)
-                :email   (-> req :params :email)
-                :message (-> req :params :message)}]
+  (let [json   (get-JSON req)
+        params {:name    (-> json :name)
+                :subject (-> json :subject)
+                :email   (-> json :email)
+                :message (-> json :message)}]
     ;; Send email
-    (send "to@email.com" "Contact" (render-template "emails/contact.html" params) (render-template "emails/contact.txt" params))
+    (send config "to@email.com" "Contact" (render-template "emails/contact.html" params) (render-template "emails/contact.txt" params))
 
     ;; Response OK
     (render-JSON req {:status "ok"})))