2012/12/20 Myles English <mylesenglish@gmail.com>

mohamed writes:

> Myles,
> Thank you for this answer.
> I tried it with
> -------------------------------
> (add-to-list 'org-export-preprocess-hook
> 'my-export-delete-headlines-tagged-noheading)
> -------------------------------

Sorry, I should have said: add it to org-export-before-processing-hook,
so you use it like this:

#+begin_src emacs-lisp
(defun my-export-delete-headlines-tagged-noheading (backend)
(dolist (hl (nreverse (org-element-map (org-element-parse-buffer 'headline)
'headline
'identity)))
(when (member "noheading" (org-element-property :tags hl))
(goto-char (org-element-property :begin hl))
(delete-region (point) (progn (forward-line) (point))))))

(add-to-list 'org-export-before-processing-hook
'my-export-delete-headlines-tagged-noheading)
#+end_src

Myles

>
>
> But I got some errors when exporting
>
> -----------------------------------------------------------------
> Exporting to LaTeX... run-hooks: Wrong number of
> arguments: (lambda (backend) (dolist (hl (nreverse (org-element-map
> (org-element-parse-buffer (quote headline)) (quote headline) (quote identity))))
> (when (member "noheading" (org-element-property :tags hl)) (goto-char
> (org-element-property :begin hl)) (delete-region (point) (progn (forward-line)
> (point)))))), 0 (my-export-delete-headlines-tagged-noheading)
> -----------------------------------------------------------------
>
>
> I guess I have to use it in another way. My knowledge of lisp programming is
> very limited.
>
> Regards,
> Mohamed