   [:header {:role "banner"}
    [:h1 (el/link-to "/" "Chili Dog Night")]
    [:nav
-    (el/unordered-list [;(el/link-to "/gatherings" "Gatherings")
-                        (el/link-to "/about" "About")
-                        (el/link-to "/colophon" "Colophon")
-                        (el/link-to "/rss" "RSS")])]])
+    (el/unordered-list [(el/link-to "/about" "About")
+                        (el/link-to "/colophon" "Colophon")])]])
 
 (defn footer []
   [:footer {:role "contentinfo"}

    (footer)]))

(defn film-citation [film]
  [:cite
   (el/link-to (:uri film)
               (str/replace (:title film) #"\s" "&nbsp;"))])

(defn comma-separate [coll]
  (concat [" "] (reduce #(apply vector [% ", " %2]) coll)))

(defn comma-separate-str [coll]
  (if (= (count coll) 1)

       ", and "
       (last coll))))

(defn comma-separate [coll]
  (reduce into (concat
                (map #(vec [% ", "])
                     (drop-last 2 coll)) 
                (reduce #(vec [[ % ", and "] [%2]])
                        (take-last 2 coll)))))

(defn gathering-partial [data]
  [:section
   [:h2 (:date data)]
   (reduce into [:p]
           [(comma-separate (map person (sort (:attendees data))))
            " experienced "
            (comma-separate (map film-citation (:media data)))
            ". They ate "
            (comma-separate-str (:food data))
            "."])
   [:p "This is what they discussed during, and between films:"]
   (:notes data)])

