From 397cbf4120cfaea2c032bb695c204c229d356f4d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Mon, 28 Oct 2024 11:52:18 +0100
Subject: [PATCH 1/2] Fixing integration classification protocols :(

---
 src/Microdown/MicInlineDelimiter.class.st | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Microdown/MicInlineDelimiter.class.st b/src/Microdown/MicInlineDelimiter.class.st
index db4103ad..ed09d894 100644
--- a/src/Microdown/MicInlineDelimiter.class.st
+++ b/src/Microdown/MicInlineDelimiter.class.st
@@ -43,7 +43,7 @@ MicInlineDelimiter class >> at: markup [
 	^ DelimiterDictionary at: markup ifAbsent: [ nil ]
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initialize [
 
 	<script>
@@ -51,7 +51,7 @@ MicInlineDelimiter class >> initialize [
 	Regex := nil
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initializeDelimiters [
 
 	self = MicInlineDelimiter ifFalse: [ ^ self ].
@@ -59,7 +59,7 @@ MicInlineDelimiter class >> initializeDelimiters [
 	self allSubclasses do: [ :class | class initializeDelimiters ]
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initializeRegex [
 
 	Regex := ((self all collect: [ :each | each markupAsRegex]) joinUsing: '|') asRegex

From aa249ef056b4d6067e7669186840382d3024d3f6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Mon, 28 Oct 2024 12:26:52 +0100
Subject: [PATCH 2/2] fixing protocol.

---
 src/Microdown/MicAnnotatedParagraphBlock.class.st | 6 +++---
 src/Microdown/MicEnvironmentBlock.class.st        | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/Microdown/MicAnnotatedParagraphBlock.class.st b/src/Microdown/MicAnnotatedParagraphBlock.class.st
index aa0f27a6..ca64cea1 100644
--- a/src/Microdown/MicAnnotatedParagraphBlock.class.st
+++ b/src/Microdown/MicAnnotatedParagraphBlock.class.st
@@ -42,20 +42,20 @@ MicAnnotatedParagraphBlock >> closeMe [
 	body := self inlineParse: body
 ]
 
-{ #category : 'testing' }
+{ #category : 'accessing' }
 MicAnnotatedParagraphBlock >> defaultLabel [ 
 	
 	^ #note
 ]
 
-{ #category : 'testing' }
+{ #category : 'initialization' }
 MicAnnotatedParagraphBlock >> initialize [
 
 	super initialize.
 	validLabels := { #note. #important. #todo }
 ]
 
-{ #category : 'testing' }
+{ #category : 'accessing' }
 MicAnnotatedParagraphBlock >> lineMarkup [
 	
 	^ AnnotatedParagraphOpeningMarkup
diff --git a/src/Microdown/MicEnvironmentBlock.class.st b/src/Microdown/MicEnvironmentBlock.class.st
index 933db360..1e733c7b 100644
--- a/src/Microdown/MicEnvironmentBlock.class.st
+++ b/src/Microdown/MicEnvironmentBlock.class.st
@@ -119,19 +119,19 @@ MicEnvironmentBlock >> arguments [
 	^ arguments
 ]
 
-{ #category : 'parse support' }
+{ #category : 'accessing' }
 MicEnvironmentBlock >> body [
 
 	^ String streamContents: [:s |  self bodyElements do: [ :each | s nextPutAll: each substring ] ]
 ]
 
-{ #category : 'parse support' }
+{ #category : 'accessing' }
 MicEnvironmentBlock >> bodyElements [
 
 	^ children
 ]
 
-{ #category : 'parse support' }
+{ #category : 'accessing' }
 MicEnvironmentBlock >> bodyFromLine: line [
 	
 	| newBlock |
@@ -176,7 +176,7 @@ MicEnvironmentBlock >> extractFirstLineFrom: aLine [
 		ifFalse: [ firstLine ]
 ]
 
-{ #category : 'parse support' }
+{ #category : 'initialization' }
 MicEnvironmentBlock >> initialize [
 
 	super initialize.