MiniDocs/src/MiniDocs/LeDatabase.extension.st

Extension { #name : #LeDatabase }

{ #category : #'*MiniDocs' }
LeDatabase >> addPageFromMarkdeep: markdeepDocTree [
	| remoteMetadata page |
	remoteMetadata := Markdeep new metadataFromXML: markdeepDocTree.
	page := LePage new
		title: (remoteMetadata at: 'title');
		basicUid: (remoteMetadata at: 'id');
		createTime: (remoteMetadata at: 'created');
		editTime: ("ZTimestamp fromString:" (remoteMetadata at: 'modified'));
		createEmail: (remoteMetadata at: 'creator');
		editEmail: (remoteMetadata at: 'modifier').
	^ {markdeepDocTree . page }
	 
]

{ #category : #'*MiniDocs' }
LeDatabase >> addPageFromMarkdeepUrl: aString [

	| page |
	page := self detectLocalPageForRemote: aString.
	page ifNotNil: [ :arg | ^ self importErrorMessage: page ].
	^ self addPageFromMarkdeep: (self docTreeForLink: aString)
]

{ #category : #'*MiniDocs' }
LeDatabase >> detectLocalPageForRemote: markdeepDocUrl [
	| markdeepHelper id remoteMetadata docTree |
	markdeepHelper := Markdeep new.
	docTree := self docTreeForLink: markdeepDocUrl.
	remoteMetadata := markdeepHelper metadataFromXML: docTree.
	id := remoteMetadata at: 'id' ifAbsent: [ nil ].
	^ self pageWithID: id ifAbsent: [ ^ nil ].
]

{ #category : #'*MiniDocs' }
LeDatabase >> docTreeForLink: aString [
	^ (XMLHTMLParser on: aString asUrl retrieveContents) parseDocument
]

{ #category : #'*MiniDocs' }
LeDatabase >> importErrorMessage: page [

	^ String streamContents: [ :stream | 
		  stream
			  nextPutAll: 'IMPORTATION ERROR: a page with';
			  nextPut: Character lf;
			  nextPut: Character lf;
			  nextPutAll: ' id: ' , page uidString;
			  nextPut: Character lf;
			  nextPutAll: ' title: ' , page contentAsString;
			  nextPut: Character lf;
			  nextPut: Character lf;
			  nextPutAll: 'already exists in this database.';
			  nextPut: Character lf;
			  nextPut: Character lf;
			  nextPutAll:
				  'Please do one of those before retrying this procedure:
		
		1) Move the existing page files (.lepiter and .bak) to another (sub)folder.
		2) Import the page url to another database.' ]
]