Make rule 30 viewers more narrow so they don't affect the added viewers

Author: mk

notebooks/rule_30.clj

@@ -19,10 +19,13 @@
 ;; represent a value.
 
 (clerk/add-viewers!
- [{:pred number? :render-fn '#(v/html [:div.inline-block {:style {:width 16 :height 16}
-                                                          :class (if (pos? %) "bg-black" "bg-white border-solid border-2 border-black")}])}
-  {:pred list? :render-fn '#(v/html (into [:div.flex.flex-col] (v/inspect-children %2) %1))}
-  {:pred #(and (vector? %) (not (map-entry? %))) :render-fn '#(v/html (into [:div.flex.inline-flex] (v/inspect-children %2) %1))}])
+ [{:pred number?
+   :render-fn '#(v/html [:div.inline-block {:style {:width 16 :height 16}
+                                            :class (if (pos? %) "bg-black" "bg-white border-solid border-2 border-black")}])}
+  {:pred (every-pred list? (partial every? (some-fn number? vector?)))
+   :render-fn '#(v/html (into [:div.flex.flex-col] (v/inspect-children %2) %1))}
+  {:pred (every-pred vector? (complement map-entry?) (partial every? number?))
+   :render-fn '#(v/html (into [:div.flex.inline-flex] (v/inspect-children %2) %1))}])
 
 ;; Now let's test each one to make sure they look the way we want: