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