MiniDocs/src/MiniDocs/String.extension.st

Extension { #name : #String }

{ #category : #'*MiniDocs' }
String >> accentedCharactersCorrection [
	| modified corrections |
	corrections := { 
		'ó' -> 'ó' . 'ú' -> 'ú' . 'ñ' -> 'ñ' .
		'í' -> 'í' . 'á' -> 'á' . 'é' -> 'é' . '’' -> $' asString} asDictionary.
	modified := self copy.
	corrections keysAndValuesDo: [ :k :v | 
		modified := modified copyReplaceAll: k with: v 
	].
	^ modified
]

{ #category : #'*MiniDocs' }
String >> asDashedLowercase [
	"I convert phrases like 'This is a phrase' into 'this-is-a-phrase'."
	
	^ '-' join: (self substrings collect: [:each | each asLowercase ])
]