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

Markdeep importer is resolving overlapping content. Repeated errors should be fixed.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-10-09 21:26:12 -05:00
parent da2d989a92
commit 9bde9e6492
1 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/MiniDocs/LeDatabase.extension.st
View File

@ -64,24 +64,27 @@ LeDatabase >> docTreeForLink: aString [
{ #category : #'*MiniDocs' }
LeDatabase >> errorCardFor: error [
| keepButton overwriteButton backupButton errorMessageUI |
| keepButton overwriteButton backupButton errorMessageUI localPage |
localPage := self pageWithID: (error at: 'key').
keepButton := BrButton new
aptitude: BrGlamorousButtonWithIconAndLabelAptitude;
beTinySize;
label: 'Keep existing local page';
icon: BrGlamorousVectorIcons cancel;
action: [ :aButton | ];
margin: (BlInsets left: 10).
margin: (BlInsets left: 10);
action: [ :aButton |
aButton phlow spawnObject: localPage
].
overwriteButton := BrButton new
aptitude: BrGlamorousButtonWithIconAndLabelAptitude;
beTinySize;
label: 'Overwrite with remote page';
icon: BrGlamorousVectorIcons edit;
action: [ :aButton | ];
action: [ :aButton |
self removePage: localPage.
aButton phlow spawnObject: (self addPageFromMarkdeepUrl: (error at: 'remote'))
];
margin: (BlInsets left: 10).
backupButton := BrButton new
aptitude: BrGlamorousButtonWithIconAndLabelAptitude;
beTinySize;
label: 'Backup local page';
icon: BrGlamorousVectorIcons changes;
action: [ :aButton | ];
@ -106,17 +109,16 @@ LeDatabase >> gtViewErrorDetailsOn: aView [
^ aView explicit
title: 'Errors' translated;
priority: 5;
stencil: [
| container |
container := BlElement new
layout: BlFlowLayout new;
constraintsDo: [ :c |
c vertical fitContent.
c horizontal matchParent ];
padding: (BlInsets all: 10).
container
addChildren: (self errorCardFor: self errors first)
"container addChild: self asCardElement "].
stencil: [ | container |
container := BlElement new
layout: BlFlowLayout new;
constraintsDo: [ :c |
c vertical fitContent.
c horizontal matchParent ];
padding: (BlInsets all: 10).
container
addChildren: (self errorCardFor: self errors first)
].
]
{ #category : #'*MiniDocs' }