Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-20 13:42:59 -05:00
Code Issues Activity

💄 Replace db/query with db/get

Browse source
This commit is contained in:
Andrey Antukh 2025-01-08 11:50:30 +01:00 • committed by alonso.torres
parent 5c63a5c58e
commit 27c2db6cde
1 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
backend/src/app/rpc/commands/comments.clj
View file

@ -72,15 +72,21 @@
(map decode-user-row)
(d/index-by :id)))
(defn- resolve-profile-name
[conn profile-id]
(-> (db/get conn :profile {:id profile-id}
{::sql/columns [:fullname]})
(get :fullname)))
(defn send-comment-emails!
[conn {:keys [profile-id team-id] :as params} comment thread]
(let [team-users (get-team-users conn team-id)
source-user (->> (db/query conn :profile {:id profile-id} {:columns [:fullname]}) first :fullname)
(let [team-users (get-team-users conn team-id)
source-user (resolve-profile-name conn profile-id)
comment-reference (format-comment-ref thread params)
comment-content (format-comment comment)
comment-url (format-comment-url params)
comment-content (format-comment comment)
comment-url (format-comment-url params)
;; Users mentioned in this comment
comment-mentions
@ -341,11 +347,11 @@
(defn- get-unread-comment-threads
[conn profile-id team-id]
(let [profile
(->> (db/query conn :profile {:id profile-id})
(first)
(decode-user-row))]
(case (or (-> profile :props :notifications :dashboard-comments) :all)
(let [profile (-> (db/get conn :profile {:id profile-id})
(decode-user-row))
notify (or (-> profile :props :notifications :dashboard-comments) :all)]
(case notify
:all
(->> (db/exec! conn [sql:unread-all-comment-threads-by-team profile-id team-id])
(into [] xf-decode-row))