From bb69952840e2b4c1dc18a75f3b17d1d32282457a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Glorieux?=
 <frederic.glorieux@fictif.org>
Date: Wed, 16 Aug 2023 20:43:09 +0200
Subject: [PATCH] Different bugs

---
 tei_latex/tei_figure_latex.xsl  |   7 +-
 tei_latex/tei_flow_latex.xsl    | 132 ++++++++++++++++----------------
 tei_latex/tei_linking_latex.xsl |  17 ++--
 tei_latex/tei_meta_latex.xsl    |  10 ++-
 tei_latex/tei_rahtz_latex.xsl   |   4 +
 5 files changed, 91 insertions(+), 79 deletions(-)

diff --git a/tei_latex/tei_figure_latex.xsl b/tei_latex/tei_figure_latex.xsl
index 6d32ef1..a70f18d 100644
--- a/tei_latex/tei_figure_latex.xsl
+++ b/tei_latex/tei_figure_latex.xsl
@@ -19,6 +19,7 @@ https://github.com/TEIC/Stylesheets/tree/dev/latex
 A light version for XSLT1, with local improvements.
 2021, frederic.glorieux@fictif.org
   -->
+  <xsl:param name="tableMaxWidth">0.85</xsl:param>
   <xsl:template match="tei:cell">
     <xsl:variable name="rend" select="concat(' ', normalize-space(@rend), ' ')"/>
     <!-- \tabcellsep -->
@@ -130,6 +131,7 @@ A light version for XSLT1, with local improvements.
     <xsl:if test="@width">
       <xsl:variable name="unit" select="translate(@width, '  0123456789', '')"/>
       <xsl:choose>
+        <xsl:when test="@subtype='unit:EMU'"/>
         <xsl:when test="$unit = '%'">
           <xsl:text>width=</xsl:text>
           <xsl:value-of select="number(substring-before(@width,'%')) div 100"/>
@@ -161,6 +163,7 @@ A light version for XSLT1, with local improvements.
     <xsl:if test="@height">
       <xsl:variable name="unit" select="translate(@height, '  0123456789', '')"/>
       <xsl:choose>
+        <xsl:when test="@subtype='unit:EMU'"/>
         <xsl:when test="$unit = '%'">
           <xsl:text>height=</xsl:text>
           <xsl:value-of select="number(substring-before(@height,'%')) div 100"/>
@@ -323,7 +326,7 @@ A light version for XSLT1, with local improvements.
     </xsl:if>
     <xsl:choose>
       <xsl:when test="tei:head and not(contains(@rend, 'display'))">
-        <xsl:if test="not(ancestor::tei:table or $longtables='false')">
+        <xsl:if test="not(ancestor::tei:table)">
           <xsl:text>\endfirsthead </xsl:text>
           <xsl:text>\multicolumn{</xsl:text>
           <xsl:value-of select="count(tei:row[1]/tei:cell)"/>
@@ -345,7 +348,7 @@ A light version for XSLT1, with local improvements.
   </xsl:template>
   <xsl:template name="tableHline">
     <xsl:choose>
-      <xsl:when test="ancestor::tei:table or $longtables='false' or contains(@rend,'display')"> \hline </xsl:when>
+      <xsl:when test="ancestor::tei:table or contains(@rend,'display')"> \hline </xsl:when>
       <xsl:otherwise> \hline\endfoot\hline\endlastfoot </xsl:otherwise>
     </xsl:choose>
   </xsl:template>
diff --git a/tei_latex/tei_flow_latex.xsl b/tei_latex/tei_flow_latex.xsl
index b15a893..afd5b60 100644
--- a/tei_latex/tei_flow_latex.xsl
+++ b/tei_latex/tei_flow_latex.xsl
@@ -319,81 +319,77 @@ for example: abstract.
       </xsl:apply-templates>
     </xsl:param>
     <xsl:variable name="zerend" select="concat(' ', normalize-space($rend), ' ')"/>
+    <xsl:variable name="decls">
+      <xsl:choose>
+        <xsl:when test="contains($zerend, ' i ')">\itshape</xsl:when>
+        <xsl:when test="contains($zerend, ' it ')">\itshape</xsl:when>
+        <xsl:when test="contains($zerend, ' ital ')">\itshape</xsl:when>
+        <xsl:when test="contains($zerend, ' italics ')">\itshape</xsl:when>
+        <xsl:when test="contains($zerend, ' italique ')">\itshape</xsl:when>
+        <xsl:when test="self::tei:hi and not(@rend)">\itshape</xsl:when>
+      </xsl:choose>
+      <xsl:if test="contains($zerend, ' center ')">\centering</xsl:if>
+      <xsl:if test="contains($zerend, ' tt ')">\ttfamily</xsl:if>
+      <xsl:if test="contains($zerend, ' sc ')">\scshape</xsl:if>
+      <xsl:if test="contains($zerend, ' large ')">\large</xsl:if>
+      <xsl:if test="contains($zerend, ' larger ')">\larger</xsl:if>
+      <xsl:if test="contains($zerend, ' right ')">\raggedleft</xsl:if>
+      <xsl:if test="contains($zerend, ' small ')">\small</xsl:if>
+      <xsl:if test="contains($zerend, ' smaller ')">\smaller</xsl:if>
+      <xsl:if test="contains($zerend, ' color')">
+        <xsl:variable name="color" select="substring-before(substring-after($zerend, ' color'), ' ')"/>
+        <xsl:text>\color{</xsl:text>
+        <xsl:value-of select="translate($color, '(}', '')"/>
+        <xsl:text>}</xsl:text>
+      </xsl:if>
+    </xsl:variable>
+    <xsl:variable name="cmd">
+      <xsl:if test="contains($zerend, ' allcaps ')">\uppercase{</xsl:if>
+      <xsl:if test="contains($zerend, ' b ')">\textbf{</xsl:if>
+      <xsl:if test="contains($zerend, ' bold ')">\textbf{</xsl:if>
+      <xsl:if test="contains($zerend, ' gothic ')">\textgothic{</xsl:if>
+      <xsl:if test="contains($zerend, ' noindex ')">\textrm{</xsl:if>
+      <xsl:if test="contains($zerend, ' plain ')">\textrm{</xsl:if>
+      <xsl:if test="contains($zerend, ' strong ')">\textbf{</xsl:if>
+      <xsl:if test="contains($zerend, ' sub ')">\textsubscript{</xsl:if>
+      <xsl:if test="contains($zerend, ' subscript ')">\textsubscript{</xsl:if>
+      <xsl:if test="contains($zerend, ' sup ')">\textsuperscript{</xsl:if>
+      <xsl:if test="contains($zerend, ' superscript ')">\textsuperscript{</xsl:if>
+      <xsl:if test="contains($zerend, ' uc ')">\MakeUppercase{</xsl:if>
+      <xsl:if test="contains($zerend, ' underline ')">\uline{</xsl:if>
+      <xsl:if test="contains($zerend, ' uppercase ')">\MakeUppercase{</xsl:if>
+        <!-- 
+        <xsl:when test=". = 'strike'">\sout{</xsl:when>
+        <xsl:when test=". = 'overbar'">\textoverbar{</xsl:when>
+        <xsl:when test=". = 'doubleunderline'">\uuline{</xsl:when>
+        <xsl:when test=". = 'wavyunderline'">\uwave{</xsl:when>
+        <xsl:when test=". = 'quoted'">\textquoted{</xsl:when>
+        <xsl:when test=". = 'calligraphic'">\textcal{</xsl:when>
+
+        -->
+    </xsl:variable>
+    <xsl:value-of select="$cmd"/>
     <xsl:choose>
-      <xsl:when test="normalize-space($zerend) = ''">
+      <xsl:when test="$decls = ''">
         <xsl:copy-of select="$cont"/>
       </xsl:when>
+      <!-- declaration to enclose -->
       <xsl:otherwise>
-        <xsl:variable name="decls">
-          <xsl:if test="contains($zerend, ' center ')">\centering</xsl:if>
-          <xsl:if test="contains($zerend, ' i ')">\itshape</xsl:if>
-          <xsl:if test="contains($zerend, ' it ')">\itshape</xsl:if>
-          <xsl:if test="contains($zerend, ' ital ')">\itshape</xsl:if>
-          <xsl:if test="contains($zerend, ' italics ')">\itshape</xsl:if>
-          <xsl:if test="contains($zerend, ' italique ')">\itshape</xsl:if>
-          <xsl:if test="contains($zerend, ' tt ')">\ttfamily</xsl:if>
-          <xsl:if test="contains($zerend, ' sc ')">\scshape</xsl:if>
-          <xsl:if test="contains($zerend, ' large ')">\large</xsl:if>
-          <xsl:if test="contains($zerend, ' larger ')">\larger</xsl:if>
-          <xsl:if test="contains($zerend, ' right ')">\raggedleft</xsl:if>
-          <xsl:if test="contains($zerend, ' small ')">\small</xsl:if>
-          <xsl:if test="contains($zerend, ' smaller ')">\smaller</xsl:if>
-          <xsl:if test="contains($zerend, ' color')">
-            <xsl:variable name="color" select="substring-before(substring-after($zerend, ' color'), ' ')"/>
-            <xsl:text>\color{</xsl:text>
-            <xsl:value-of select="translate($color, '(}', '')"/>
-            <xsl:text>}</xsl:text>
-          </xsl:if>
-        </xsl:variable>
-        <xsl:variable name="cmd">
-          <xsl:if test="contains($zerend, ' allcaps ')">\uppercase{</xsl:if>
-          <xsl:if test="contains($zerend, ' b ')">\textbf{</xsl:if>
-          <xsl:if test="contains($zerend, ' bold ')">\textbf{</xsl:if>
-          <xsl:if test="contains($zerend, ' gothic ')">\textgothic{</xsl:if>
-          <xsl:if test="contains($zerend, ' noindex ')">\textrm{</xsl:if>
-          <xsl:if test="contains($zerend, ' plain ')">\textrm{</xsl:if>
-          <xsl:if test="contains($zerend, ' strong ')">\textbf{</xsl:if>
-          <xsl:if test="contains($zerend, ' sub ')">\textsubscript{</xsl:if>
-          <xsl:if test="contains($zerend, ' subscript ')">\textsubscript{</xsl:if>
-          <xsl:if test="contains($zerend, ' sup ')">\textsuperscript{</xsl:if>
-          <xsl:if test="contains($zerend, ' superscript ')">\textsuperscript{</xsl:if>
-          <xsl:if test="contains($zerend, ' uc ')">\MakeUppercase{</xsl:if>
-          <xsl:if test="contains($zerend, ' underline ')">\uline{</xsl:if>
-          <xsl:if test="contains($zerend, ' uppercase ')">\MakeUppercase{</xsl:if>
-            <!-- 
-            <xsl:when test=". = 'strike'">\sout{</xsl:when>
-            <xsl:when test=". = 'overbar'">\textoverbar{</xsl:when>
-            <xsl:when test=". = 'doubleunderline'">\uuline{</xsl:when>
-            <xsl:when test=". = 'wavyunderline'">\uwave{</xsl:when>
-            <xsl:when test=". = 'quoted'">\textquoted{</xsl:when>
-            <xsl:when test=". = 'calligraphic'">\textcal{</xsl:when>
-
-            -->
-        </xsl:variable>
-        <xsl:value-of select="$cmd"/>
-        <xsl:choose>
-          <xsl:when test="$decls = ''">
-            <xsl:copy-of select="$cont"/>
-          </xsl:when>
-          <!-- declaration to enclose -->
-          <xsl:otherwise>
-            <xsl:if test="$cmd = ''">
-              <xsl:text>{</xsl:text>
-            </xsl:if>
-            <xsl:value-of select="$decls"/>
-            <!-- matches($decls, '[a-z]$') ? -->
-            <xsl:text> </xsl:text>
-            <xsl:copy-of select="$cont"/>
-            <xsl:if test="$cmd = ''">
-              <xsl:text>}</xsl:text>
-            </xsl:if>
-          </xsl:otherwise>
-        </xsl:choose>
-        <xsl:if test="$cmd != ''">
-          <xsl:value-of select="substring('}}}}}}}}}}}}}}}}}}}}}}}}}', 1, string-length($cmd) - string-length(translate($cmd, '{', '')))"/>
+        <xsl:if test="$cmd = ''">
+          <xsl:text>{</xsl:text>
+        </xsl:if>
+        <xsl:value-of select="$decls"/>
+        <!-- matches($decls, '[a-z]$') ? -->
+        <xsl:text> </xsl:text>
+        <xsl:copy-of select="$cont"/>
+        <xsl:if test="$cmd = ''">
+          <xsl:text>}</xsl:text>
         </xsl:if>
       </xsl:otherwise>
     </xsl:choose>
+    <xsl:if test="$cmd != ''">
+      <xsl:value-of select="substring('}}}}}}}}}}}}}}}}}}}}}}}}}', 1, string-length($cmd) - string-length(translate($cmd, '{', '')))"/>
+    </xsl:if>
   </xsl:template>
   
   <xsl:template match="tei:hi[starts-with(@rend, 'initial')]">
diff --git a/tei_latex/tei_linking_latex.xsl b/tei_latex/tei_linking_latex.xsl
index f96eded..807e8e2 100644
--- a/tei_latex/tei_linking_latex.xsl
+++ b/tei_latex/tei_linking_latex.xsl
@@ -16,7 +16,10 @@ A light version for XSLT1, with local improvements.
 2021, frederic.glorieux@fictif.org
   -->
   <xsl:template match="tei:anchor">
+    <!--
     <xsl:call-template name="tei:makeHyperTarget"/>
+    -->
+    <xsl:message>TOD BUG</xsl:message>
   </xsl:template>
   <doc xmlns="http://www.oxygenxml.com/ns/doc/xsl">
     <desc>[latex] <param name="where">where</param> </desc>
@@ -55,7 +58,7 @@ A light version for XSLT1, with local improvements.
   <xsl:template name="makeInternalLink">
     <xsl:param name="target"/>
     <xsl:param name="class"/>
-    <xsl:param name="ptr" as="xs:boolean" select="false()"/>
+    <xsl:param name="ptr" select="false()"/>
     <xsl:param name="dest"/>
     <xsl:param name="body"/>
     <xsl:choose>
@@ -112,9 +115,11 @@ A light version for XSLT1, with local improvements.
                   <xsl:text>\textit{\hyperref[</xsl:text>
                   <xsl:value-of select="$dest"/>
                   <xsl:text>]{</xsl:text>
-                  <xsl:apply-templates mode="xref" select=".">
+                  <xsl:message>TODO, BUG</xsl:message>
+                  <!-- 
                     <xsl:with-param name="minimal" select="$minimalCrossRef"/>
-                  </xsl:apply-templates>
+                  -->
+                  <xsl:apply-templates mode="xref" select="."/>
                   <xsl:text>}}</xsl:text>
                 </xsl:when>
                 <xsl:otherwise>
@@ -122,9 +127,11 @@ A light version for XSLT1, with local improvements.
                   <xsl:value-of select="$dest"/>
                   <xsl:text>]{</xsl:text>
                   <xsl:value-of select="$body"/>
-                  <xsl:apply-templates mode="xref" select=".">
+                  <xsl:message>TODO, BUG</xsl:message>
+                  <!-- 
                     <xsl:with-param name="minimal" select="$minimalCrossRef"/>
-                  </xsl:apply-templates>
+                  -->
+                  <xsl:apply-templates mode="xref" select="."/>
                   <xsl:text>}</xsl:text>
                 </xsl:otherwise>
               </xsl:choose>
diff --git a/tei_latex/tei_meta_latex.xsl b/tei_latex/tei_meta_latex.xsl
index 5b51ae2..8aa5229 100644
--- a/tei_latex/tei_meta_latex.xsl
+++ b/tei_latex/tei_meta_latex.xsl
@@ -129,16 +129,18 @@ TEI to LaTeX, metadata for preamble
     <xsl:text>\def\elbibl{</xsl:text>
     <xsl:if test="$latexAuthor != ''">
       <xsl:value-of select="$latexAuthor"/>
-      <xsl:text>. </xsl:text>
+      <xsl:text> </xsl:text>
     </xsl:if>
     <xsl:if test="$latexDate != ''">
+      <xsl:text>(</xsl:text>
       <xsl:value-of select="$latexDate"/>
-      <xsl:text>. </xsl:text>
+      <xsl:text>) </xsl:text>
     </xsl:if>
     <xsl:text>\emph{</xsl:text>
     <xsl:apply-templates select="/*/tei:teiHeader/tei:fileDesc/tei:titleStmt/tei:title[not(@type) or @type='main'][1]/node()" mode="meta"/>
     <xsl:text>}</xsl:text>
     <xsl:text>}&#10;</xsl:text>
+
     <!--
     <xsl:variable name="author1">
       <xsl:for-each select="(/*/tei:teiHeader/tei:fileDesc/tei:titleStmt)[1]">
@@ -168,7 +170,7 @@ TEI to LaTeX, metadata for preamble
 
     <xsl:if test="/*/tei:teiHeader/tei:fileDesc/tei:sourceDesc/tei:bibl">
       <xsl:text>\def\elsource{</xsl:text>
-      <xsl:apply-templates select="/*/tei:teiHeader/tei:fileDesc/tei:sourceDesc/tei:bibl/node()"/>
+      <xsl:apply-templates select="/*/tei:teiHeader/tei:fileDesc/tei:sourceDesc/tei:bibl[1]/node()"/>
       <xsl:text>}&#10;</xsl:text>
     </xsl:if>
     
@@ -318,7 +320,7 @@ TEI to LaTeX, metadata for preamble
     <xsl:value-of select="normalize-space(.)"/>
     <xsl:text>}</xsl:text>
   </xsl:template>
-  <xsl:template match="tei:emph | tei:hi[starts-with(@rend, 'i')] | tei:title" mode="meta">
+  <xsl:template match="tei:emph | tei:hi[starts-with(@rend, 'i')] | tei:hi[not(@rend)] | tei:title" mode="meta">
     <xsl:text>\emph{</xsl:text>
     <xsl:apply-templates mode="meta"/>
     <xsl:text>}</xsl:text>
diff --git a/tei_latex/tei_rahtz_latex.xsl b/tei_latex/tei_rahtz_latex.xsl
index cdb056e..209d471 100644
--- a/tei_latex/tei_rahtz_latex.xsl
+++ b/tei_latex/tei_rahtz_latex.xsl
@@ -524,6 +524,9 @@ it is dangerous for docx where nesting may produce lots of surprises
         <xsl:apply-templates/>
       </xsl:when>
       <xsl:when test="$Unit='vol' or $Unit='volume'">
+        <!-- Why emphasize here ? -->
+        <xsl:apply-templates/>
+        <!--
         <xsl:call-template name="emphasize">
           <xsl:with-param name="class">
             <xsl:text>vol</xsl:text>
@@ -532,6 +535,7 @@ it is dangerous for docx where nesting may produce lots of surprises
             <xsl:apply-templates/>
           </xsl:with-param>
         </xsl:call-template>
+        -->
       </xsl:when>
       <xsl:when test="$Unit='chap' or $Unit='chapter'">
         <!-- TODO Chapter ? -->