From 0672a22476351e149ea142a5892145507ed9872d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Mon, 24 Jun 2024 17:03:56 +0200
Subject: [PATCH] before kine

---
 .../MicDummyBlogDeployer.class.st                 | 15 ++++++---------
 src/Microdown-Blog/MicBlogCreator.class.st        |  6 +-----
 2 files changed, 7 insertions(+), 14 deletions(-)

diff --git a/src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st b/src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st
index 7048476f..f4fabb5e 100644
--- a/src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st
+++ b/src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st
@@ -11,17 +11,14 @@ MicDummyBlogDeployer >> deploy [
 
 	(FileSystem workingDirectory / 'sourceDummy') ensureDeleteAll.
 	(FileSystem workingDirectory / 'sourceDummy') ensureCreateDirectory.
-	FileSystem workingDirectory / 'sourceDummy' /
-	 'file1.md'
-	writeStreamDo: [ :st |
+	FileSystem workingDirectory / 'sourceDummy' / 'file1.md'
+		writeStreamDo: [ :st |
 		st nextPutAll: MicBlogCreatorTest new fileContent1 ].
-	FileSystem workingDirectory / 'sourceDummy' /
-	 'file2.md'
-	writeStreamDo: [ :st |
+	FileSystem workingDirectory / 'sourceDummy' / 'file2.md'
+		writeStreamDo: [ :st |
 		st nextPutAll: MicBlogCreatorTest new fileContent2 ].
-	FileSystem workingDirectory / 'sourceDummy' /
-	 'file2.md'
-	writeStreamDo: [ :st |
+	FileSystem workingDirectory / 'sourceDummy' / 'file3.md'
+		writeStreamDo: [ :st |
 		st nextPutAll: MicBlogCreatorTest new fileContent3 ]
 ]
 
diff --git a/src/Microdown-Blog/MicBlogCreator.class.st b/src/Microdown-Blog/MicBlogCreator.class.st
index eac96855..f2684a5b 100644
--- a/src/Microdown-Blog/MicBlogCreator.class.st
+++ b/src/Microdown-Blog/MicBlogCreator.class.st
@@ -34,14 +34,10 @@ Class {
 	#package : 'Microdown-Blog'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : 'API' }
 MicBlogCreator class >> createFrom: source to: target [
 
 	| tmp1 |
-	(source fileSystem store isKindOf: WindowsStore) ifTrue: [
-		source fileSystem store currentDisk ].
-	(target fileSystem store isKindOf: WindowsStore) ifTrue: [
-		target fileSystem store currentDisk ].
 	tmp1 := self new.
 	tmp1
 		sourceDirectory: source;