From: Carsten Dominik <carsten.dominik@gmail.com>
To: Eric Schulte <schulte.eric@gmail.com>
Cc: Org Mode <emacs-orgmode@gnu.org>
Subject: Re: suppress \label{} in LaTeX export
Date: Fri, 2 Oct 2009 08:23:10 +0200 [thread overview]
Message-ID: <040F61DB-BCE6-4844-9383-FFF715DC4E78@gmail.com> (raw)
In-Reply-To: <m2vdiy91ea.fsf@gmail.com>
Hi Eric,
if you make the function first search for \documentclass{beamer}, then
you
could add it to `org-export-latex-final-hook'.
- Carsten
On Oct 2, 2009, at 12:48 AM, Eric Schulte wrote:
> Hi Nick,
>
> Thanks for the patch, sadly I rely on labels in my other latex
> exports.
> For now I'm just using the following little elisp function.
>
> --8<---------------cut here---------------start------------->8---
> (defun schulte/clean-beamer ()
> "remove the \label{sec} headers from latex Beamer documents
> that have been exported by org."
> (interactive)
> (save-excursion
> (goto-char (point-min))
> (while (re-search-forward "^\\\\label{" nil t)
> (move-beginning-of-line nil)
> (delete-region (point) (save-excursion (forward-line 1)
> (point))))))
> --8<---------------cut here---------------end--------------->8---
>
> Thanks -- Eric
>
> Nick Dokos <nicholas.dokos@hp.com> writes:
>
>> Eric Schulte <schulte.eric@gmail.com> wrote:
>>
>>
>>> Is it possible to suppress the \label{sec-1} lines following each
>>> headline after a LaTeX export? I've found no mention of this in the
>>> manual, and the presence of headline labels is breaking my Beamer
>>> TOC.
>>>
>>
>> I don't think so: they seem to be inextricably bound with headings.
>> The
>> code in org-latex.el says:
>>
>> (let* (...
>> (label (org-get-text-property-any 0 'target heading))
>> ...)
>>
>>
>> and then
>> ...
>> (when label
>> (insert (mapconcat (lambda (l) (format "\\label{%s}" l))
>> label-list "\n") "\n"))
>> ...
>>
>> I recall having problems with labels (among other things) in
>> combination
>> with beamer before (I "solved" the problem by running the tex file
>> through a script to just get rid of them), but I don't remember
>> what the
>> problem was. Maybe it's time to go back and look at the thing again.
>>
>> Nick
>>
>> PS. Here is a quick-n-dirty patch to disable them - ymmv, uayor and
>> several
>> other cya disclaimers :-)
>>
>> diff --git a/lisp/org-latex.el b/lisp/org-latex.el
>> index 248d653..f5099f7 100644
>> --- a/lisp/org-latex.el
>> +++ b/lisp/org-latex.el
>> @@ -852,6 +852,8 @@ and its content."
>> (let ((num (plist-get org-export-latex-options-plist :section-
>> numbers)))
>> (mapc (lambda(x) (org-export-latex-subcontent x num))
>> subcontent)))
>>
>> +(defvar org-export-latex-labels-enabled nil)
>> +
>> (defun org-export-latex-subcontent (subcontent num)
>> "Export each cell of SUBCONTENT to LaTeX.
>> If NUM, export sections as numerical sections."
>> @@ -862,7 +864,7 @@ If NUM, export sections as numerical sections."
>> (occur (number-to-string (cdr (assoc 'occur subcontent))))
>> (content (cdr (assoc 'content subcontent)))
>> (subcontent (cadr (assoc 'subcontent subcontent)))
>> - (label (org-get-text-property-any 0 'target heading))
>> + (label (and org-export-latex-labels-enabled (org-get-text-
>> property-any 0 'target heading)))
>> (label-list (cons label (cdr (assoc label
>> org-export-target-aliases)))))
>> (cond
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
prev parent reply other threads:[~2009-10-02 7:15 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-10-01 20:12 suppress \label{} in LaTeX export Eric Schulte
2009-10-01 20:32 ` Nick Dokos
2009-10-01 22:48 ` Eric Schulte
2009-10-02 6:23 ` Carsten Dominik [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=040F61DB-BCE6-4844-9383-FFF715DC4E78@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=schulte.eric@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.