Merge remote-tracking branch 'origin/main' into develop

backend/resources/log4j2.xml

@@ -23,6 +23,7 @@
     <Logger name="com.zaxxer.hikari" level="error"/>
     <Logger name="io.lettuce" level="error" />
     <Logger name="org.eclipse.jetty" level="error" />
+    <Logger name="org.postgresql" level="error" />
 
     <Logger name="app.cli" level="debug" additivity="false">
       <AppenderRef ref="console"/>
@@ -32,7 +33,7 @@
       <AppenderRef ref="main" level="debug" />
     </Logger>
 
-    <Logger name="app" level="debug" additivity="false">
+    <Logger name="app" level="all" additivity="false">
       <AppenderRef ref="main" level="trace" />
       <AppenderRef ref="zmq" level="debug" />
     </Logger>

backend/scripts/repl

@@ -2,7 +2,7 @@
 
 export PENPOT_ASSERTS_ENABLED=true
 
-export OPTIONS="-A:jmx-remote:dev -J-Dclojure.tools.logging.factory=clojure.tools.logging.impl/log4j2-factory -J-Xms512m -J-Xmx512m"
+export OPTIONS="-A:jmx-remote:dev -J-Dclojure.tools.logging.factory=clojure.tools.logging.impl/log4j2-factory -J-Djava.util.logging.manager=org.apache.logging.log4j.jul.LogManager -J-Xms512m -J-Xmx512m"
 export OPTIONS_EVAL="nil"
 # export OPTIONS_EVAL="(set! *warn-on-reflection* true)"
 

backend/src/app/http/session.clj

@@ -147,7 +147,7 @@
           (mcnt :inc)
           (if (ex/exception? result)
             (log/error result "updater: unexpected error on update sessions")
-            (log/tracef "updater: updated %s sessions (reason: %s)." result (name reason)))
+            (log/debugf "updater: updated %s sessions (reason: %s)." result (name reason)))
           (recur))))))
 
 (defn- timeout-chan

backend/src/app/rpc/queries/profile.clj

@@ -13,10 +13,8 @@
    [app.common.spec :as us]
    [app.common.uuid :as uuid]
    [app.db :as db]
-   [app.db.sql :as sql]
    [app.util.services :as sv]
-   [clojure.spec.alpha :as s]
-   [cuerdas.core :as str]))
+   [clojure.spec.alpha :as s]))
 
 ;; --- Helpers & Specs
 
@@ -97,12 +95,16 @@
 
     profile))
 
+(def sql:retrieve-profile-by-email
+  "select p.* from profile as p
+    where p.email = lower(?)
+      and p.deleted_at is null")
+
 (defn retrieve-profile-data-by-email
   [conn email]
-  (let [sql  (sql/select :profile {:email (str/lower email)})
-        data (db/exec-one! conn sql)]
-    (when (and data (nil? (:deleted-at data)))
-      (decode-profile-row data))))
+  (let [sql  [sql:retrieve-profile-by-email email]]
+    (some-> (db/exec-one! conn sql)
+            (decode-profile-row))))
 
 ;; --- Attrs Helpers
 

frontend/src/app/main/ui/components/forms.cljs

@@ -23,7 +23,7 @@
 
 (mf/defc input
   [{:keys [label help-icon disabled form hint trim] :as props}]
-  (let [input-type   (get props :type)
+  (let [input-type   (get props :type "text")
         input-name   (get props :name)
         more-classes (get props :class)