Looks good

iol_ion/src/iol_ion/query.clj

@@ -2,8 +2,7 @@
   (:require [clj-time.core :as time]
             [clj-time.coerce :as coerce]
             [clj-time.format :as f]
-            [datomic.api :as dc]
-            [auto-ap.time :as atime]))
+            [datomic.api :as dc]))
 
 ;; TODO WILL NOT WORK IN DATOMIC CLOUD
 (defn entid [db i]

src/clj/auto_ap/ssr/components/card.clj

@@ -14,5 +14,5 @@
   [:section (merge params {:class (hh/add-class " py-3 sm:py-5" (:class params))})
    [:div {:class (:max-w params "max-w-screen-2xl")}
     (into 
-      [:div {:class "relative overflow-hidden shadow-md dark:bg-gray-800 sm:rounded-lg border-2 border-gray-200 dark:border-gray-900 bg-white"}]
+      [:div {:class "relative overflow-scroll shadow-md dark:bg-gray-800 sm:rounded-lg border-2 border-gray-200 dark:border-gray-900 bg-white"}]
       children)]])

src/clj/auto_ap/ssr/ledger/balance_sheet.clj

@@ -150,9 +150,9 @@
 
 (defn table [{:keys [table widths investigate-url warning]}]
   (let [cell-count (cell-count table)]
-      (com/content-card {:class "inline-block overflow-hidden"}
-                    [:div { :class "overflow-y-auto h-[70vh] m-4 inline-block"}
-(when warning [:div.rounded.bg-red-50.text-red-800.p-4.m-2
+      (com/content-card {:class "inline-block overflow-scroll"}
+                        [:div {:class "overflow-scroll h-[70vh] m-4 inline-block"}
+                         (when warning [:div.rounded.bg-red-50.text-red-800.p-4.m-2
                                         warning])
                          (-> [:table {:class "text-sm text-left text-gray-500 dark:text-gray-400"}
                               [:thead {:class "text-xs text-gray-800 uppercase bg-gray-50 dark:bg-gray-700 dark:text-gray-400 font-bold"}
@@ -190,8 +190,7 @@
                                         (cell {:investigate-url investigate-url} c))]))
                                   (conj [:tr (for [i (range cell-count)]
       
-                                           ( cell {:investigate-url investigate-url} {:value " "}))])))
-                         )])))
+                                               (cell {:investigate-url investigate-url} {:value " "}))]))))])))
 
 (defn concat-tables [tables]
   (let [[first & rest] tables]