 
 ;; 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])]

        vendor (reagent/atom "")]
    (fn []
      [re-com/v-box
       :gap "0.5rem"
       :children [[labelled "Category" nil
                   [re-com/single-dropdown
                    :width "12rem"
                    :choices categories
                    :id-fn :db/id
                    :label-fn :category/name

          [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"}]]
