Extension { #name : #String }

{ #category : #'*Grafoscopio-Utils' }
String >> asCapitalizedPhrase [
	"I convert phrases like 'THIS IS A PHASE' into 'This is a Phrase'."
	
	^ Character space join: (self substrings collect: [:each | each asLowercase capitalized ])
]

{ #category : #'*Grafoscopio-Utils' }
String >> isOrgModeHeader [
	^ self beginsWithAnyOf: #('* ' '** ' '*** ' '**** ' '***** ' '***** ')

	
]