        (ordered
         (concat
          "<li"
-         (if-format " value=\"%s\"" counter)
+         (if-format " value=\"%s\"" term-counter-id)
          (if-format " class=\"fragment %s\"" frag)
          ">"
          (if headline (concat headline "<br/>"))))

  
(defgroup org-export-reveal nil
  "Options for exporting Orgmode files to reveal.js HTML pressentations."
  :tag "Org Export reveal")

(defun org-reveal--append-path (dir-name path-name)
  "Append `path-name' to the end of `dir-name' to form a legal path name."

If option \"REVEAL_HLEVEL\" is set, retrieve integer value from it,
else get value from custom variable `org-reveal-hlevel'."
  (let ((hlevel-str (plist-get info :reveal-hlevel)))
    (if hlevel-str (string-to-number hlevel-str)
      org-reveal-hlevel)))

(defcustom org-reveal-title-slide-template
