MicFileNameWithSpaceChecker

src/Microdown-BookTester-Tests/AnObsoleteMicFileNameWithSpaceChecker.class.st

@@ -0,0 +1,9 @@
+Class {
+	#name : 'AnObsoleteMicFileNameWithSpaceChecker',
+	#superclass : 'MicChecker',
+	#instVars : [
+		'errors'
+	],
+	#category : 'Microdown-BookTester',
+	#package : 'Microdown-BookTester'
+}

src/Microdown-BookTester-Tests/MicFileNameWithSpaceChecker.class.st

@@ -0,0 +1,34 @@
+Class {
+	#name : 'MicFileNameWithSpaceChecker',
+	#superclass : 'MicChecker',
+	#instVars : [
+		'errors'
+	],
+	#category : 'Microdown-BookTester',
+	#package : 'Microdown-BookTester'
+}
+
+{ #category : 'accessing' }
+MicFileNameWithSpaceChecker >> errors [
+	^ errors ifNil: [ errors := OrderedCollection new ]
+]
+
+{ #category : 'accessing' }
+MicFileNameWithSpaceChecker >> proposedNameFor: aFigure [
+	^ aFigure url copyReplaceAll: ' ' with: '-'
+]
+
+{ #category : 'accessing' }
+MicFileNameWithSpaceChecker >> renameFileOnDiskFor: aFigure [
+	| oldFile newName |
+	oldFile := aFigure url asFileReference.
+	newName := self proposedNameFor: aFigure.
+	oldFile exists ifTrue: [ oldFile renameTo: newName ]
+]
+
+{ #category : 'accessing' }
+MicFileNameWithSpaceChecker >> visitFigure: aFigure [
+	(aFigure url includes: $ ) ifTrue: [ 
+		self errors add: aFigure ].
+	super visitFigure: aFigure
+]

src/Microdown-BookTester-Tests/MicFileNameWithSpaceCheckerTest.class.st

@@ -0,0 +1,34 @@
+Class {
+	#name : 'MicFileNameWithSpaceCheckerTest',
+	#superclass : 'TestCase',
+	#category : 'Microdown-BookTester-Tests',
+	#package : 'Microdown-BookTester-Tests'
+}
+
+{ #category : 'tests' }
+MicFileNameWithSpaceCheckerTest >> testFileWithSpaceIsDetected [
+	| checker document |
+	document := Microdown parse: '![mon image](fichier avec des espaces.png)'.
+	checker := MicFileNameWithSpaceChecker new.
+	checker visit: document.
+	self assert: checker errors size equals: 1.
+]
+
+{ #category : 'tests' }
+MicFileNameWithSpaceCheckerTest >> testFileWithoutSpaceIsNotDetected [
+	| checker document |
+	document := Microdown parse: '![mon image](fichier-parfait.png)'.
+	checker := MicFileNameWithSpaceChecker new.
+	checker visit: document.
+	self assert: checker errors isEmpty
+]
+
+{ #category : 'tests' }
+MicFileNameWithSpaceCheckerTest >> testProposedCorrectionForSpacedFilename [
+	| checker document figure |
+	document := Microdown parse: '![mon image](fichier avec des espaces.png)'.
+	checker := MicFileNameWithSpaceChecker new.
+	checker visit: document.
+	figure := checker errors first.
+	self assert: (checker proposedNameFor: figure) equals: 'fichier-avec-des-espaces.png'
+]

src/Microdown-BookTester/MicFileNameWithSpaceChecker.class.st

@@ -0,0 +1,34 @@
+Class {
+	#name : 'MicFileNameWithSpaceChecker',
+	#superclass : 'MicChecker',
+	#instVars : [
+		'errors'
+	],
+	#category : 'Microdown-BookTester',
+	#package : 'Microdown-BookTester'
+}
+
+{ #category : 'accessing' }
+MicFileNameWithSpaceChecker >> errors [
+	^ errors ifNil: [ errors := OrderedCollection new ]
+]
+
+{ #category : 'accessing' }
+MicFileNameWithSpaceChecker >> proposedNameFor: aFigure [
+	^ aFigure url copyReplaceAll: ' ' with: '-'
+]
+
+{ #category : 'accessing' }
+MicFileNameWithSpaceChecker >> renameFileOnDiskFor: aFigure [
+	| oldFile newName |
+	oldFile := aFigure url asFileReference.
+	newName := self proposedNameFor: aFigure.
+	oldFile exists ifTrue: [ oldFile renameTo: newName ]
+]
+
+{ #category : 'accessing' }
+MicFileNameWithSpaceChecker >> visitFigure: aFigure [
+	(aFigure url includes: $ ) ifTrue: [ 
+		self errors add: aFigure ].
+	super visitFigure: aFigure
+]