Limit the number of seq items sent to the client to 1k

djblue · Oct 20, 2020 · 7083beb · 7083beb
1 parent 7fb139b
commit 7083beb
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/dev/user.clj b/dev/user.clj
@@ -44,6 +44,7 @@
 
  (def portal (p/open))
  (p/tap)
+ (tap> (with-meta (range) {:hello :world}))
  (tap> [{:hello :world :old-key 123} {:hello :youtube :new-key 123}])
  (doseq [i (range 100)] (tap> [::index i]))
  (p/clear)

diff --git a/src/portal/runtime/transit.clj b/src/portal/runtime/transit.clj
@@ -12,6 +12,9 @@
 
 (defn- find-var [s] (get @rt/instance-cache [:var s]))
 
+(defn- limit-seq [value]
+ (if (seq? value) (take 1000 value) value))
+
 (defn edn->json-stream [value out]
  (let [writer
  (transit/writer
@@ -22,7 +25,7 @@
  (transit/write-handler "portal.transit/var" var->symbol)
  java.net.URL
  (transit/write-handler "r" str)}
- :transform transit/write-meta
+ :transform (comp limit-seq transit/write-meta)
  :default-handler
  (transit/write-handler
  "portal.transit/object"

diff --git a/src/portal/runtime/transit.cljs b/src/portal/runtime/transit.cljs
@@ -46,11 +46,14 @@
 
  :else x))
 
+(defn- limit-seq [value]
+ (if (seq? value) (take 1000 value) value))
+
 (defn edn->json [edn]
  (t/write
  (t/writer
  :json
- {:transform write-meta
+ {:transform (comp limit-seq write-meta)
  :handlers
  {js/URL
  (t/write-handler (constantly "r") str)