16 lines
410 B
Smalltalk
16 lines
410 B
Smalltalk
|
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: #('* ' '** ' '*** ' '**** ' '***** ' '***** ')
|
||
|
|
|
||
|
|
|
||
|
|
]
|