     (rel-url book-id chap-num chap-cnt)))
 
 (defn toc-book [b]
-  [:p {:class "tocp"}
-    [:span {:class "chapter"} (book-name (:id b))]
+  [:p.tocp {:id (book-name (:id b))}
+    [:span.chapter (book-name (:id b))]
     " "
     (->> (:chapters b)
       (map (fn [ch]

      (number-markup i ch)
      (tokens-to-markup tokens)]))

(defn chapter
  [{book-id :book-id
    chap-num :num
    chap-cnt :chap-cnt
    verses :verses
    :as ch}]
  (html
    [:html
      [:head
        [:title (str (chapter-name ch) " - The King James Bible")]
        [:link {:rel "stylesheet" :type "text/css" :href "styles.css"}]]
      [:body
        [:h2 {:class "chap"}
          (chapter-name ch)]
        (map-indexed #(verse %1 ch %2) verses)]]))

(defn write! [dir filename content]
  (let [filepath (.join node-path dir filename)

        [:title "The King James Bible"]
        [:link {:rel "stylesheet" :type "text/css" :href "styles.css"}]]
      [:body
        [:div.content
          [:h1 "The King James Bible"]

          [:h2 "The Old Testament"]
          (->> m
            (take 39)
            (map toc-book))

          [:h2 "The New Testament"]
          (->> m
            (drop 39)
            (map toc-book))]]]))

(defn chapters [m]
  (->> m
