fix: preview card

close #4542

src/main/frontend/extensions/srs.cljs

@@ -498,7 +498,7 @@
   rum/reactive
   db-mixins/query
   [blocks option card-index]
-  (let [option (update option :random-mode? (fn [v] (if (boolean? v) v @v)))
+  (let [option (update option :random-mode? (fn [v] (if (util/atom? v) @v v)))
         blocks (if (fn? blocks) (blocks) blocks)
         blocks (if (:random-mode? option)
                  (shuffle blocks)

src/main/frontend/util.cljc

@@ -1456,3 +1456,7 @@
 (defn collapsed?
   [block]
   (:block/collapsed? block))
+
+#?(:cljs
+   (defn atom? [v]
+     (instance? Atom v)))