diff --git a/src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st b/src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st index 073e653f..20584425 100644 --- a/src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st +++ b/src/Microdown-Blog-Tests/MicDummyBlogDeployer.class.st @@ -24,3 +24,32 @@ MicDummyBlogDeployer >> deploy [ writeStreamDo: [ :st | st nextPutAll: MicBlogCreatorTest new fileContent3 ] ] + +{ #category : 'as yet unclassified' } +MicDummyBlogDeployer >> go [ + "self new go" + + self deploy. + MicBlogCreator + createFrom: FileSystem workingDirectory / 'sourceDummy' + to: FileSystem workingDirectory / 'outputDummy'. + self launchHTTPServer. + self launchBrowser. + +] + +{ #category : 'odit' } +MicDummyBlogDeployer >> launchBrowser [ + WebBrowser openOn: 'http://localhost:9090/file1.html' +] + +{ #category : 'doit' } +MicDummyBlogDeployer >> launchHTTPServer [ + (ZnServer defaultOn: 9090) start. +ZnServer default + delegate: + (ZnStaticFileServerDelegate new + directory: '/Users/ducasse/Documents/Pharo/images/P12PillarSlide/outputDummy/html' asFileReference; + yourself). + +] diff --git a/src/Microdown-Blog/MicBlogCreator.class.st b/src/Microdown-Blog/MicBlogCreator.class.st index 4e1e3658..9e099f6f 100644 --- a/src/Microdown-Blog/MicBlogCreator.class.st +++ b/src/Microdown-Blog/MicBlogCreator.class.st @@ -253,7 +253,8 @@ MicBlogCreator >> targetDirectory [ MicBlogCreator >> targetDirectory: aFileReference [ targetDirectory := aFileReference. - + aFileReference ensureDeleteAll. + aFileReference ensureCreateDirectory. sum targetDirectory: targetDirectory ]