Hello,

Please let me know if there is something I should do to help integrate
this patch.

Best,

Alan

On 2023-01-08 17:25, Alan Schmitt <alan.schmitt@polytechnique.org> writes:

> Hello,
>
> On 2023-01-05 09:26, Ihor Radchenko <yantar92@posteo.net> writes:
>
>> If you look inside `org-beamer--format-block', it uses
>> `org-beamer-environments-default' and `org-beamer-environments-extra' to
>> format the blocks. See docstring for the latter for details.
>>
>> The code responsible for LaTeX block generation is
>>
>>      (when (nth 2 env-format) ; when we non-column block
>>       (concat
>>        (org-fill-template ...) ; opening \begin lines
>>        contents ; block body
>>        ... ; block closing \end lines
>>        )
>>
>> org-fill-template is using the template from the
>> `org-beamer-environments-*' replacing %-chars as described in the
>> docstring.
>>
>> In order to handle CUSTOM_ID property, you can
>> (1) Introduce a new %-substitude to be handled in org-fill-template
>>     call. It will insert block ID. (for example, using
>>     `org-beamer--get-label')
>> (2) modify `org-beamer-environments-default' to insert label
>>     appropriately.
>>
>> Patches welcome!
>
> Thank you for the detailed instructions. Here is my attempt at this.
> I’ve tested it and it works.
>
>>From 1747786c7106d0d90d9e8752e361552afacb2d4d Mon Sep 17 00:00:00 2001
> From: Alan Schmitt <alan.schmitt@polytechnique.org>
> Date: Sun, 8 Jan 2023 17:20:31 +0100
> Subject: [PATCH] Add labels to latex export of beamer blocks
>
> A new option %l is available to be used in `org-beamer-environments-*'
> to insert the label of the current block, obtained using
> `org-babel--get-label'
> ---
>  lisp/ox-beamer.el | 9 +++++----
>  1 file changed, 5 insertions(+), 4 deletions(-)
>
> diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el
> index 689bf1559..3518a0f50 100644
> --- a/lisp/ox-beamer.el
> +++ b/lisp/ox-beamer.el
> @@ -178,10 +178,10 @@ through `org-beamer-environments-extra' variable.")
>      ("quotation"      "q" "\\begin{quotation}%a %% %h"    "\\end{quotation}")
>      ("quote"          "Q" "\\begin{quote}%a %% %h"        "\\end{quote}")
>      ("structureenv"   "s" "\\begin{structureenv}%a %% %h" "\\end{structureenv}")
> -    ("theorem"        "t" "\\begin{theorem}%a[%h]"        "\\end{theorem}")
> -    ("definition"     "d" "\\begin{definition}%a[%h]"     "\\end{definition}")
> -    ("example"        "e" "\\begin{example}%a[%h]"        "\\end{example}")
> -    ("exampleblock"   "E" "\\begin{exampleblock}%a{%h}"   "\\end{exampleblock}")
> +    ("theorem"        "t" "\\begin{theorem}%a[%h]%l"        "\\end{theorem}")
> +    ("definition"     "d" "\\begin{definition}%a[%h]%l"     "\\end{definition}")
> +    ("example"        "e" "\\begin{example}%a[%h]%l"        "\\end{example}")
> +    ("exampleblock"   "E" "\\begin{exampleblock}%a{%h}%l"   "\\end{exampleblock}")
>      ("proof"          "p" "\\begin{proof}%a[%h]"          "\\end{proof}")
>      ("beamercolorbox" "o" "\\begin{beamercolorbox}%o{%h}" "\\end{beamercolorbox}"))
>    "Environments triggered by properties in Beamer export.
> @@ -578,6 +578,7 @@ used as a communication channel."
>  		(cons "O" (or raw-options ""))
>  		(cons "h" title)
>  		(cons "r" raw-title)
> +                (cons "l" (format "\\label{%s}" (org-beamer--get-label headline info)))
>  		(cons "H" (if (equal raw-title "") ""
>  			    (format "{%s}" raw-title)))
>  		(cons "U" (if (equal raw-title "") ""
> -- 
> 2.39.0
>
>
> Best,
>
> Alan