               editor? (:user/isEditor @user)
               admin? (:user/isAdmin @user)]
           [re-com/v-box
-           :gap "1rem"
+           :gap title-gap
            :children [(panel-title "History")
-                      [history-table @history]
+                      [re-com/scroller
+                       :scroll :auto
+                       :child [history-table @history]]
                       (when admin?
                         [history-csv @csv])
                       [re-com/h-box

  (let [current-receipt (re-frame/subscribe [:current-receipt])
        schema (re-frame/subscribe [subs-key])]
    [(if multiple? re-com/selection-list re-com/single-dropdown)
     :width "15rem"
     :model ((if multiple? (partial into #{}) identity)
             (field-key @current-receipt))
     :choices (sort-by :label (mapv (fn [{id schema-id-key

    (fn []
      (let [validation-errors (first (validate-receipt @current-receipt))]
        [re-com/v-box
         :gap tight-gap
         :children
         [[labelled "Paid by"
           (:purchase/paymentMethod validation-errors)
