gt-crashes/2 #3
@ -48,6 +48,7 @@ PubPubContent >> printOn: aStream [
|
|||||||
PubPubContent >> shortName [
|
PubPubContent >> shortName [
|
||||||
| sanitized |
|
| sanitized |
|
||||||
sanitized := (self title splitOn: $:) first.
|
sanitized := (self title splitOn: $:) first.
|
||||||
|
sanitized := sanitized copyReplaceAll: '’' with: ''.
|
||||||
sanitized := sanitized asCamelCase.
|
sanitized := sanitized asCamelCase.
|
||||||
sanitized at: 1 put: sanitized first asLowercase.
|
sanitized at: 1 put: sanitized first asLowercase.
|
||||||
^ sanitized
|
^ sanitized
|
||||||
|
Loading…
Reference in New Issue
Block a user