Improving LeSnippet to LePage conversion.

src/MiniDocs/LeTextSnippet.extension.st

@@ -2,9 +2,14 @@ Extension { #name : #LeTextSnippet }
 
 { #category : #'*MiniDocs' }
 LeTextSnippet >> asLePage [
-	| page |
+	| page title currentSnippet |
+	title := self contentAsString markdownHeaders associations first value.
+	title := (title trimBoth: [:char | char = $# ]) trimmed.
 	page  := LePage new
-		initializeTitle: self contentAsString.
+		initializeTitle: title.
+	currentSnippet := LeTextSnippet new
+		string: self contentAsString.
+	page addSnippet: currentSnippet.
 	self database addPage: page.
 	self childrenDo: [:child |
 		child moveToPageTitled: page title