-
Notifications
You must be signed in to change notification settings - Fork 3
Commit
…ategories and descriptions
- Loading branch information
There are no files selected for viewing
This file was deleted.
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,5 @@ | ||
initialize-release | ||
removeAllNonPersistentDoIts | ||
|
||
self changeListItems: | ||
(self changeListItems reject: [:each | each category = #nonPersistentDoIt]) |
This file was deleted.
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
accessing | ||
category: anObject | ||
|
||
category := anObject |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
accessing | ||
category | ||
|
||
^ category |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
accessing | ||
description: anObject | ||
|
||
description := anObject |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,7 +1,4 @@ | ||
accessing | ||
description | ||
|
||
| plainDescription | | ||
plainDescription := (CRChangeRecordDescriber descriptionFor: self) asText. | ||
self isPicked ifFalse: [self addUnpickedAttributes: plainDescription]. | ||
^ plainDescription | ||
^ description |
This file was deleted.
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,5 @@ | ||
accessing | ||
isPicked: aBoolean | ||
|
||
isPicked := aBoolean | ||
isPicked := aBoolean. | ||
self refreshDescriptionAppearance |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,6 @@ | ||
text-attributes | ||
refreshDescriptionAppearance | ||
|
||
self isPicked | ||
ifTrue: [self showDescriptionAsPicked] | ||
ifFalse: [self showDescriptionAsUnpicked] |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
text-attributes | ||
showDescriptionAsPicked | ||
|
||
self unpickedAttributes do: [:attribute | self description removeAttribute: attribute] |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
text-attributes | ||
showDescriptionAsUnpicked | ||
|
||
self unpickedAttributes do: [:attribute | self description addAttribute: attribute] |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
actions | ||
togglePickStatus | ||
toggleIsPicked | ||
|
||
self isPicked: self isPicked not |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
text-attributes | ||
unpickedAttributes | ||
|
||
^ {TextEmphasis italic. TextEmphasis struckOut} |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,8 @@ | ||
describing | ||
categoryAndDescriptionFor: aChangeListItem | ||
aChangeListItem type caseOf: { | ||
[#method] -> [^ {#method. self methodDescriptionFor: aChangeListItem}]. | ||
[#classComment] -> [^ {#classComment. self classCommentDescriptionFor: aChangeListItem}]. | ||
[#doIt] -> [^ self doItCategoryAndDescriptionFor: aChangeListItem]. | ||
} | ||
"otherwise: [^ 'MISC should be removed ']" |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,17 @@ | ||
regex & descriptions | ||
categoryRegexDescriptionList | ||
|
||
^ { | ||
{ #categoryCreated. '^([^ ]+) (class )?organization addCategory\: #(.+)$'. [:m | '#', (m subexpression: 4), ' in #', (m subexpression: 2)]}. | ||
{ #categoryRemoved. '^([^ ]+) (class )?organization removeCategory\: #(.+)$'. [:m | '#', (m subexpression: 4), ' from #', (m subexpression: 2)]}. | ||
{ #categoryRenamed. '^([^ ]+) (class )?organization renameCategory\: #(.+) toBe\: #(.+)$'. [:m | '#', (m subexpression: 4), ' -> #', (m subexpression: 5), ' in #', (m subexpression: 2)]}. | ||
{ #class. '^[^ ]+ subclass\: #([\S]+).*category\: ''([^'']+)''$'. [:m | '#', (m subexpression: 2), ' in #', (m subexpression: 3)]}. | ||
{ #classMoved. '^SystemOrganization classify\: #(.+) under\: #(.+)$'. [:m | '#', (m subexpression: 2), ' to #', (m subexpression: 3)]}. | ||
{ #classRemoved. '^Smalltalk removeClassNamed\: #([^ ]+)$'. [:m | '#', (m subexpression: 2)]}. | ||
{ #classRenamed. '^Smalltalk renameClassNamed\: #([^ ]+) as\: #([^ ]+)$'. [:m | '#', (m subexpression: 2), ' -> #', (m subexpression: 3)]}. | ||
{ #methodRecategorized. '^([^ ]+) (class )?organization classify\: #(.+) under\: #(.+)$'. [:m | '#', (m subexpression: 4), ' to #', (m subexpression: 5)]}. | ||
{ #methodRemoved. '^([^ ]+) (class )?removeSelector\: #([^ ]+)$'. [:m | '#', (m subexpression: 4), ' from #', (m subexpression: 2)]}. | ||
{ #packageCreated. '^SystemOrganization addCategory\: #(.+)$'. [:m | '#', (m subexpression: 2)]}. | ||
{ #packageRemoved. '^SystemOrganization removeSystemCategory\: #(.+)$'. [:m | '#', (m subexpression: 2)]}. | ||
{ #packageRenamed. '^SystemOrganization renameCategory\: #(.+) toBe\: #(.+)$'. [:m | '#', (m subexpression: 2), ' -> #', (m subexpression: 3)]}. | ||
} |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
describing | ||
classCommentDescriptionFor: aChangeListItem | ||
|
||
^ aChangeListItem commentClass name , ' ', aChangeListItem stamp |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,11 @@ | ||
describing | ||
doItCategoryAndDescriptionFor: aChangeListItem | ||
|
||
self changeString: aChangeListItem string. | ||
self categoryRegexDescriptionList | ||
do: [:triple | self | ||
if: triple second asRegex | ||
matchesChangeString: [:matcher | ^ {triple first. triple third value: matcher}]]. | ||
|
||
"otherwise it's non persistent doits" | ||
^ {#nonPersistentDoIt. aChangeListItem string} |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
main | ||
describing | ||
if: anMatcher matchesChangeString: aBlock | ||
|
||
^ (anMatcher matches: self changeString) ifTrue: [^ aBlock value: anMatcher] |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,4 @@ | ||
describing | ||
methodDescriptionFor: aChangeListItem | ||
|
||
^ aChangeListItem methodClassName , ' ' , aChangeListItem methodSelector, ' ', aChangeListItem stamp |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,14 @@ | ||
instance creation | ||
newChangeListItemWith: aChangeRecord | ||
|
||
| changeListItem | | ||
|
||
changeListItem := CRChangeListItem new changeRecord: aChangeRecord. | ||
self setCategoryAndDescriptionOf: changeListItem. | ||
|
||
^ changeListItem | ||
pick; | ||
yourself | ||
|
||
|
||
|
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,7 @@ | ||
instance creation | ||
setCategoryAndDescriptionOf: aChangeListItem | ||
|
||
| categoryDescriptionTuple | | ||
categoryDescriptionTuple := (self categoryAndDescriptionFor: aChangeListItem). | ||
aChangeListItem category: categoryDescriptionTuple first. | ||
aChangeListItem description: (aChangeListItem category, ': ', categoryDescriptionTuple second) asText. |
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,14 @@ | ||
{ | ||
"class" : { | ||
"categoryAndDescriptionFor:" : "abd 6/17/2021 12:51", | ||
"categoryRegexDescriptionList" : "abd 6/17/2021 12:24", | ||
"changeString" : "abd 6/8/2021 20:02", | ||
"changeString:" : "abd 6/8/2021 19:58", | ||
"classCommentDescriptionFor:" : "abd 6/17/2021 11:31", | ||
"doItCategoryAndDescriptionFor:" : "abd 6/17/2021 12:51", | ||
"if:matchesChangeString:" : "abd 6/17/2021 11:14", | ||
"methodDescriptionFor:" : "abd 6/17/2021 11:31", | ||
"newChangeListItemWith:" : "abd 6/17/2021 11:56", | ||
"setCategoryAndDescriptionOf:" : "abd 6/17/2021 12:51" }, | ||
"instance" : { | ||
} } |
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.
This file was deleted.