forked from mirrors/org-mode
ox-html: Better criterion for first paragraphs in lists
* lisp/ox-html.el (org-html-paragraph): Do not wrap first paragraph in an item within <p> tags in the most simple cases. Thanks to Daniel Clemente for suggesting it. http://permalink.gmane.org/gmane.emacs.orgmode/89413
This commit is contained in:
parent
b3ef4b9ea8
commit
9a34a13c07
|
@ -2896,19 +2896,12 @@ the plist used as a communication channel."
|
||||||
(org-export-read-attribute :attr_html paragraph)))
|
(org-export-read-attribute :attr_html paragraph)))
|
||||||
(extra (or (cadr (assoc parent-type style)) "")))
|
(extra (or (cadr (assoc parent-type style)) "")))
|
||||||
(cond
|
(cond
|
||||||
((and (eq (org-element-type parent) 'item)
|
((and (not (org-export-get-previous-element paragraph info))
|
||||||
(= (org-element-property :begin paragraph)
|
(let ((followers (org-export-get-next-element paragraph info 2)))
|
||||||
(org-element-property :contents-begin parent))
|
(and (not (cdr followers))
|
||||||
(not (org-element-map (org-export-get-parent parent) 'item
|
(memq (org-element-type (car followers)) '(nil plain-list)))))
|
||||||
(lambda (item)
|
;; First paragraph in an item has no tag if it is alone or
|
||||||
(let ((contents (org-element-contents item)))
|
;; followed, at most, by a sub-list.
|
||||||
(and contents
|
|
||||||
(or (cdr contents)
|
|
||||||
(not (eq (org-element-type (car contents))
|
|
||||||
'paragraph))))))
|
|
||||||
info 'first-match 'item)))
|
|
||||||
;; Leading paragraph in a list item have no tags if every
|
|
||||||
;; element of the containing list is only a single paragraph.
|
|
||||||
contents)
|
contents)
|
||||||
((org-html-standalone-image-p paragraph info)
|
((org-html-standalone-image-p paragraph info)
|
||||||
;; Standalone image.
|
;; Standalone image.
|
||||||
|
|
Loading…
Reference in a new issue