forked from mirrors/org-mode
org-html.el and org-e-html.el: Add CSS classes to list tags.
* org-html.el (org-html-export-list-line): Add CSS classes to these list HTML tags: <ul> <dl> and <ol>. * contrib/lisp/org-e-html.el (org-e-html-begin-plain-list): Add CSS classes to these list HTML tags: <ul> <dl> and <ol>.
This commit is contained in:
parent
bbb451a7b6
commit
0db5f28dd4
|
@ -2292,11 +2292,11 @@ the plist used as a communication channel."
|
||||||
(defun org-e-html-begin-plain-list (type &optional arg1)
|
(defun org-e-html-begin-plain-list (type &optional arg1)
|
||||||
(case type
|
(case type
|
||||||
(ordered
|
(ordered
|
||||||
(format "<ol%s>" (if arg1 ; FIXME
|
(format "<ol class=\"org-ol\"%s>" (if arg1 ; FIXME
|
||||||
(format " start=\"%d\"" arg1)
|
(format " start=\"%d\"" arg1)
|
||||||
"")))
|
"")))
|
||||||
(unordered "<ul>")
|
(unordered "<ul class=\"org-ul\">")
|
||||||
(descriptive "<dl>")))
|
(descriptive "<dl class=\"org-dl\">")))
|
||||||
|
|
||||||
(defun org-e-html-end-plain-list (type)
|
(defun org-e-html-end-plain-list (type)
|
||||||
(case type
|
(case type
|
||||||
|
|
|
@ -2724,12 +2724,12 @@ the alist of previous items."
|
||||||
count-tmp)))))
|
count-tmp)))))
|
||||||
(when firstp
|
(when firstp
|
||||||
(org-close-par-maybe)
|
(org-close-par-maybe)
|
||||||
(insert (format "<%sl>\n" type)))
|
(insert (format "<%sl class=\"org-%sl\">\n" type type)))
|
||||||
(insert (cond
|
(insert (cond
|
||||||
((equal type "d")
|
((equal type "d")
|
||||||
(format "<dt>%s</dt><dd>" desc-tag))
|
(format "<dt>%s</dt><dd>" desc-tag))
|
||||||
((and (equal type "o") counter)
|
((and (equal type "o") counter)
|
||||||
(format "<li value=\"%s\">" counter))
|
(format "<li class=\"org-li-counter\" value=\"%s\">" counter))
|
||||||
(t "<li>")))
|
(t "<li>")))
|
||||||
;; If line had a checkbox, some additional modification is required.
|
;; If line had a checkbox, some additional modification is required.
|
||||||
(when checkbox
|
(when checkbox
|
||||||
|
|
Loading…
Reference in a new issue