     "Account: "
     (dom/input #js {:value register-account, :onKeyDown (send! :register)})
     (dom/table nil
-      (dom/thead nil
-        (apply dom/tr nil
-          (for [heading ["Date" "Description" "Amount" "Note"]]
-            (dom/th nil heading))))
+      (render-table-headings ["Date" "Description" "Amount" "Note"])
       (apply dom/tbody nil
         (for [{:keys [date description amount note]} register-parts]
           (dom/tr nil

(defn render-import [state]
  (dom/textarea #js {:onKeyDown (send! :import) :rows 25 :cols 100}))
  
(defn render-summary [summary-rows]
  (dom/table nil
    (dom/thead nil
      (dom/tr nil
        (dom/th nil "Account")
        (dom/th nil "Amount")))
    (apply dom/tbody nil
      (for [{:keys [account amount]} summary-rows]
        (dom/tr nil

(defn render-detail [state]
  (dom/div nil
    (dom/table nil
      (render-table-headings ["Date" "Description" "Account" "Amount"])
      (apply dom/tbody nil
        (let [parts (:entry-parts state)
              parts-count (count parts)]
