Improving accented characters sanitation.

src/MiniDocs/String.extension.st

@@ -19,3 +19,16 @@ String >> asDashedLowercase [
 	
 	^ '-' join: (self substrings collect: [:each | each asLowercase ])
 ]
+
+{ #category : #'*MiniDocs' }
+String >> romanizeAccents [
+	| modified corrections |
+	corrections := { 
+		'ó' -> 'o' . 'ú' -> 'u' . 'ñ' -> 'n' .
+		'í' -> 'i' . 'á' -> 'a' . 'é' -> 'e' } asDictionary.
+	modified := self copy.
+	corrections keysAndValuesDo: [ :k :v | 
+		modified := modified copyReplaceAll: k with: v 
+	].
+	^ modified
+]