diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st index a9b0db8..a489509 100644 --- a/src/MiniDocs/LeDatabase.extension.st +++ b/src/MiniDocs/LeDatabase.extension.st @@ -11,7 +11,12 @@ LeDatabase >> addPageFromMarkdeepUrl: aString [ { #category : #'*MiniDocs' } LeDatabase >> addPageFromString: markdeepDocTree [ - ^ markdeepDocTree + | remoteMetadata page | + remoteMetadata := Markdeep new metadataFromXML: markdeepDocTree. + page := LePage new + title: (remoteMetadata at: 'title'); + basicUid: (remoteMetadata at: 'id'). + ^ {markdeepDocTree . page . remoteMetadata } ] @@ -27,7 +32,7 @@ LeDatabase >> detectLocalPageForRemote: markdeepDocUrl [ { #category : #'*MiniDocs' } LeDatabase >> docTreeForLink: aString [ - ^ (XMLHTMLParser on: aString) parseDocument + ^ (XMLHTMLParser on: aString asUrl retrieveContents) parseDocument ] { #category : #'*MiniDocs' }