              (if (plist-get info :reveal-progress) "true" "false")
              (if (plist-get info :reveal-history) "true" "false")
              (if (plist-get info :reveal-center) "true" "false")
+             (if (plist-get info :reveal-slide-number) "true" "false")
              (if (plist-get info :reveal-rolling-links) "true" "false")
              (if (plist-get info :reveal-keyboard) "true" "false")
              (if (plist-get info :reveal-overview) "true" "false")

    (:reveal-history nil  "reveal_history" org-reveal-history t)
    (:reveal-center nil "reveal_center" org-reveal-center t)
    (:reveal-rolling-links nil "reveal_rolling_links" org-reveal-rolling-links t)
    (:reveal-keyboard nil "reveal_keyboard" org-reveal-keyboard t)
    (:reveal-overview nil "reveal_overview" org-reveal-overview t)
    (:reveal-width nil "reveal_width" org-reveal-width t)


(defun org-reveal-toc (depth info)
  "Build a slide of table of contents."
  (format
   "<section>\n%s</section>\n"
   (org-reveal-toc-headlines
    (org-export-collect-headlines info depth)
