Merge pull request #1293 from moosetechnology/export

ModelReporter
moosetechnology · Jan 2, 2025 · c38cd7a · c38cd7a
2 parents cf1fcf0 + b0bf023
commit c38cd7a
Show file tree

Hide file tree

Showing 3 changed files with 46 additions and 15 deletions.
diff --git a/src/BaselineOfMooseIDE/BaselineOfMooseIDE.class.st b/src/BaselineOfMooseIDE/BaselineOfMooseIDE.class.st
@@ -155,6 +155,7 @@ BaselineOfMooseIDE >> definePackages: spec [
 		with: [
 			spec requires: #( 'MooseIDE-Visualization' 'ClassBlueprint' ) ];
 		package: 'MooseIDE-Spotter';
+		package: 'MooseIDE-Core-Reporter';
 		package: 'MooseIDE-Spotter-Tests'
 		with: [ spec requires: #( 'MooseIDE-Spotter' ) ];
 		package: 'MooseIDE-Analysis'

diff --git a/src/MooseIDE-Core-Reporter/MiModelReporter.class.st b/src/MooseIDE-Core-Reporter/MiModelReporter.class.st
@@ -9,7 +9,10 @@ Class {
 	#superclass : #MiAbstractBrowser,
 	#instVars : [
 		'mainPresenter',
-		'toolbar'
+		'toolbar',
+		'tabPreview',
+		'tabMicrodown',
+		'rebuildPreview'
 	],
 	#category : #'MooseIDE-Core-Reporter'
 }
@@ -77,35 +80,52 @@ MiModelReporter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #actions }
 MiModelReporter >> exportReportToHTML [
 
-	specModel exportReportToHTML: mainPresenter text
+	specModel exportReportToHTML: self rawReport
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #actions }
 MiModelReporter >> exportReportToPDF [
 
-	specModel exportReportToPDF: mainPresenter text
+	specModel exportReportToPDF: self rawReport
 ]
 
-{ #category : #testing }
+{ #category : #actions }
 MiModelReporter >> followEntity: anEntity [
 
 	super followEntity: anEntity.
 	specModel followEntity: anEntity
 ]
 
-{ #category : #'as yet unclassified' }
-MiModelReporter >> formattedReport: formattedReport [
+{ #category : #actions }
+MiModelReporter >> generatedReport: report [
+
+	tabMicrodown text: report
 ]
 
-{ #category : #testing }
+{ #category : #accessing }
 MiModelReporter >> hasSettings [
 	^ true
 ]
 
-{ #category : #testing }
+{ #category : #initialization }
+MiModelReporter >> initializeMainPresenter [
+
+	tabMicrodown := SpTextPresenter new
+		whenTextChangedDo: [ rebuildPreview := true ].
+	tabPreview := MicrodownPresenter new.
+
+	mainPresenter := self newNotebook.
+	mainPresenter whenSelectedPageChangedDo: [ :new :old |
+		self showingTab: new].
+
+	mainPresenter addPageTitle: 'Raw report' provider: [ tabMicrodown ].
+	mainPresenter addPageTitle: 'Preview' provider: [ tabPreview ].
+]
+
+{ #category : #initialization }
 MiModelReporter >> initializePresenters [
 
 	toolbar := self newToolbar
@@ -114,7 +134,7 @@ MiModelReporter >> initializePresenters [
 		addItem: self refreshToolbarButton;
 		yourself.
 
-	mainPresenter := self newText
+	self initializeMainPresenter
 ]
 
 { #category : #initialization }
@@ -128,12 +148,18 @@ MiModelReporter >> initializeToolbar [
 		           yourself
 ]
 
-{ #category : #testing }
+{ #category : #accessing }
 MiModelReporter >> miSelectedItem [
 
 	^#()
 ]
 
+{ #category : #accessing }
+MiModelReporter >> rawReport [
+
+	^ tabMicrodown text
+]
+
 { #category : #initialization }
 MiModelReporter >> refreshToolbarButton [
 
@@ -145,7 +171,11 @@ MiModelReporter >> refreshToolbarButton [
 ]
 
 { #category : #actions }
-MiModelReporter >> updateReport: report [
+MiModelReporter >> showingTab: newTab [
+
+	(newTab activePresenter = tabPreview and: [ rebuildPreview ])
+		ifFalse: [ ^ self ].
 
-	mainPresenter text: report
+	tabPreview documentFromString: self rawReport.
+	rebuildPreview := false
 ]
diff --git a/src/MooseIDE-Core-Reporter/MiModelReporterModel.class.st b/src/MooseIDE-Core-Reporter/MiModelReporterModel.class.st
@@ -398,5 +398,5 @@ MiModelReporterModel >> updateReport [
 	report := String new writeStream .
 	self document.
 	report close.
-	browser updateReport: report contents
+	browser generatedReport: report contents
 ]