From 79ce6174fd79f07562bfb3480fde9312a9c3912f Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 1 Jul 2013 14:31:41 +0200 Subject: [PATCH] Revert "ox-html.el (org-html-plain-list): Handle alphabetical ordered list" This reverts commit 8012d88db72b69d6dd68d4a3d880918652031d4a. See http://mid.gmane.org/87wqpaqz3c.fsf%40gmail.com for the discussion about whether this feature should go in or not. --- lisp/ox-html.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 918d70e90..c0509ff0a 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2679,12 +2679,16 @@ the plist used as a communication channel." ;;;; Plain List -(defun org-html-begin-plain-list (type ordered-num) +;; FIXME Maybe arg1 is not needed because
  • already sets +;; the correct value for the item counter +(defun org-html-begin-plain-list (type &optional arg1) "Insert the beginning of the HTML list depending on TYPE. -If ORDERED-NUM is nil, the list order is alphabetical." +When ARG1 is a string, use it as the start parameter for ordered +lists." (case type - (ordered (format "
      " - (if ordered-num "" " type=\"a\""))) + (ordered + (format "
        " + (if arg1 (format " start=\"%d\"" arg1) ""))) (unordered "
          ") (descriptive "
          "))) @@ -2699,14 +2703,10 @@ If ORDERED-NUM is nil, the list order is alphabetical." "Transcode a PLAIN-LIST element from Org to HTML. CONTENTS is the contents of the list. INFO is a plist holding contextual information." - (let* ((ordered-num - (org-element-map plain-list 'item - (lambda (i) - (null (string-to-number (org-element-property :bullet i)))) - info 'first-match)) + (let* (arg1 ;; (assoc :counter (org-element-map plain-list 'item (type (org-element-property :type plain-list))) (format "%s\n%s%s" - (org-html-begin-plain-list type ordered-num) + (org-html-begin-plain-list type) contents (org-html-end-plain-list type)))) ;;;; Plain Text