From 4f46ccf489178eb511a44f22adb788b5159aef5c Mon Sep 17 00:00:00 2001
From: JeanSebastienTurcotte <jsebastien.turcotte@gmail.com>
Date: Tue, 17 Jan 2023 10:51:39 -0500
Subject: [PATCH 1/2] Update pretext-html.xsl

Added code for french quotation marks when <lq/> or <rq/> is used along with fr-FR or fr-CA
---
 xsl/pretext-html.xsl | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/xsl/pretext-html.xsl b/xsl/pretext-html.xsl
index 1dc398d03..a78c59404 100644
--- a/xsl/pretext-html.xsl
+++ b/xsl/pretext-html.xsl
@@ -8773,12 +8773,26 @@ along with MathBook XML.  If not, see <http://www.gnu.org/licenses/>.
 
 <!-- Left (Double) Quote -->
 <xsl:template name="lq-character">
-    <xsl:text>&#x201c;</xsl:text>
+    <xsl:choose>
+        <xsl:when test="$document-language = 'fr-CA' or $document-language = 'fr-FR'"> <!-- If french, double quotation marks are << rather than " -->
+            <xsl:text>&#x00AB;&#xa0;</xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+            <xsl:text>&#x201c;</xsl:text>
+        </xsl:otherwise>
+    </xsl:choose>
 </xsl:template>
 
 <!-- Right (Double) Quote -->
 <xsl:template name="rq-character">
-    <xsl:text>&#x201d;</xsl:text>
+    <xsl:choose>
+        <xsl:when test="$document-language = 'fr-CA' or $document-language = 'fr-FR'"> <!-- If french, double quotation marks are >> rather than " -->
+            <xsl:text>&#xa0;&#x00BB;</xsl:text>
+        </xsl:when>
+        <xsl:otherwise>
+            <xsl:text>&#x201d;</xsl:text>
+        </xsl:otherwise>
+    </xsl:choose>
 </xsl:template>
 
 <!-- Left Double Bracket -->

From 4c6528983bf880675d879df63ed30793a35f8b7d Mon Sep 17 00:00:00 2001
From: JeanSebastienTurcotte <jsebastien.turcotte@gmail.com>
Date: Tue, 17 Jan 2023 12:17:31 -0500
Subject: [PATCH 2/2] Update pretext-latex.xsl

Added french for <lsq/> , <rsq/> and <q/> to Latex
---
 xsl/pretext-latex.xsl | 37 ++++++++++++++++++++++++++++++++-----
 1 file changed, 32 insertions(+), 5 deletions(-)

diff --git a/xsl/pretext-latex.xsl b/xsl/pretext-latex.xsl
index 2f7817789..e3c1df510 100644
--- a/xsl/pretext-latex.xsl
+++ b/xsl/pretext-latex.xsl
@@ -7846,12 +7846,26 @@ along with MathBook XML.  If not, see <http://www.gnu.org/licenses/>.
 
 <!-- Left (Double) Quote -->
 <xsl:template name="lq-character">
-    <xsl:text>``</xsl:text>
+    <xsl:choose>
+        <xsl:when test="$document-language = 'fr-CA' or $document-language = 'fr-FR'"> <!-- If french, double quotation marks are << rather than " -->
+            <xsl:text>{}\guillemotleft~ </xsl:text> <!-- guillemet preceded by space followed by non breaking space -->
+        </xsl:when>
+        <xsl:otherwise>
+            <xsl:text>``</xsl:text>
+        </xsl:otherwise>
+    </xsl:choose>
 </xsl:template>
 
 <!-- Right (Double) Quote -->
 <xsl:template name="rq-character">
-    <xsl:text>''</xsl:text>
+    <xsl:choose>
+        <xsl:when test="$document-language = 'fr-CA' or $document-language = 'fr-FR'"> <!-- If french, double quotation marks are >> rather than " -->
+            <xsl:text>~\guillemotright{} </xsl:text> <!-- guillemet preceded by non breaking space and followed by a space -->
+        </xsl:when>
+        <xsl:otherwise>
+            <xsl:text>''</xsl:text>
+        </xsl:otherwise>
+    </xsl:choose>
 </xsl:template>
 
 <!-- Left Double Bracket -->
@@ -8109,11 +8123,24 @@ along with MathBook XML.  If not, see <http://www.gnu.org/licenses/>.
 <!-- right thing.  Double quotes are unmolested since     -->
 <!-- they will work fine even in consecutive runs         -->
 <!-- We have to override the RTF routines here.           -->
-
 <xsl:template match="q">
-    <xsl:text>``</xsl:text>
+    <xsl:choose>
+        <xsl:when test="$document-language = 'fr-CA' or $document-language = 'fr-FR'"> <!-- If french, double quotation marks are << rather than " -->
+            <xsl:text>{}\guillemotleft~ </xsl:text> <!-- guillemet followed by non breaking space -->
+        </xsl:when>
+        <xsl:otherwise>
+            <xsl:text>``</xsl:text>
+        </xsl:otherwise>
+    </xsl:choose>
     <xsl:apply-templates />
-    <xsl:text>''</xsl:text>
+    <xsl:choose>
+        <xsl:when test="$document-language = 'fr-CA' or $document-language = 'fr-FR'"> <!-- If french, double quotation marks are >> rather than " -->
+            <xsl:text>~\guillemotright{} </xsl:text> <!-- guillemet preceded by non breaking space followed by space -->
+        </xsl:when>
+        <xsl:otherwise>
+            <xsl:text>''</xsl:text>
+        </xsl:otherwise>
+    </xsl:choose>
 </xsl:template>
 
 <!-- We look left (up the tree) and right   -->