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

  page-break-before: always;
}
.verse {
  margin-top: 0.125em;
  margin-bottom: 0.125em;
  line-height: 1.2em;
  text-indent: 0;
}

        [:title (str (chapter-name ch) " - The King James Bible")]
        [:link {:rel "stylesheet" :type "text/css" :href "styles.css"}]]
      [:body
        [:div.content
          [:div.menu
            [:div.menu2
              [:a {:href (str ".#" (book-elem-id book-id))} (chapter-name ch)]
              "&nbsp; "
              (chapter-url prev-ch "<<")
              "&nbsp; "
              (chapter-url next-ch ">>")]]
          [:h1.chap
            (chapter-name ch)]
          (map-indexed #(verse %1 ch %2) verses)
          [:div.about [:a {:href "https://github.com/pstephens/EverlastingBible/blob/master/README.md"} "About EverlastingBible.com"]]
          [:script {:type "text/javascript" :src "hiliter.js"}]]]]))

(defn next-chapter [all-chapters i]
  (get all-chapters (inc i)))
