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

    :Revelation     "Revelation"}]
    (get m book-id)))

(defn chapter-name
  ([book-id chap-num chap-count]
    (if (> chap-count 1)

    (let [[_ acc] (tokens-to-markup tokens '())]
      acc)))

(defn verse-num [i {chapter-has-subtitle :subtitle :as ch}]
  (cond
    (postscript? i ch) nil
    (subtitle? i ch) nil
    :else
    (let [delta (if chapter-has-subtitle 0 1)
          verse-num (+ i delta)]
      verse-num)))

(defn number-markup [i ch]
  (if-let [num (verse-num i ch)]
    (list [:a {:href (str (rel-url ch) "#" num)} num] " ")
    ""))

(defn verse-id [i ch]
  (if-let [num (verse-num i ch)]
    {:id num}
    {}))

(defn verse [i ch v]
  (let [tokens (tokenize v)]
    [:p
      (merge {:class (verse-class i ch)} (verse-id i ch))
      (number-markup i ch)
      (tokens-to-markup tokens)]))

