add org keyword cleardoublepage

This commit is contained in:
2026-06-27 18:32:54 +02:00
parent 1aaef48596
commit 2976ede260

View File

@@ -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