(defun headline-numbering-filter (data backend info)
"No numbering in headlines that have a property :numbers: no"
(let* ((beg (next-property-change 0 data))
(headline (if beg (get-text-property beg :parent data))))
(if (and (eq backend 'latex)
(string= (org-element-property :NUMBERS headline) "no"))
(with-temp-buffer
(insert data)
(beginning-of-buffer)
(re-search-forward "\(part\|chapter\|\(?:sub\)*section\|\(?:sub\)?paragraph\)")
(replace-match "\1*")
(buffer-string))
data)))
(setq org-export-filter-headline-functions '(headline-numbering-filter))
* Not-Numbered
:PROPERTIES:
:NUMBERS: no
:END:
(let* ((beg (next-property-change 0 data))
(section (if beg (get-text-property beg :parent data))))