From 056dad228ab6253c81d120f50d1e2bd15465ebf1 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 31 Oct 2023 13:13:31 -0500
Subject: [PATCH] Improved Markdeep exporter for snippets metadata readability.

---
 src/MiniDocs/LePage.extension.st                    | 5 +++++
 src/MiniDocs/LeTextualSnippet.extension.st          | 4 ++--
 src/MiniDocs/LeYoutubeReferenceSnippet.extension.st | 4 ++--
 3 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st
index 77f2505..6e0e6ce 100644
--- a/src/MiniDocs/LePage.extension.st
+++ b/src/MiniDocs/LePage.extension.st
@@ -190,6 +190,11 @@ LePage >> removeSnippetsMetadata [
 			ifTrue: [ snippet options removeKey: 'metadata' ] ]
 ]
 
+{ #category : #'*MiniDocs' }
+LePage >> sanitizeMetadata [
+	self allChildrenDepthFirst do: [:snippet | snippet sanitizeMetadata  ]
+]
+
 { #category : #'*MiniDocs' }
 LePage >> sharedVariablesBindings [
 	| codeSnippets shared |
diff --git a/src/MiniDocs/LeTextualSnippet.extension.st b/src/MiniDocs/LeTextualSnippet.extension.st
index d668cc2..7d6bdd0 100644
--- a/src/MiniDocs/LeTextualSnippet.extension.st
+++ b/src/MiniDocs/LeTextualSnippet.extension.st
@@ -10,7 +10,7 @@ LeTextualSnippet >> asMarkdeep [
 	output
 		nextPutAll: '<div st-class="' , self class greaseString , '"';
 		nextPut: Character lf;
-		nextPutAll: '  st-data="' , (STON toString: self metadata) , '">';
+		nextPutAll: '  st-data="' , (STON toStringPretty: self metadata) , '">';
 		nextPut: Character lf;
 		nextPutAll: self markdeepCustomOpener;
 		nextPutAll: self contentAsString;
@@ -19,7 +19,7 @@ LeTextualSnippet >> asMarkdeep [
 		nextPutAll: '</div>';
 		nextPut: Character lf;
 		nextPut: Character lf.
-	^ output contents
+	^ output contents withInternetLineEndings
 ]
 
 { #category : #'*MiniDocs' }
diff --git a/src/MiniDocs/LeYoutubeReferenceSnippet.extension.st b/src/MiniDocs/LeYoutubeReferenceSnippet.extension.st
index 172d2ff..18711b0 100644
--- a/src/MiniDocs/LeYoutubeReferenceSnippet.extension.st
+++ b/src/MiniDocs/LeYoutubeReferenceSnippet.extension.st
@@ -26,8 +26,8 @@ LeYoutubeReferenceSnippet >> metadataDiv [
 	output 
 		nextPutAll: '<div st-class="' , self class greaseString , '"';
 		nextPut: Character lf;
-		nextPutAll: '  st-data="' , (STON toString: self metadata) , '">'.
-	^ output.
+		nextPutAll: '  st-data="' , (STON toStringPretty: self metadata) , '">'.
+	^ output contents withInternetLineEndings.
 ]
 
 { #category : #'*MiniDocs' }