Preserving HedgeDoc importation metadata when converted to Markdeep.

src/MiniDocs/HedgeDoc.class.st

@@ -57,8 +57,8 @@ HedgeDoc >> asLePage [
 		splitAdmonitionSnippets.
 	newPage editTime: DateAndTime now.
 	newPage options 
-		at: 'originalMetadata' put: self metadata;
+		at: 'HedgeDoc' at: 'yamlFrontmatter' put: self metadata;
-		at: 'url' put: self url.
+		at: 'HedgeDoc' at: 'url' put: self url.
 	^ newPage	
 ]
 

src/MiniDocs/LePage.extension.st

@@ -21,6 +21,7 @@ LePage >> asHtmlFile [
 LePage >> asMarkdeep [
 	| bodyStream markdeep |
 	bodyStream := '' writeStream.
+	bodyStream nextPutAll: self notebookMetadataSnippet asMarkdeep.
 	self preorderTraversal
 		do: [ :snippet | bodyStream nextPutAll: snippet asMarkdeep ].
 	markdeep := Markdeep new
@@ -231,6 +232,17 @@ LePage >> navTop [
 		ifTrue: [ ^ topNavFile contents ]
 ]
 
+{ #category : #'*MiniDocs' }
+LePage >> notebookMetadataSnippet [
+	| response |
+	response := LeTextSnippet new fromString: '<!-- See this snippet source code for this notebook''s metadata -->'.
+	response parent: self.
+	(self optionAt: 'HedgeDoc') ifNil: [ ^ response ].
+	(response extra)
+		at: 'HedgeDoc' put: (self optionAt: 'HedgeDoc').
+	^ response
+]
+
 { #category : #'*MiniDocs' }
 LePage >> olderChild [
 	"I provide the last edited child node.

src/MiniDocs/LeTextSnippet.extension.st

@@ -38,7 +38,9 @@ LeTextSnippet >> fromMarkdeep: markdeepDiv [
 { #category : #'*MiniDocs' }
 LeTextSnippet >> fromString: aString [
 
-self string: aString
+self 
+	string: aString;
+	uid: LeUID new.
 ]
 
 { #category : #'*MiniDocs' }

src/MiniDocs/LeTextualSnippet.extension.st

@@ -109,7 +109,7 @@ LeTextualSnippet >> metadataUpdate [
 	editEmailSanitized := self editEmail asString withoutXMLTagDelimiters.
 	^ OrderedDictionary new
 		  at: 'id' put: self uidString;
-		  at: 'parent' put: self parent uidString;
+		  at: 'parent' put: (self parent ifNotNil: [self parent uidString]);
 		  at: 'created' put: self createTime asString;
 		  at: 'modified' put: self latestEditTime asString;
 		  at: 'creator' put: createEmailSanitized;