From a833a6245b6da209ae67c7410a40ab859bac786f Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Mon, 10 Oct 2022 09:09:05 -0500
Subject: [PATCH] Fixing pharo snippet parsing for importer.

---
 src/MiniDocs/LePharoSnippet.extension.st | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/MiniDocs/LePharoSnippet.extension.st b/src/MiniDocs/LePharoSnippet.extension.st
index 90ddfac..4127758 100644
--- a/src/MiniDocs/LePharoSnippet.extension.st
+++ b/src/MiniDocs/LePharoSnippet.extension.st
@@ -11,11 +11,13 @@ LePharoSnippet >> contentAsStringCustomized [
 { #category : #'*MiniDocs' }
 LePharoSnippet >> contentFrom: markdeepDiv [
 
-	| sanitizedStringText metadata |
+	| sanitizedStringText metadata joinedText |
 	metadata := STON fromString: (markdeepDiv attributes at: 'st-data').
-	sanitizedStringText := markdeepDiv contentString lines reject: [ :line | line beginsWith: '~~~' ].
-	sanitizedStringText := "(Character cr asString)" '' join: sanitizedStringText.
-	self code: sanitizedStringText;
+	sanitizedStringText := markdeepDiv contentString lines.
+	sanitizedStringText :=  sanitizedStringText copyFrom: 4 to: sanitizedStringText size -2.
+	joinedText := '' writeStream.
+	sanitizedStringText do: [ :line | joinedText nextPutAll: line; nextPut: Character lf ].
+	self code: joinedText contents allButLast;
 		uid: (LeUID new uidString: (metadata at: 'id'));
 		parent: (metadata at: 'parent');
 		createTime: (LeTime new time: ((metadata at: 'created')asDateAndTime));