Add reveal.js slide-number setting.

ox-reveal.el

@@ -45,6 +45,7 @@
     (: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-slide-number nil "reveal_slide_number" org-reveal-slide-number 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)
@@ -153,6 +154,11 @@ can be include."
   :group 'org-export-reveal
   :type 'boolean)
 
+(defcustom org-reveal-slide-number t
+  "Reveal showing slide numbers."
+  :group 'org-export-reveal
+  :type 'boolean)
+
 (defcustom org-reveal-keyboard t
   "Reveal use keyboard navigation."
   :group 'org-export-reveal
@@ -230,7 +236,7 @@ CONTENTS is nil. NFO is a plist holding contextual information."
             "</aside>"))
           ((string= block-type "HTML")
            (org-remove-indentation block-string)))))
-                 
+
 (defun org-reveal-headline (headline contents info)
   "Transcode a HEADLINE element from Org to Reveal.
 CONTENTS holds the contents of the headline. INFO is a plist
@@ -317,7 +323,7 @@ holding contextual information."
                   (org-export-last-sibling-p headline info))
              ;; Last head 1. Stop all slides.
              "</section>")))))))
-  
+
 (defgroup org-export-reveal nil
   "Options for exporting Orgmode files to reveal.js HTML pressentations."
   :tag "Org Export reveal"
@@ -389,6 +395,7 @@ custom variable `org-reveal-root'."
         			progress: %s,
         			history: %s,
         			center: %s,
+                                slideNumber: %s,
         			rollingLinks: %s,
         			keyboard: %s,
         			overview: %s,
@@ -406,6 +413,7 @@ custom variable `org-reveal-root'."
              (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")
@@ -424,7 +432,7 @@ custom variable `org-reveal-root'."
              (let ((max-scale (string-to-number (plist-get info :reveal-max-scale))))
                (if (> max-scale 0) (format "maxScale: %.2f," max-scale)
                  ""))
-             
+
              (plist-get info :reveal-trans)
              (plist-get info :reveal-speed))
      (format "
@@ -497,7 +505,7 @@ Add proper internal link to each headline."
 
 (defun org-reveal-toc (depth info)
   "Build a slide of table of contents."
-  (format 
+  (format
    "<section>\n%s</section>\n"
    (org-reveal-toc-headlines
     (org-export-collect-headlines info depth)
@@ -575,7 +583,7 @@ contextual information."
      (lambda (x) (apply 'org-reveal-parse-token x))
      tokens
      "")))
-    
+
 
 (defun org-reveal-keyword (keyword contents info)
   "Transcode a KEYWORD element from Org to HTML,
@@ -625,7 +633,7 @@ the plist used as a communication channel."
                (format-spec section spec))))
         (when (org-string-nw-p section-contents)
            (org-element-normalize-string section-contents))))))
-        
+
 
 (defun org-reveal-section (section contents info)
   "Transcode a SECTION element from Org to Reveal.