(defn list-items
  [records]
  (reduce concat []  (map vector (map :Name records) (repeat [:br]) )))

(def listofitems `("Fred" [:br] "Joe" [:br]))

(deftest list-items-test
  (testing "item list html test"
    (is (= (list-items [{:Name "Fred"} {:Name "Joe"}]) listofitems))))