Enabling importation of Markdeep pages without page metadata.

src/MiniDocs/LeDatabase.extension.st

@@ -44,14 +44,18 @@ LeDatabase >> addPageFromMarkdeep: markdeepDocTree withRemote: externalDocLocati
 	remoteMetadata at: 'origin' put: externalDocLocation.
 	dataSnippets := self sanitizeMarkdeepSnippets: divSnippets withMetadata: remoteMetadata.
 	snippets := dataSnippets collect: [ :each | each asLepiterSnippet ].
-	page := LePage new
-			title: (remoteMetadata at: 'title');
-			basicUid: (UUID fromString36: (remoteMetadata at: 'id'));
-			createTime: (LeTime new time: (remoteMetadata at: 'created') asDateAndTime);
-			editTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
-			latestEditTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
-			createEmail: (remoteMetadata at: 'creator');
-			editEmail: (remoteMetadata at: 'modifier').
+	page := LePage new.
+	page
+		title: (remoteMetadata at: 'title' ifAbsent: [ page detectMarkdeepTitleFrom: markdeepDocTree ]);
+		basicUid: (UUID fromString36: (remoteMetadata at: 'id' ifAbsent: [UUID new asString36]));
+		createTime: (LeTime new 
+			time: (remoteMetadata  at: 'created' ifAbsent: [ DateAndTime now]) asDateAndTime);
+		editTime: (LeTime new 
+			time: (remoteMetadata at: 'modified' ifAbsent: [ DateAndTime now]) asDateAndTime);
+		latestEditTime: (LeTime new 
+			time: (remoteMetadata at: 'modified' ifAbsent: [ DateAndTime now]) asDateAndTime);
+		createEmail: (remoteMetadata at: 'creator' ifAbsent: [ 'unknown' ]);
+		editEmail: (remoteMetadata at: 'modifier' ifAbsent: [ 'unknown' ]).
 	snippets do: [ :snippet | "| currentParent |"
 		page addSnippet: snippet.
 		"currentParent := page detectParentSnippetWithUid: (snippet metadata at: 'parent').

src/MiniDocs/LePage.extension.st

@@ -94,6 +94,14 @@ LePage >> defaultPandocTemplate [
 	^ FileLocator home / '.pandoc' / 'templates' / 'clean-menu-mod.html' 
 ]
 
+{ #category : #'*MiniDocs' }
+LePage >> detectMarkdeepTitleFrom: xmlSubtree [
+	| titleLine |
+	titleLine := (xmlSubtree nodesCollect: [:node | node contentString ]) first lines 
+		detect: [:line | line includesSubstring: '                      **'] ifNone: ['Untitled'].
+	^ titleLine trimmed trimBoth: [:char | char = $* ]
+]
+
 { #category : #'*MiniDocs' }
 LePage >> detectParentSnippetWithUid: uidString [
 	uidString = self uid asString36 ifTrue: [ ^ self ].

src/MiniDocs/Markdeep.class.st

@@ -380,9 +380,11 @@ Markdeep >> options [
 
 { #category : #printing }
 Markdeep >> printOn: aStream [
+	| response |
 	super printOn: aStream.
+	response := self title ifNil: [ 'Untitled' ].
 	aStream
-		nextPutAll: '( ', self title, ' )'
+		nextPutAll: '( ', response, ' )'
 ]
 
 { #category : #'instance creation' }

src/MiniDocs/Markdown.class.st

@@ -208,9 +208,11 @@ Markdown >> options [
 
 { #category : #accessing }
 Markdown >> printOn: aStream [
+	| response |
 	super printOn: aStream.
+	response := self title ifNil: [ 'Untitled' ].
 	aStream
-		nextPutAll: '( ',  self title , ' )'
+		nextPutAll: '( ',  response , ' )'
 ]
 
 { #category : #accessing }