diff --git a/settings/org-settings.el b/settings/org-settings.el index 1e51a7e6..c2e91f8c 100644 --- a/settings/org-settings.el +++ b/settings/org-settings.el @@ -1186,7 +1186,16 @@ Uses function `my-org-headline-string-element'" (when (and elmnt (org-element-property :CLEARPAGE elmnt)) (concat "\\clearpage\n" headline))))) (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 ;; built-in org-contrib