Implementing readability of LePictureSnippets from Markdeep.

src/MiniDocs/LeDatabase.extension.st

@@ -256,7 +256,9 @@ LeDatabase >> sanitizeMarkdeepSnippets: divSnippets withMetadata: remoteMetadata
     	snippetData := markdeepDiv asSnippetDictionary.
 		creationTime := snippetData at: 'created'.
 		modificationTime := snippetData at: 'modified'.
-		timestampWarning := [:timestamp | 'Modified timestamps: ', timestamp ,' date and time was replaced instead of nil value. See "origin" metadata for more historical traceability information.'].
+		timestampWarning := [:timestamp | 
+			'Modified timestamps: ', timestamp ,' date and time was replaced instead of nil value. See "origin" metadata for more historical traceability information.'
+		].
 		(creationTime = 'nil' and: [ modificationTime ~= 'nil' ]) 
 			ifTrue: [ 
 				snippetData redefineTimestampsBefore: modificationTime.

src/MiniDocs/OrderedDictionary.extension.st

@@ -19,6 +19,11 @@ OrderedDictionary >> asLepiterSnippet [
 			response := LePharoSnippet new.
 			response code: (self at: 'content')
 		].
+	(self at: 'className') = 'LePictureSnippet'
+		ifTrue: [
+			response := LePictureSnippet new.
+			"response code: (self at: 'content')"
+		].		
 	response
 		uid: (LeUID new uidString: (self at: 'id'));
 		parent: (self at: 'parent');

src/MiniDocs/XMLElement.extension.st

@@ -13,7 +13,8 @@ XMLElement >> asSnippetDictionary [
 XMLElement >> sanitizedContent [
 	| className sanitizedText |
 	className := self attributes at: 'st-class'.
-	(className = 'LeTextSnippet') ifTrue: [ 
+	((className = 'LeTextSnippet') or: [className = 'LePictureSnippet']) 
+		ifTrue: [ 
 			sanitizedText := self contentString.
 			sanitizedText :=  sanitizedText allButFirst.
 			sanitizedText := sanitizedText allButLast.