mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Bastien Guerry 2012-12-18 18:38:20 +01:00
parent bbb451a7b6
commit 0db5f28dd4
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/lisp/org-e-html.el
View File

@ -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

4
lisp/org-html.el
View File

@ -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