fixing headerlink

pillar-markup · Jun 24, 2024 · 06e464b · 06e464b
1 parent b7c3984
commit 06e464b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/src/Microdown-Blog/MicBlogCreator.class.st b/src/Microdown-Blog/MicBlogCreator.class.st
@@ -88,7 +88,9 @@ MicBlogCreator >> createAllHtmlFile [
 
 	"Create _monthListBlog"
 	listOfSingleSummary := allFileParse collect: [ :each |
-		                       MicSingleSummarizer new summarize: each ].
+		                       MicSingleSummarizer new
+										 targetDirectory: targetDirectory;
+		  summarize: each ].
 	self initializeMonthList: listOfSingleSummary.
 
 	"transform all markdown file into html file"

diff --git a/src/Microdown-Blog/MicSingleSummarizer.class.st b/src/Microdown-Blog/MicSingleSummarizer.class.st
@@ -69,17 +69,15 @@ MicSingleSummarizer >> firstParagraphBlockOf: aMicRootBlock [
 { #category : 'parsing' }
 MicSingleSummarizer >> headerLink: aMicRootBlock [
 
-	| headerLink header disk |
+	| headerLink header path |
 	headerLink := MicHeaderBlock new.
 	header := self firstHeaderBlockOf: aMicRootBlock.
-
-	(aMicRootBlock fromFile fileSystem store isKindOf: WindowsStore) ifTrue: [
-		disk := 'File:///' , aMicRootBlock fromFile fileSystem store currentDisk ].
-	disk ifNil: [ disk := '' ].
+
+	path := (aMicRootBlock fromFile withoutExtension fullName
+		         withoutPrefix: targetDirectory fullName) , '.html'.
 
 	headerLink
-		addChild:
-			(self makeALink: header text to: disk, aMicRootBlock fromFile fullName);
+		addChild: (self makeALink: header text to: path);
 		level: header level.
 
 	^ headerLink