Skip to content
Browse files

only set the `html-container-class' property on top-level headlines

  Thanks for Pierre de Buyl for suggesting this change.
  • Loading branch information...
1 parent 3dd0cbf commit 343fffe7d25a47bcfbcc841a8527914bdcc1494c @eschulte committed Jun 3, 2011
Showing with 3 additions and 2 deletions.
  1. +3 −2 org-export-as-s5.el
View
5 org-export-as-s5.el
@@ -34,8 +34,9 @@
(org-map-entries
(lambda () (save-excursion
(org-back-to-heading t)
- (put-text-property (point-at-bol) (point-at-eol)
- 'html-container-class class))))))))
+ (when (= (car (org-heading-components)) 1)
+ (put-text-property (point-at-bol) (point-at-eol)
+ 'html-container-class class)))))))))
(org-export-html-final-hook
(list
(lambda ()

0 comments on commit 343fffe

Please sign in to comment.
Something went wrong with that request. Please try again.