[PATCH] lisp/ox-latex.el: put labels inside example blocks

[hugo@heagren.com]

[-- Attachment #1: Type: text/plain, Size: 1082 bytes --]

I exported an essay written in org mode to a LaTeX file (and then a pdf)
today. It had `example' blocks in several consequent sections, each with
a name (i.e. `#+name'). I have `org-latex-prefer-user-labels' set to t,
and used these names to refer to the examples later on.

I noticed that some of these labels were resolved wrong (i.e. printed as
the wrong number) in the resulting pdf. Examining the tex source, this
was because the labels had been printed outside (just before) the
example blocks, thus:

,---
|  \label{ex:foo}
|  \begin{example}
|     My example here
|  \end{example}
`---


In tnhese cases, sometimes LaTeX interpreted the surrounding section as
the subject of the label, and printed the number of that section when
the label was referred to.

The attached patch forces example environments to be printed thus:

,---
|  \begin{example}\label{ex:foo}
|     My example here
|  \end{example}
`---

This solves the problem.

The logic/conditions for when to print a label, and how it is generated
remain unchanged.

Hope this is helpful for someone else too!

Hugo

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-lisp-ox-latex.el-put-labels-inside-example-blocks.patch --]
[-- Type: text/x-diff; name=0001-lisp-ox-latex.el-put-labels-inside-example-blocks.patch, Size: 1423 bytes --]

From ce920752084eaa776a885d403c18ddd981e92203 Mon Sep 17 00:00:00 2001
From: Hugo Heagren <hugo@heagren.com>
Date: Thu, 1 Dec 2022 23:24:10 +0000
Subject: [PATCH] lisp/ox-latex.el: put labels inside example blocks

* lisp/ox-latex.el (org-latex-example-block): Instead of
`org-latex--wrap-label', manually add label after
\begin{<environment>}.

This produces proper label resolution in LaTeX. Labels before the
environment begins can be interpreted as referring to the surrounding
section.
---
 lisp/ox-latex.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index 3d18ee7ff..10e4292d2 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -2127,13 +2127,13 @@ information."
     (let ((environment (or (org-export-read-attribute
 			    :attr_latex example-block :environment)
 			   "verbatim")))
-      (org-latex--wrap-label
-       example-block
-       (format "\\begin{%s}\n%s\\end{%s}"
-	       environment
-	       (org-export-format-code-default example-block info)
-	       environment)
-       info))))
+      (format "\\begin{%s}%s\n%s\\end{%s}"
+	      environment
+              (if (org-element-property :name example-block)
+                  (org-latex--label example-block info nil 'full)
+                "")
+	      (org-export-format-code-default example-block info)
+	      environment))))
 
 
 ;;;; Export Block
-- 
2.20.1