Offray
/
GrafoscopioUtils
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Moving out to MiniDocs.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-09-21 13:58:31 -05:00
parent a74b94e204
commit 25575d5d64
1 changed files with 0 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
repository/Grafoscopio-Utils/LeDatabase.extension.st
View File

@ -1,43 +0,0 @@
Extension { #name : #LeDatabase }
{ #category : #'*Grafoscopio-Utils-Core' }
LeDatabase >> addPageFromMarkdeepUrl: aString [
| page |
page := self detectLocalPageForRemote: aString.
page ifNotNil: [ :arg | ^ self importErrorMessage: page ].
self addPage: page.
]
{ #category : #'*Grafoscopio-Utils-Core' }
LeDatabase >> detectLocalPageForRemote: markdeepDocUrl [
| markdeepHelper id remoteMetadata docTree |
markdeepHelper := Markdeep new.
docTree := (XMLHTMLParser on: markdeepDocUrl asUrl retrieveContents) parseDocument.
remoteMetadata := markdeepHelper metadataFromXML: docTree.
id := remoteMetadata at: 'id' ifAbsent: [ ^ false ].
^ self pageWithID: id ifAbsent: [ nil ].
]
{ #category : #'*Grafoscopio-Utils-Core' }
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.' ]
]