From c80c3709637dc600fc3d74877cd3ea9ca1461a54 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Sun, 3 Nov 2024 10:51:51 +0100
Subject: [PATCH] Fix 915. Generate quote instead of verbatim.

---
 src/Microdown-LaTeXExporter/MicLaTeXWriter.class.st | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/Microdown-LaTeXExporter/MicLaTeXWriter.class.st b/src/Microdown-LaTeXExporter/MicLaTeXWriter.class.st
index f04c8699..726cdef4 100644
--- a/src/Microdown-LaTeXExporter/MicLaTeXWriter.class.st
+++ b/src/Microdown-LaTeXExporter/MicLaTeXWriter.class.st
@@ -330,11 +330,18 @@ MicLaTeXWriter >> visitParagraph: aParagraph [
 
 { #category : 'blocks' }
 MicLaTeXWriter >> visitQuote: aQuote [
-	canvas environment
+	"canvas environment
 		name: 'verbatim';
 		with: [ aQuote children do: [ :child | 
 						self visit: child.
-						canvas newLine ] ]
+						canvas newLine ] ]"
+				
+			
+	canvas newLine.
+	canvas environment
+		name: 'quote';
+		with: [ aQuote children do: [ :each | each accept: self ] ].
+
 ]
 
 { #category : 'blocks - inline' }