Improving HedgeDoc(s) convert/import as LePage(s).

src/MiniDocs/HedgeDoc.class.st

@@ -31,7 +31,7 @@ HedgeDoc class >> newDefault [
 HedgeDoc >> asLePage [
 	| newPage snippet |
 	snippet := LeTextSnippet new
-		string: self body.
+		string: self bodyWithoutTitleHeader.
 	newPage := LePage new
 		initializeTitle: self title;
 		addSnippet: snippet;
@@ -57,6 +57,15 @@ HedgeDoc >> asMarkdownTiddler [
 		created: Tiddler nowLocal.
 ]
 
+{ #category : #accessing }
+HedgeDoc >> bodyWithoutTitleHeader [
+	| headerIndex |
+	headerIndex := self body lines 
+		detectIndex: [ :line | line includesSubstring: self headerAsTitle ]
+		ifNone: [ ^ self body].
+	^ (self body lines copyWithoutIndex: headerIndex) asStringWithCr
+]
+
 { #category : #accessing }
 HedgeDoc >> contents [
 	^ super contents