mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:00:49 +00:00
Code Releases Activity

org-exp.el: Fix export of subtree with HTML_CONTAINER_CLASS

Browse source 
* org-exp.el (org-export-remember-html-container-classes):
Allow exporting a single subtree with HTML_CONTAINER_CLASS
property.

TINYCHANGE
This commit is contained in:
T.F. Torrey 2012-09-02 13:08:19 +02:00 committed by Bastien Guerry
parent f011496ceb
commit c7b3c56efd
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-exp.el
View file

@ -1476,8 +1476,10 @@ the current file."
"^[ \t]*:HTML_CONTAINER_CLASS:[ \t]+\\(.+\\)$" nil t) "^[ \t]*:HTML_CONTAINER_CLASS:[ \t]+\\(.+\\)$" nil t)
(setq class (match-string 1)) (setq class (match-string 1))
(save-excursion (save-excursion
(when (re-search-backward "^\\*" (point-min) t)
(org-back-to-heading t) (org-back-to-heading t)
(put-text-property (point-at-bol) (point-at-eol) 'html-container-class class))))) (put-text-property (point-at-bol) (point-at-eol)
'html-container-class class))))))
(defvar org-export-format-drawer-function nil (defvar org-export-format-drawer-function nil
"Function to be called to format the contents of a drawer. "Function to be called to format the contents of a drawer.