   text-align: center;
 }
 
-.book h3 {
-  margin: 0;
-  min-height: 32px;
-}
-.book .chapters {
+.book, .main {
   display: none;
-  margin-bottom: 8px;
-}
-.book .chapters a {
+}
+.books a, .chapters a {
   display: inline-block;
   display: inline-flex;
   justify-content: center;
   align-items: center;
   text-align: center;
-  min-width: 4ex;
-  min-height: 4ex;
-  padding: 0;
+  min-height: 3.7ex;
+  padding: 2px;
   margin: 2px;
-  background-color: rgba(0,0,0,0.03);
-}
-.book.active .chapters {
+  background-color: rgba(0,0,0,0.05);
+}
+.books a {
+  min-width: 17.5ex;
+}
+.chapters a {
+  min-width: 3.7ex;
+}
+.toc .active {
   display: block;
 }
-
 .verses .active {
   background-color: #FFFF99;
 }

          [:div.content.toc
            [:h1 "The King James Bible"]

            [:div#votd.votd]
            [:script "(function(w,d,t,u,v,i,n,l){w['VotdObject']=v;w[v]=w[v]||{};w[v].i=i;n=d.createElement(t),l=d.getElementsByTagName(t)[0];n.async=1;n.src=u;l.parentNode.insertBefore(n,l)})(window,document,'script','votd/votd.js','votd','votd');"]

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

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

            [:div.about [:a {:href "https://github.com/pstephens/kingjames.bible/blob/master/README.md"} "About " baseurl ]]]
          [:script {:type "text/javascript" :src "hiliter.js"}]]])))

        chapcount (count chapters)
        id (:id b)
        bookid (book-elem-id id)]
     [:a {:href (if (> chapcount 1) (str "#" bookid) bookid)} (book-name-nbsp id)]))

(defn toc-book-details [b]
  (let [chapters (:chapters b)
        chapcount (count chapters)
        id (:id b)
        bookid (book-elem-id id)]
    [:div.book {:id (str "_" bookid)}
      [:h2.chapter (book-name-nbsp id)]
      [:div.back [:a {:href "."} "Back to Book Lists"]]
      [:div.chapters
        (->> chapters
             (map (fn [ch]
                  (list [:a {:href (rel-url (:id b) (:num ch) chapcount)} (:num ch)]))))]]))

(defn toc [m baseurl canonical]
  (str "<!DOCTYPE html>"
