    (into [:tr]
          (for [f fields]
            [:th (-> f name string/upper-case)]))
+
    (into [:tr]
          (for [f fields]
            [:td (-> coordinates key f)]))])
-
-(into [:th]
-      (for [f [1 2 3]]
-        [:td f]))
 
 (defn gift
   []

   [:h4 "Euros (€)"]
   (coords-table [:name :iban] :eur)

   [:h4 "British Pounds (£)"]
   (coords-table [:name :iban :number :sort-code] :gbp)])

(ns just-married.home.gift
  (:require [just-married.home.language :refer [translate]]
            [clojure.string :as string]
            [goog.string :as gstring]))

(def LANGUAGE-TO-CURRENCY
  {:en "gbp"
