From 0c207b166709f2800a4f9cdb75633212d1df5228 Mon Sep 17 00:00:00 2001
From: "quentin.moutte.etu" <quentin.moutte.etu@univ-lille.fr>
Date: Fri, 17 May 2024 10:31:41 +0200
Subject: [PATCH 1/3] Create MicBlogCreator + refactoring

---
 .../MicSummarizerTest.class.st                | 147 ------------------
 src/Microdown-Blog/MicBlogCreator.class.st    |  84 ++++++++++
 src/Microdown-Blog/MicCreateMonth.class.st    |  34 ++++
 .../MicDocumentTransformer.class.st           |  12 ++
 .../MicSingleSummarizer.class.st              |  63 +-------
 src/Microdown-Blog/MicSummarizer.class.st     |  55 +------
 6 files changed, 135 insertions(+), 260 deletions(-)
 create mode 100644 src/Microdown-Blog/MicBlogCreator.class.st
 create mode 100644 src/Microdown-Blog/MicCreateMonth.class.st
 create mode 100644 src/Microdown-Blog/MicDocumentTransformer.class.st
diff --git a/src/Microdown-Blog-Tests/MicSummarizerTest.class.st b/src/Microdown-Blog-Tests/MicSummarizerTest.class.st
index 3cf026af..4b2db999 100644
--- a/src/Microdown-Blog-Tests/MicSummarizerTest.class.st
+++ b/src/Microdown-Blog-Tests/MicSummarizerTest.class.st
@@ -94,153 +94,6 @@ When you participate to the mooc you get access to the quizz and the credit vali
 	^ file
 ]
 
-{ #category : 'as yet unclassified' }
-MicSummarizerTest >> htmlBodyTest [
-
-	^ '<body><main role="main">
-<h1><a target="_blank" href="''''/''''">A Cool Story</a></h1>
-<p>Pharo is cool but _this is_ a superlong _paragraph_ Simple powerful language: No constructors, no ...</p>
-<h1><a target="_blank" href="''''/''''">Pharo is cool</a></h1>
-<p>If you are either a beginner or an expert in object-oriented programming, _this MOOC_ will ...</p>
-<h1><a target="_blank" href="''''/''''">Mooc Pharo</a></h1>
-<p>Welcome to the Pharo Mooc (a set of videos, exercises, challenges, and miniprojects).</p>
-<ul>
-<li><a target="_blank" href="http://pharo.org/">January 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2014</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2015</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2016</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2017</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2018</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2019</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2020</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2021</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2022</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2023</a></li>
-<li><a target="_blank" href="http://pharo.org/">January 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">February 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">March 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">April 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">May 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">June 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">July 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">August 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">September 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">October 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">November 2024</a></li>
-<li><a target="_blank" href="http://pharo.org/">December 2024</a></li>
-</ul></main></body>'
-
-]
-
 { #category : 'tests' }
 MicSummarizerTest >> testGroupByDate [
 
diff --git a/src/Microdown-Blog/MicBlogCreator.class.st b/src/Microdown-Blog/MicBlogCreator.class.st
new file mode 100644
index 00000000..d8140c22
--- /dev/null
+++ b/src/Microdown-Blog/MicBlogCreator.class.st
@@ -0,0 +1,84 @@
+Class {
+	#name : 'MicBlogCreator',
+	#superclass : 'Object',
+	#instVars : [
+		'sourceDirectory',
+		'targetDirectory'
+	],
+	#category : 'Microdown-Blog',
+	#package : 'Microdown-Blog'
+}
+
+{ #category : 'as yet unclassified' }
+MicBlogCreator class >> createFrom: source to: target [
+
+	| tmp1 |
+	tmp1 := self new.
+	tmp1
+		  sourceDirectory: source;
+		  targetDirectory: target.
+	tmp1 createAllHtmlFile.
+]
+
+{ #category : 'as yet unclassified' }
+MicBlogCreator >> collectAllFile [
+
+	^ (FileReference / sourceDirectory) allChildren select: [ :each | each isFile ]
+]
+
+{ #category : 'rendering' }
+MicBlogCreator >> createAllHtmlFile [
+
+	self collectAllFile do: [ :each | self createHtmlFile: (Microdown parse: each asFileReference contents) ]
+
+	
+]
+
+{ #category : 'rendering' }
+MicBlogCreator >> createHtmlFile: aMicRoot [
+
+	| a q date header filePath |
+	a := (MicHTMLVisitor new visit: aMicRoot) at: 1.
+
+	date := (aMicRoot children at: 1) body at: #date.
+	date := date asDate.
+	header := MicSingleSummarizer new firstHeaderBlockOf: aMicRoot.
+
+	q := MicHTMLDocument new.
+	q configuration: a configuration.
+	q configuration document: q.
+	q
+		setCharSetUTF8;
+		destinationPath:
+			targetDirectory , '\' , date year asString , '\' , date monthName
+			, '\' , date day asString , '\'.
+	filePath := q destinationPath , header text , '.html'.
+	^ q
+		  fileName: header text , '.html';
+		  writeDocument: a contents;
+		  contents
+]
+
+{ #category : 'accessing' }
+MicBlogCreator >> sourceDirectory [
+
+	^ sourceDirectory
+]
+
+{ #category : 'accessing' }
+MicBlogCreator >> sourceDirectory: source [
+
+	sourceDirectory := source.
+]
+
+{ #category : 'accessing' }
+MicBlogCreator >> targetDirectory [
+
+	^ targetDirectory
+]
+
+{ #category : 'accessing' }
+MicBlogCreator >> targetDirectory: target [
+
+	targetDirectory := target
+]
diff --git a/src/Microdown-Blog/MicCreateMonth.class.st b/src/Microdown-Blog/MicCreateMonth.class.st
new file mode 100644
index 00000000..174eee14
--- /dev/null
+++ b/src/Microdown-Blog/MicCreateMonth.class.st
@@ -0,0 +1,34 @@
+Class {
+	#name : 'MicCreateMonth',
+	#superclass : 'Object',
+	#category : 'Microdown-Blog',
+	#package : 'Microdown-Blog'
+}
+
+{ #category : 'generate' }
+MicCreateMonth class >> generateDateListSince2014 [
+
+	| date t |
+	date := Date newDay: 1 month: 1 year: 2014.
+
+	t := Timespan
+		     starting: date
+		     duration:
+		     (Duration years: [ Date today year - date year + 1 ] value).
+	^ t months
+]
+
+{ #category : 'generate' }
+MicCreateMonth class >> generateMicListBlockOfLinkDateTo: aDestination [
+
+	| root link inlineParser listElement |
+	root := MicUnorderedListBlock new.
+	inlineParser := MicInlineParser new.
+
+	self generateDateListSince2014 do: [ :each |
+		listElement := MicListItemBlock new.
+		link := MicDocumentTransformer makeALink: each asString to: aDestination, '/', each year asString,'/',each name,'/'.
+		(link at:1) parent: listElement.
+		listElement parent: root ].
+	^ root
+]
diff --git a/src/Microdown-Blog/MicDocumentTransformer.class.st b/src/Microdown-Blog/MicDocumentTransformer.class.st
new file mode 100644
index 00000000..0c650556
--- /dev/null
+++ b/src/Microdown-Blog/MicDocumentTransformer.class.st
@@ -0,0 +1,12 @@
+Class {
+	#name : 'MicDocumentTransformer',
+	#superclass : 'Object',
+	#category : 'Microdown-Blog',
+	#package : 'Microdown-Blog'
+}
+
+{ #category : 'as yet unclassified' }
+MicDocumentTransformer class >> makeALink: aText to: aLink [
+
+	^ MicInlineParser parse: '[' , aText, '](' , aLink , ')'
+]
diff --git a/src/Microdown-Blog/MicSingleSummarizer.class.st b/src/Microdown-Blog/MicSingleSummarizer.class.st
index d911f022..eb0dac1d 100644
--- a/src/Microdown-Blog/MicSingleSummarizer.class.st
+++ b/src/Microdown-Blog/MicSingleSummarizer.class.st
@@ -1,64 +1,13 @@
 Class {
 	#name : 'MicSingleSummarizer',
-	#superclass : 'Object',
+	#superclass : 'MicDocumentTransformer',
 	#instVars : [
-		'maximumWords',
-		'destinationDirectory',
-		'filePath'
+		'maximumWords'
 	],
 	#category : 'Microdown-Blog',
 	#package : 'Microdown-Blog'
 }
 
-{ #category : 'rendering' }
-MicSingleSummarizer >> createHtmlFile: aMicRoot [
-
-	| a q date header |
-	a := (MicHTMLVisitor new visit: aMicRoot) at: 1.
-
-	date := (aMicRoot children at: 1) body at: #date.
-	date := date asDate.
-	header := self firstHeaderBlockOf: aMicRoot.
-
-	q := MicHTMLDocument new.
-	q configuration: a configuration.
-	q configuration document: q.
-	q
-		setCharSetUTF8;
-		destinationPath:
-			destinationDirectory , '\' , date year asString , '\'
-			, date monthName , '\' , date day asString , '\'.
-	filePath := q destinationPath , header text , '.html'.
-	^ q
-		  fileName: header text , '.html';
-		  writeDocument: a contents;
-		  contents
-]
-
-{ #category : 'accessing' }
-MicSingleSummarizer >> destinationDirectory [
-
-	^ destinationDirectory
-]
-
-{ #category : 'accessing' }
-MicSingleSummarizer >> destinationDirectory: aDestination [
-
-	destinationDirectory := aDestination
-]
-
-{ #category : 'accessing' }
-MicSingleSummarizer >> filePath [ 
-
-	^ filePath
-]
-
-{ #category : 'accessing' }
-MicSingleSummarizer >> filePath: aFilePath [
-
-	filePath := aFilePath.
-]
-
 { #category : 'accessing' }
 MicSingleSummarizer >> firstHeaderBlockOf: aMicRootBlock [
 
@@ -117,8 +66,6 @@ MicSingleSummarizer >> initialize [
 
 	super initialize.
 	maximumWords := 15.
-	"Directory for testing, we should change this for the final directory"
-	destinationDirectory := '\Users\qmout\Documents\Pharo\images\Microdown\output\html'
 ]
 
 { #category : 'accessing' }
@@ -130,7 +77,6 @@ MicSingleSummarizer >> maximumWords: anInteger [
 MicSingleSummarizer >> summarize: aMicRootBlock [
 
 	| element headerLink |
-	self createHtmlFile: aMicRootBlock .
 	element := MicRootBlock new.
 	headerLink := self transformHeaderToLinkHeader: (self firstHeaderBlockOf: aMicRootBlock).
 	element
@@ -154,10 +100,9 @@ MicSingleSummarizer >> transformHeaderToLinkHeader: aHeader [
 
 	| headerLink |
 	headerLink := MicHeaderBlock new.
+
 	headerLink
-		addChild:
-			((MicInlineParser parse: '[' , aHeader text , '](' , filePath , ')')
-				 at: 1);
+		addChild: ((self class makeALink: aHeader text to: '\') at: 1);
 		level: aHeader level.
 
 	^ headerLink
diff --git a/src/Microdown-Blog/MicSummarizer.class.st b/src/Microdown-Blog/MicSummarizer.class.st
index 159ac7e5..0b0825ad 100644
--- a/src/Microdown-Blog/MicSummarizer.class.st
+++ b/src/Microdown-Blog/MicSummarizer.class.st
@@ -1,6 +1,6 @@
 Class {
 	#name : 'MicSummarizer',
-	#superclass : 'Object',
+	#superclass : 'MicDocumentTransformer',
 	#instVars : [
 		'maximumFile'
 	],
@@ -8,34 +8,6 @@ Class {
 	#package : 'Microdown-Blog'
 }
 
-{ #category : 'generate' }
-MicSummarizer >> generateDateListSince2014 [
-
-	| date t |
-
-	date := Date newDay: 1 month: 1  year: 2014.
-
-	t := Timespan starting: date duration: (Duration years: [ Date today year - date year + 1] value ).
-	^ t months
- 
-]
-
-{ #category : 'generate' }
-MicSummarizer >> generateMicListBlockOfDate [
-
-	| root link text inlineParser listElement |
-	root := MicUnorderedListBlock new.
-	inlineParser := MicInlineParser new.
-
-	self generateDateListSince2014 do: [ :each |
-		listElement := MicListItemBlock new.
-		text := '[' , each asString , '](' , 'http://pharo.org' , ')'.
-		link := inlineParser parse: text.
-		(link at: 1) parent: listElement.
-		listElement parent: root ].
-	^ root
-]
-
 { #category : 'grouping' }
 MicSummarizer >> group: aListOfSingleSummarizer byDate: aDate [
 
@@ -64,31 +36,6 @@ MicSummarizer >> maximumFile: aNumber [
 	maximumFile := aNumber
 ]
 
-{ #category : 'rendering' }
-MicSummarizer >> render: aMicSummerize [
-
-	| a q |
-	
-	aMicSummerize addChild: self generateMicListBlockOfDate.
-	
-	a := (MicHTMLVisitor new visit: aMicSummerize) at: 1.
-
-	q := MicHTMLDocument new.
-	q configuration: a configuration.
-	q configuration document: q.
-	q setCharSetUTF8.
-	^ q
-		  writeDocumentBody: a contents;
-		  writeToFile;
-		  contents
-]
-
-{ #category : 'rendering' }
-MicSummarizer >> renderFiles: aListOfFiles [
-
-	^ self render: ( self summarizeFile: aListOfFiles )
-]
-
 { #category : 'as yet unclassified' }
 MicSummarizer >> summarize: aListOfSingleSummarizer [
 

From b85492f05a36371b04e05356c21dd74da935475e Mon Sep 17 00:00:00 2001
From: "quentin.moutte.etu" <quentin.moutte.etu@univ-lille.fr>
Date: Fri, 17 May 2024 15:00:25 +0200
Subject: [PATCH 2/3] create all file html for naviguate

---
 src/Microdown-Blog/MicBlogCreator.class.st    | 75 ++++++++++++++++++-
 .../MicDocumentTransformer.class.st           | 15 ++++
 .../MicSingleSummarizer.class.st              | 35 +++++----
 src/Microdown-Blog/MicSummarizer.class.st     |  6 +-
 4 files changed, 111 insertions(+), 20 deletions(-)

diff --git a/src/Microdown-Blog/MicBlogCreator.class.st b/src/Microdown-Blog/MicBlogCreator.class.st
index d8140c22..2d302854 100644
--- a/src/Microdown-Blog/MicBlogCreator.class.st
+++ b/src/Microdown-Blog/MicBlogCreator.class.st
@@ -29,15 +29,32 @@ MicBlogCreator >> collectAllFile [
 { #category : 'rendering' }
 MicBlogCreator >> createAllHtmlFile [
 
-	self collectAllFile do: [ :each | self createHtmlFile: (Microdown parse: each asFileReference contents) ]
+	| allFile allFileParse sum summar |
+	allFile := self collectAllFile.
+	allFileParse := allFile collect: [ :each |
+		                Microdown parse: each asFileReference contents ].
 
-	
+	allFileParse do: [ :each | self createHtmlFile: each ].
+
+	sum := MicSummarizer new.
+	sum targetDirectory: targetDirectory .
+
+	self createHtmlSummarize: (sum summarizeFile: allFile).
+
+	MicCreateMonth generateDateListSince2014 do: [ :each |
+		summar := sum group: allFileParse byDate: each.
+		summar isNotEmpty ifTrue: [
+			summar := sum summarize: summar.
+			self createHtmlGroupFile: summar at: each ] ]
 ]
 
 { #category : 'rendering' }
 MicBlogCreator >> createHtmlFile: aMicRoot [
 
-	| a q date header filePath |
+	| a q date header |
+	
+	self rootAssembly: aMicRoot.
+	
 	a := (MicHTMLVisitor new visit: aMicRoot) at: 1.
 
 	date := (aMicRoot children at: 1) body at: #date.
@@ -52,13 +69,63 @@ MicBlogCreator >> createHtmlFile: aMicRoot [
 		destinationPath:
 			targetDirectory , '\' , date year asString , '\' , date monthName
 			, '\' , date day asString , '\'.
-	filePath := q destinationPath , header text , '.html'.
 	^ q
 		  fileName: header text , '.html';
 		  writeDocument: a contents;
 		  contents
 ]
 
+{ #category : 'rendering' }
+MicBlogCreator >> createHtmlGroupFile: aMicRoot at: aDate [
+
+	| a q |
+	self rootAssembly: aMicRoot.
+	
+	a := (MicHTMLVisitor new visit: aMicRoot) at: 1.
+
+	q := MicHTMLDocument new.
+	q configuration: a configuration.
+	q configuration document: q.
+	q
+		setCharSetUTF8;
+		destinationPath:
+			targetDirectory , '\' , aDate year asString , '\' , aDate monthName
+			, '\'.
+	^ q
+		  writeDocument: a contents;
+		  contents
+]
+
+{ #category : 'rendering' }
+MicBlogCreator >> createHtmlSummarize: aMicRoot [
+
+	| a q |
+	
+	self rootAssembly: aMicRoot.
+	
+	a := (MicHTMLVisitor new visit: aMicRoot) at: 1.
+
+	q := MicHTMLDocument new.
+	q configuration: a configuration.
+	q configuration document: q.
+	q
+		setCharSetUTF8;
+		destinationPath: targetDirectory.
+	^ q
+		  writeDocument: a contents;
+		  contents
+]
+
+{ #category : 'as yet unclassified' }
+MicBlogCreator >> rootAssembly: aMicRoot [
+
+	aMicRoot addChild: (MicCreateMonth generateMicListBlockOfLinkDateTo: targetDirectory).
+	^ aMicRoot
+
+	
+	
+]
+
 { #category : 'accessing' }
 MicBlogCreator >> sourceDirectory [
 
diff --git a/src/Microdown-Blog/MicDocumentTransformer.class.st b/src/Microdown-Blog/MicDocumentTransformer.class.st
index 0c650556..2f115d2a 100644
--- a/src/Microdown-Blog/MicDocumentTransformer.class.st
+++ b/src/Microdown-Blog/MicDocumentTransformer.class.st
@@ -1,6 +1,9 @@
 Class {
 	#name : 'MicDocumentTransformer',
 	#superclass : 'Object',
+	#instVars : [
+		'targetDirectory'
+	],
 	#category : 'Microdown-Blog',
 	#package : 'Microdown-Blog'
 }
@@ -10,3 +13,15 @@ MicDocumentTransformer class >> makeALink: aText to: aLink [
 
 	^ MicInlineParser parse: '[' , aText, '](' , aLink , ')'
 ]
+
+{ #category : 'accessing' }
+MicDocumentTransformer >> targetDirectory [ 
+	
+	^ targetDirectory 
+]
+
+{ #category : 'accessing' }
+MicDocumentTransformer >> targetDirectory: target [
+
+	targetDirectory := target
+]
diff --git a/src/Microdown-Blog/MicSingleSummarizer.class.st b/src/Microdown-Blog/MicSingleSummarizer.class.st
index eb0dac1d..b2d551ac 100644
--- a/src/Microdown-Blog/MicSingleSummarizer.class.st
+++ b/src/Microdown-Blog/MicSingleSummarizer.class.st
@@ -61,6 +61,25 @@ MicSingleSummarizer >> firstParagraphBlockOf: aMicRootBlock [
 	^ newParagraph
 ]
 
+{ #category : 'parsing' }
+MicSingleSummarizer >> headerLink: aMicRootBlock [
+
+	| headerLink header date |
+	headerLink := MicHeaderBlock new.
+	header := self firstHeaderBlockOf: aMicRootBlock.
+	date := (aMicRootBlock children at: 1) body at: #date.
+	date := date asDate.
+	headerLink
+		addChild: ((self class
+				  makeALink: header text
+				  to:
+					  targetDirectory , date year asString , '/' , date monthName
+					  , '/' , date day asString , '/', header text) at: 1);
+		level: header level.
+
+	^ headerLink
+]
+
 { #category : 'initialization' }
 MicSingleSummarizer >> initialize [
 
@@ -78,7 +97,8 @@ MicSingleSummarizer >> summarize: aMicRootBlock [
 
 	| element headerLink |
 	element := MicRootBlock new.
-	headerLink := self transformHeaderToLinkHeader: (self firstHeaderBlockOf: aMicRootBlock).
+	headerLink := self headerLink: aMicRootBlock .
+	
 	element
 		addChild: aMicRootBlock children first;
 		addChild: headerLink;
@@ -94,16 +114,3 @@ MicSingleSummarizer >> summarizeFile: aFileReference [
 	p := Microdown parse: aFileReference asFileReference contents.
 	^ self summarize: p
 ]
-
-{ #category : 'parsing' }
-MicSingleSummarizer >> transformHeaderToLinkHeader: aHeader [
-
-	| headerLink |
-	headerLink := MicHeaderBlock new.
-
-	headerLink
-		addChild: ((self class makeALink: aHeader text to: '\') at: 1);
-		level: aHeader level.
-
-	^ headerLink
-]
diff --git a/src/Microdown-Blog/MicSummarizer.class.st b/src/Microdown-Blog/MicSummarizer.class.st
index 0b0825ad..d553f769 100644
--- a/src/Microdown-Blog/MicSummarizer.class.st
+++ b/src/Microdown-Blog/MicSummarizer.class.st
@@ -14,7 +14,7 @@ MicSummarizer >> group: aListOfSingleSummarizer byDate: aDate [
 	| metadataDate |
 
 	^ aListOfSingleSummarizer select: [ :each | metadataDate := ( each children at:1 ) body at: #date.
-		( metadataDate asDate isOnOrAfter:aDate ) and: [ metadataDate asDate isBefore: (aDate addMonths: 1) ] ]
+		 (metadataDate asDate month) = aDate ]
 ]
 
 { #category : 'initialization' }
@@ -43,6 +43,7 @@ MicSummarizer >> summarize: aListOfSingleSummarizer [
 	summarize := MicRootBlock new.
 
 	singleSummarizer := MicSingleSummarizer new.
+	singleSummarizer targetDirectory: targetDirectory.
 
 	selectionSize := maximumFile min: aListOfSingleSummarizer size.
 
@@ -60,9 +61,10 @@ MicSummarizer >> summarizeFile: aListOfFile [
 
 	| list singleSummarizer selectionSize |
 	singleSummarizer := MicSingleSummarizer new.
+	singleSummarizer targetDirectory: targetDirectory.
 
 	list := Array new: aListOfFile size.
-	
+
 	selectionSize := maximumFile min: aListOfFile size.
 
 	1 to: selectionSize do: [ :each |

From a39baf283b799dee25782b271f64538aaf86fc86 Mon Sep 17 00:00:00 2001
From: "quentin.moutte.etu" <quentin.moutte.etu@univ-lille.fr>
Date: Fri, 17 May 2024 16:58:47 +0200
Subject: [PATCH 3/3] fix and add test

---
 .../MicSingleSummarizerTest.class.st          | 137 ++++++++++++++++--
 .../MicSummarizerTest.class.st                |  26 +++-
 .../MicSingleSummarizer.class.st              |  37 ++++-
 src/Microdown-Blog/MicSummarizer.class.st     |   6 +-
 4 files changed, 180 insertions(+), 26 deletions(-)

diff --git a/src/Microdown-Blog-Tests/MicSingleSummarizerTest.class.st b/src/Microdown-Blog-Tests/MicSingleSummarizerTest.class.st
index 143c7b48..b4ad04a0 100644
--- a/src/Microdown-Blog-Tests/MicSingleSummarizerTest.class.st
+++ b/src/Microdown-Blog-Tests/MicSingleSummarizerTest.class.st
@@ -1,6 +1,9 @@
 Class {
 	#name : 'MicSingleSummarizerTest',
 	#superclass : 'TestCase',
+	#instVars : [
+		'micSingleSummarizer'
+	],
 	#category : 'Microdown-Blog-Tests',
 	#package : 'Microdown-Blog-Tests'
 }
@@ -16,7 +19,11 @@ MicSingleSummarizerTest >> generateFilesystemExample [
 
 	| file |
 	file := FileSystem memory workingDirectory / 'anExample1.md'.
-	file writeStreamDo: [ :stream | stream nextPutAll: '# A Cool Story
+	file writeStreamDo: [ :stream |
+		stream nextPutAll: '{
+    "date" : "8 January 2019"
+}
+# A Cool Story
 @sec1
 
 Pharo is cool but _this is_ a superlong _paragraph_ Simple powerful language: No constructors, no types declaration, no interfaces, no primitive types. Yet a powerful and elegant language with a full syntax fitting in one postcard! Pharo is objects and messages all the way down. _Live_, immersive environment: Immediate feedback at any moment of your development: _Developing_, testing, debugging. Even in production environments, you will never be stuck in compiling and deploying steps again!
@@ -32,7 +39,7 @@ this is a code blu blu
 ```
 ' ].
 
-	^ file.
+	^ file
 ]
 
 { #category : 'enumerating' }
@@ -46,6 +53,69 @@ MicSingleSummarizerTest >> generateFilesystemExampleEmpty [
 	^ file
 ]
 
+{ #category : 'enumerating' }
+MicSingleSummarizerTest >> generateFilesystemExampleWithoutDateInMetadata [
+
+	| file |
+	file := FileSystem memory workingDirectory / 'anExample1.md'.
+	file writeStreamDo: [ :stream |
+		stream nextPutAll: '{
+    "title" : "Cool"
+}
+# A Cool Story
+@sec1
+
+Pharo is cool but _this is_ a superlong _paragraph_ Simple powerful language: No constructors, no types declaration, no interfaces, no primitive types. Yet a powerful and elegant language with a full syntax fitting in one postcard! Pharo is objects and messages all the way down. _Live_, immersive environment: Immediate feedback at any moment of your development: _Developing_, testing, debugging. Even in production environments, you will never be stuck in compiling and deploying steps again!
+    
+
+Amazing debugging experience: The Pharo environment includes a debugger unlike anything you''ve seen before. It allows you to step through code, restart the execution of methods, create methods on the fly, and much more!
+
+Pharo is yours: Pharo is made by an incredible community, with more than 100 contributors for the last revision of the platform and hundreds of people contributing constantly with frameworks and libraries. Fully open-source: Pharo full stack is released under MIT License and available on GitHub
+
+
+```
+this is a code blu blu
+```
+' ].
+
+	^ file
+]
+
+{ #category : 'enumerating' }
+MicSingleSummarizerTest >> generateFilesystemExampleWithoutMetadata [
+
+	| file |
+	file := FileSystem memory workingDirectory / 'anExample1.md'.
+	file writeStreamDo: [ :stream |
+		stream nextPutAll: '# A Cool Story
+@sec1
+
+Pharo is cool but _this is_ a superlong _paragraph_ Simple powerful language: No constructors, no types declaration, no interfaces, no primitive types. Yet a powerful and elegant language with a full syntax fitting in one postcard! Pharo is objects and messages all the way down. _Live_, immersive environment: Immediate feedback at any moment of your development: _Developing_, testing, debugging. Even in production environments, you will never be stuck in compiling and deploying steps again!
+    
+
+Amazing debugging experience: The Pharo environment includes a debugger unlike anything you''ve seen before. It allows you to step through code, restart the execution of methods, create methods on the fly, and much more!
+
+Pharo is yours: Pharo is made by an incredible community, with more than 100 contributors for the last revision of the platform and hundreds of people contributing constantly with frameworks and libraries. Fully open-source: Pharo full stack is released under MIT License and available on GitHub
+
+
+```
+this is a code blu blu
+```
+' ].
+
+	^ file
+]
+
+{ #category : 'running' }
+MicSingleSummarizerTest >> setUp [
+
+	super setUp.
+
+	"Put here a common initialization logic for tests"
+	micSingleSummarizer := MicSingleSummarizer new.
+	micSingleSummarizer targetDirectory: '/html/'
+]
+
 { #category : 'tests' }
 MicSingleSummarizerTest >> testFirstHeaderBlockOf [
 
@@ -63,7 +133,10 @@ MicSingleSummarizerTest >> testFirstHeaderBlockOf [
 MicSingleSummarizerTest >> testFirstHeaderBlockOfWithNoHeader [
 
 	| header |
-	header := MicSingleSummarizer new firstHeaderBlockOf:(Microdown parse: self generateFilesystemExampleEmpty asFileReference contents).
+	header := micSingleSummarizer firstHeaderBlockOf:
+		          (Microdown parse:
+			           self generateFilesystemExampleEmpty asFileReference
+				           contents).
 	self assert: (header isKindOf: MicHeaderBlock).
 	self assert: header text equals: 'Please define a header'.
 
@@ -79,7 +152,7 @@ MicSingleSummarizerTest >> testFirstHeaderBlockOfWithNoHeader [
 MicSingleSummarizerTest >> testFirstParagraphBlockOf [
 
 	| paragraph |
-	paragraph := MicSingleSummarizer new
+	paragraph := micSingleSummarizer
 		             maximumWords: 3;
 		             firstParagraphBlockOf: self createMicRootBlock.
 	self assert: (paragraph isKindOf: MicParagraphBlock).
@@ -97,7 +170,7 @@ MicSingleSummarizerTest >> testFirstParagraphBlockOf [
 MicSingleSummarizerTest >> testFirstParagraphBlockOfWithEllipsis [
 
 	| paragraph |
-	paragraph := MicSingleSummarizer new
+	paragraph := micSingleSummarizer
 		             maximumWords: 3;
 		             firstParagraphBlockOf: self createMicRootBlock.
 	self assert: (paragraph isKindOf: MicParagraphBlock).
@@ -115,7 +188,7 @@ MicSingleSummarizerTest >> testFirstParagraphBlockOfWithEllipsis [
 MicSingleSummarizerTest >> testFirstParagraphBlockOfWithNoParagraph [
 
 	| paragraph |
-	paragraph := MicSingleSummarizer new
+	paragraph := micSingleSummarizer
 		             maximumWords: 3;
 		             firstParagraphBlockOf: (Microdown parse:
 					              self generateFilesystemExampleEmpty asFileReference
@@ -135,7 +208,7 @@ MicSingleSummarizerTest >> testFirstParagraphBlockOfWithNoParagraph [
 MicSingleSummarizerTest >> testFirstParagraphBlockOfWithoutEllipsis [
 
 	| paragraph |
-	paragraph := MicSingleSummarizer new
+	paragraph := micSingleSummarizer
 		             maximumWords: 5;
 		             firstParagraphBlockOf:
 			             (Microdown parse: 'Pharo is cool').
@@ -154,17 +227,55 @@ MicSingleSummarizerTest >> testFirstParagraphBlockOfWithoutEllipsis [
 MicSingleSummarizerTest >> testSummarize [
 
 	| root |
-	root := MicSingleSummarizer new summarize: self createMicRootBlock.
-	self assert: (root isKindOf: MicRootBlock);
-	assert: (root children size) equals: 3.
+	root := micSingleSummarizer summarize: self createMicRootBlock.
+	self
+		assert: (root isKindOf: MicRootBlock);
+		assert: root children size equals: 3
 ]
 
 { #category : 'tests' }
 MicSingleSummarizerTest >> testSummarizeFile [
 
 	| root |
-	root := MicSingleSummarizer new summarizeFile: self generateFilesystemExample.
+	root := micSingleSummarizer summarizeFile:
+		        self generateFilesystemExample.
 	self assert: (root isKindOf: MicRootBlock)
-	
-	
+]
+
+{ #category : 'tests' }
+MicSingleSummarizerTest >> testWithMetaDataAndWithDate [
+
+	| root |
+	root := micSingleSummarizer summarize: self createMicRootBlock.
+	self
+		assert: (root isKindOf: MicRootBlock);
+		assert: root children size equals: 3;
+		assert: ((root children at:1) body at: #date ) equals: '8 January 2019'.
+]
+
+{ #category : 'tests' }
+MicSingleSummarizerTest >> testWithMetaDataAndWithoutDate [
+
+	| root |
+	root := micSingleSummarizer summarize:
+		        (Microdown parse:
+			         self generateFilesystemExampleWithoutDateInMetadata).
+	self
+		assert: (root isKindOf: MicRootBlock);
+		assert: root children size equals: 3;
+		assert: ((root children at: 1) body at: #date)
+		equals: '25 December 1970'
+]
+
+{ #category : 'tests' }
+MicSingleSummarizerTest >> testWithoutMetaData [
+
+	| root |
+	root := micSingleSummarizer summarize: (Microdown parse:
+			         self generateFilesystemExampleWithoutMetadata ).
+	self
+		assert: (root isKindOf: MicRootBlock);
+		assert: root children size equals: 3;
+		assert: ((root children at: 1) body at: #date)
+		equals: '25 December 1970'
 ]
diff --git a/src/Microdown-Blog-Tests/MicSummarizerTest.class.st b/src/Microdown-Blog-Tests/MicSummarizerTest.class.st
index 4b2db999..8d64efa8 100644
--- a/src/Microdown-Blog-Tests/MicSummarizerTest.class.st
+++ b/src/Microdown-Blog-Tests/MicSummarizerTest.class.st
@@ -1,6 +1,9 @@
 Class {
 	#name : 'MicSummarizerTest',
 	#superclass : 'TestCase',
+	#instVars : [
+		'micSummarizer'
+	],
 	#category : 'Microdown-Blog-Tests',
 	#package : 'Microdown-Blog-Tests'
 }
@@ -22,6 +25,7 @@ MicSummarizerTest >> createListOfMicRootBlock [
 	| q singleSummarizer |
 	q := Array new: 3.
 	singleSummarizer := MicSingleSummarizer new.
+	singleSummarizer targetDirectory: '/html/'.
 	q
 		at: 1 put: (singleSummarizer summarize: (Microdown parse:
 							  self generateFilesystemExample1 asFileReference contents));
@@ -94,21 +98,33 @@ When you participate to the mooc you get access to the quizz and the credit vali
 	^ file
 ]
 
+{ #category : 'running' }
+MicSummarizerTest >> setUp [
+
+	super setUp.
+
+	"Put here a common initialization logic for tests"
+	micSummarizer := MicSummarizer new.
+	micSummarizer targetDirectory: '/html/'
+]
+
 { #category : 'tests' }
 MicSummarizerTest >> testGroupByDate [
 
 	| summary group |
 	summary := self createListOfMicRootBlock.
-	group := MicSummarizer new group: summary byDate: (Date newDay: 1 month: 'January'  year: 2019).
-	
-	self assert: group size equals: 2.
+	group := micSummarizer
+		         group: summary
+		         byDate: (Date newDay: 1 month: 'January' year: 2019).
+
+	self assert: group size equals: 2
 ]
 
 { #category : 'tests' }
 MicSummarizerTest >> testSummarize [
 
 	| summary |
-	summary := MicSummarizer new summarize: self createListOfMicRootBlock.
+	summary := micSummarizer summarize: self createListOfMicRootBlock.
 	self
 		assert: (summary isKindOf: MicRootBlock);
 		assert: summary children size equals: 6
@@ -118,7 +134,7 @@ MicSummarizerTest >> testSummarize [
 MicSummarizerTest >> testSummarizeFile [
 
 	| summary |
-	summary := MicSummarizer new summarizeFile: self createListOfFile.
+	summary := micSummarizer summarizeFile: self createListOfFile.
 	self
 		assert: (summary isKindOf: MicRootBlock);
 		assert: summary children size equals: 6
diff --git a/src/Microdown-Blog/MicSingleSummarizer.class.st b/src/Microdown-Blog/MicSingleSummarizer.class.st
index b2d551ac..2fdd0aa2 100644
--- a/src/Microdown-Blog/MicSingleSummarizer.class.st
+++ b/src/Microdown-Blog/MicSingleSummarizer.class.st
@@ -19,6 +19,7 @@ MicSingleSummarizer >> firstHeaderBlockOf: aMicRootBlock [
 			          h := MicHeaderBlock new.
 			          t := MicTextBlock new bodyString:
 				               'Please define a header'.
+				h level: 1.
 			          t parent: h.
 			          ^ h ].
 	newHeader := MicHeaderBlock new.
@@ -95,14 +96,15 @@ MicSingleSummarizer >> maximumWords: anInteger [
 { #category : 'parsing' }
 MicSingleSummarizer >> summarize: aMicRootBlock [
 
-	| element headerLink |
+	| element headerLink root|
+	root := self verifyDateMetadata: aMicRootBlock.
 	element := MicRootBlock new.
-	headerLink := self headerLink: aMicRootBlock .
-	
+	headerLink := self headerLink: root.
+
 	element
-		addChild: aMicRootBlock children first;
+		addChild: root children first;
 		addChild: headerLink;
-		addChild: (self firstParagraphBlockOf: aMicRootBlock).
+		addChild: (self firstParagraphBlockOf: root).
 
 	^ element
 ]
@@ -114,3 +116,28 @@ MicSingleSummarizer >> summarizeFile: aFileReference [
 	p := Microdown parse: aFileReference asFileReference contents.
 	^ self summarize: p
 ]
+
+{ #category : 'as yet unclassified' }
+MicSingleSummarizer >> verifyDateMetadata: aMicRootBlock [
+
+	| newMicRootBlock metadata |
+	newMicRootBlock := MicRootBlock new.
+
+	((aMicRootBlock children at: 1) isKindOf: MicMetaDataBlock)
+		ifFalse: [
+			metadata := MicMetaDataBlock new.
+			metadata body:
+				(Dictionary
+					 newFromKeys: #( #date )
+					 andValues: #( '25 December 1970' ))]
+		ifTrue: [
+			metadata := aMicRootBlock children at: 1.
+			(metadata body at: #date) ifNil: [
+				metadata body at: #date put: '25 December 1970' ] ].
+		metadata parent: newMicRootBlock.
+
+	aMicRootBlock children
+		do: [ :each | newMicRootBlock addChild: each ]
+		without: metadata.
+	^ newMicRootBlock
+]
diff --git a/src/Microdown-Blog/MicSummarizer.class.st b/src/Microdown-Blog/MicSummarizer.class.st
index d553f769..36ca0915 100644
--- a/src/Microdown-Blog/MicSummarizer.class.st
+++ b/src/Microdown-Blog/MicSummarizer.class.st
@@ -12,9 +12,9 @@ Class {
 MicSummarizer >> group: aListOfSingleSummarizer byDate: aDate [
 
 	| metadataDate |
-
-	^ aListOfSingleSummarizer select: [ :each | metadataDate := ( each children at:1 ) body at: #date.
-		 (metadataDate asDate month) = aDate ]
+	^ aListOfSingleSummarizer select: [ :each |
+		  metadataDate := (each children at: 1) body at: #date.
+		  metadataDate asDate month = aDate month]
 ]
 
 { #category : 'initialization' }
