add org keyword cleardoublepage
This commit is contained in:
@@ -1186,7 +1186,16 @@ Uses function `my-org-headline-string-element'"
|
|||||||
(when (and elmnt (org-element-property :CLEARPAGE elmnt))
|
(when (and elmnt (org-element-property :CLEARPAGE elmnt))
|
||||||
(concat "\\clearpage\n" headline)))))
|
(concat "\\clearpage\n" headline)))))
|
||||||
(add-to-list 'org-export-filter-headline-functions
|
(add-to-list 'org-export-filter-headline-functions
|
||||||
'my-org-latex-ensure-clearpage))
|
'my-org-latex-ensure-clearpage)
|
||||||
|
(defun my-org-latex-ensure-cleardoublepage (headline backend info)
|
||||||
|
"Insert a cleardoublepage before the heading if property clearpage is non-nil.
|
||||||
|
Uses function `my-org-headline-string-element'"
|
||||||
|
(when (org-export-derived-backend-p backend 'latex)
|
||||||
|
(let ((elmnt (my-org-headline-string-element headline backend info)))
|
||||||
|
(when (and elmnt (org-element-property :CLEARDOUBLEPAGE elmnt))
|
||||||
|
(concat "\\cleardoublepage\n" headline)))))
|
||||||
|
(add-to-list 'org-export-filter-headline-functions
|
||||||
|
'my-org-latex-ensure-cleardoublepage))
|
||||||
|
|
||||||
(use-package ox-extra
|
(use-package ox-extra
|
||||||
;; built-in org-contrib
|
;; built-in org-contrib
|
||||||
|
|||||||
Reference in New Issue
Block a user