From 3c2ba92f6c45bbb5912ee65567224269b70f43b2 Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Tue, 20 Sep 2022 13:41:40 +0200 Subject: [PATCH] :tada: Add srepl helper for sending test email --- backend/src/app/srepl/main.clj | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/backend/src/app/srepl/main.clj b/backend/src/app/srepl/main.clj index 685adfdf4..00a3101f9 100644 --- a/backend/src/app/srepl/main.clj +++ b/backend/src/app/srepl/main.clj @@ -14,14 +14,11 @@ [app.srepl.helpers :as h] [clojure.pprint :refer [pprint]])) -;; Empty namespace as main entry point for Server REPL - (defn print-available-tasks [system] (let [tasks (:app.worker/registry system)] (p/pprint (keys tasks) :level 200))) - (defn run-task! ([system name] (run-task! system name {})) @@ -29,4 +26,11 @@ (let [tasks (:app.worker/registry system)] (if-let [task-fn (get tasks name)] (task-fn params) - (l/warn :hint "no task found" :name name))))) + (println (format "no task '%s' found" name)))))) + +(defn send-test-email! + [system destination] + (let [handler (:app.emails/sendmail system)] + (handler {:body "test email" + :subject "test email" + :to [destination]})))