🎉 Add user feedback module.

backend/src/app/config.clj

@@ -40,6 +40,9 @@
    :storage-s3-region :eu-central-1
    :storage-s3-bucket "penpot-devenv-assets-pre"
 
+   :feedback-destination "info@example.com"
+   :feedback-enabled false
+
    :assets-path "/internal/assets/"
 
    :rlimits-password 10
@@ -93,7 +96,11 @@
 (s/def ::media-directory ::us/string)
 (s/def ::asserts-enabled ::us/boolean)
 
+(s/def ::feedback-enabled ::us/boolean)
+(s/def ::feedback-destination ::us/string)
+
 (s/def ::error-report-webhook ::us/string)
+
 (s/def ::smtp-enabled ::us/boolean)
 (s/def ::smtp-default-reply-to ::us/string)
 (s/def ::smtp-default-from ::us/string)
@@ -156,6 +163,8 @@
                    ::database-username
                    ::default-blob-version
                    ::error-report-webhook
+                   ::feedback-enabled
+                   ::feedback-destination
                    ::github-client-id
                    ::github-client-secret
                    ::gitlab-base-uri

backend/src/app/emails.clj

@@ -43,6 +43,16 @@
 
 ;; --- Emails
 
+(s/def ::subject ::us/string)
+(s/def ::content ::us/string)
+
+(s/def ::feedback
+  (s/keys :req-un [::subject ::content]))
+
+(def feedback
+  "A profile feedback email."
+  (emails/template-factory ::feedback default-context))
+
 (s/def ::name ::us/string)
 (s/def ::register
   (s/keys :req-un [::name]))

backend/src/app/rpc.clj

@@ -126,6 +126,7 @@
                      'app.rpc.mutations.projects
                      'app.rpc.mutations.viewer
                      'app.rpc.mutations.teams
+                     'app.rpc.mutations.feedback
                      'app.rpc.mutations.verify-token)
          (map (partial process-method cfg))
          (into {}))))

backend/src/app/rpc/mutations/feedback.clj

@@ -0,0 +1,41 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; This Source Code Form is "Incompatible With Secondary Licenses", as
+;; defined by the Mozilla Public License, v. 2.0.
+;;
+;; Copyright (c) 2021 UXBOX Labs SL
+
+(ns app.rpc.mutations.feedback
+  (:require
+   [app.common.exceptions :as ex]
+   [app.common.spec :as us]
+   [app.config :as cfg]
+   [app.db :as db]
+   [app.emails :as emails]
+   [app.rpc.queries.profile :as profile]
+   [app.util.services :as sv]
+   [clojure.spec.alpha :as s]))
+
+(s/def ::subject ::us/string)
+(s/def ::content ::us/string)
+
+(s/def ::send-profile-feedback
+  (s/keys :req-un [::profile-id ::subject ::content]))
+
+(sv/defmethod ::send-profile-feedback
+  [{:keys [pool] :as cfg} {:keys [profile-id subject content] :as params}]
+  (when-not (:feedback-enabled cfg/config)
+    (ex/raise :type :validation
+              :code :feedback-disabled
+              :hint "feedback module is disabled"))
+
+  (db/with-atomic [conn pool]
+    (let [profile (profile/retrieve-profile-data conn profile-id)]
+      (emails/send! conn emails/feedback
+                    {:to (:feedback-destination cfg/config)
+                     :profile profile
+                     :subject subject
+                     :content content})
+      nil)))

backend/src/app/util/emails.clj

@@ -9,6 +9,7 @@
 
 (ns app.util.emails
   (:require
+   [app.common.data :as d]
    [app.common.exceptions :as ex]
    [app.common.spec :as us]
    [app.util.template :as tmpl]
@@ -196,15 +197,17 @@
         text (render-email-template-part :txt id context)
         html (render-email-template-part :html id context)]
     (when (or (not subj)
-              (not text)
-              (not html))
+              (and (not text)
+                   (not html)))
       (ex/raise :type :internal
                 :code :missing-email-templates))
     {:subject subj
-     :body [{:type "text/plain"
-             :content text}
-            {:type "text/html"
-             :content html}]}))
+     :body (d/concat
+            [{:type "text/plain"
+              :content text}]
+            (when html
+              [{:type "text/html"
+                :content html}]))}))
 
 (s/def ::priority #{:high :low})
 (s/def ::to (s/or :sigle ::us/email