Makes tasks card

src/clj/auto_ap/handler.clj

@@ -2,7 +2,7 @@
   (:require [amazonica.core :refer [defcredential]]
             [auto-ap.client-routes :as client-routes]
             [auto-ap.datomic :refer [conn pull-many]]
-            [auto-ap.graphql.utils :refer [limited-clients]]
+            [auto-ap.graphql.utils :refer [extract-client-ids limited-clients]]
             [auto-ap.logging :as alog]
             [auto-ap.routes.auth :as auth]
             [auto-ap.routes.exports :as exports]
@@ -304,12 +304,26 @@
           {:status 500
            :body (pr-str e)})))))
 
+(defn wrap-trim-clients [handler]
+  (fn [request]
+    (let [valid-clients (extract-client-ids (:clients request)
+                                            (:client request)
+                                            (:client-id (:parsed-query-params request))
+                                            (when (:client-code (:parsed-query-params request))
+                                              [:client/code (:client-code (:parsed-query-params request))]))
+          trimmed-clients (->> valid-clients (take 20) set)]
+      (handler (assoc request :valid-client-ids valid-clients
+                      :valid-trimmed-client-ids trimmed-clients
+                      :first-client-id (first valid-clients)
+                      :clients-trimmed? (not= (count trimmed-clients) (count valid-clients)))))))
+
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defonce app
   (->  route-handler
        (wrap-hx-current-url-params)
        (wrap-guess-route)
        (wrap-logging)
+       (wrap-trim-clients)
        (wrap-hydrate-clients)
        (wrap-store-client-in-session)
        (wrap-gunzip-jwt)