forked from mirrors/org-mode
Revert "ox-html.el (org-html-plain-list): Handle alphabetical ordered list"
This reverts commit 8012d88db7
.
See http://mid.gmane.org/87wqpaqz3c.fsf%40gmail.com for the discussion
about whether this feature should go in or not.
This commit is contained in:
parent
5e5d89ac10
commit
79ce6174fd
|
@ -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 <li value="20"> 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 "<ol class=\"org-ol\"%s>"
|
||||
(if ordered-num "" " type=\"a\"")))
|
||||
(ordered
|
||||
(format "<ol class=\"org-ol\"%s>"
|
||||
(if arg1 (format " start=\"%d\"" arg1) "")))
|
||||
(unordered "<ul class=\"org-ul\">")
|
||||
(descriptive "<dl class=\"org-dl\">")))
|
||||
|
||||
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue