")
-;; ;; Footnotes section.
-;; (org-html-footnote-section info)
-;; ;; Bibliography.
-;; (org-html-bibliography))))
-
-;; (defun org-html-toc (depth info)
-;; "Build a table of contents.
-;; DEPTH is an integer specifying the depth of the table. INFO is a
-;; plist used as a communication channel. Return the table of
-;; contents as a string, or nil if it is empty."
-;; (let ((toc-entries
-;; (mapcar (lambda (headline)
-;; (cons (org-html--format-toc-headline headline info)
-;; (org-export-get-relative-level headline info)))
-;; (org-export-collect-headlines info depth))))
-;; (when toc-entries (org-html--toc-text toc-entries))))
-
-;; (defun org-html--toc-text (toc-entries)
-;; "Return innards of a table of contents, as a string.
-;; TOC-ENTRIES is an alist where key is an entry title, as a string,
-;; and value is its relative level, as an integer."
-;; (let* ((prev-level (1- (cdar toc-entries)))
-;; (start-level prev-level))
-;; (concat
-;; (mapconcat
-;; (lambda (entry)
-;; (let ((headline (car entry))
-;; (level (cdr entry)))
-;; (concat
-;; (let* ((cnt (- level prev-level))
-;; (times (if (> cnt 0) (1- cnt) (- cnt)))
-;; rtn)
-;; (setq prev-level level)
-;; (concat
-;; (org-html--make-string
-;; times (cond ((> cnt 0) "\n