 
 ;; home
 
+(def tight-gap "0.2rem")
+(def std-gap "0.5rem")
+(def title-gap "0.5rem")
+(def title-width "7em")
+(def tiny-field-width "5rem")
+(def tight-field-width "11rem")
+(def field-width "14rem")
+
 (defn app-title []
   (let [name (re-frame/subscribe [:name])
         server (re-frame/subscribe [:server])]

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

          [labelled "Comment"
           (:purchase/comment validation-errors)
           [re-com/input-text
            :width field-width
            :model (or (:purchase/comment @current-receipt) "")
            :on-change #(re-frame/dispatch [:edit-current-receipt :purchase/comment %])
            :attr {:type "text"}]]
