Some cleanups

src/Microdown-Tests/MicMicrodownSnippetFactory.class.st

@@ -51,13 +51,6 @@ MicMicrodownSnippetFactory class >> buildDocument [
 							  << (factory perform: elementTypeSelector) ] ] ]
 ]
 
-{ #category : 'utilities' }
-MicMicrodownSnippetFactory class >> protocolNames [
-	"Return the list of all the protocol names included in this class."
-
-	^ self protocols collect: [ :protocol | protocol name ]
-]
-
 { #category : 'anchor' }
 MicMicrodownSnippetFactory >> anchorAreTrimedSample [
 	^ AnchorMarkup, '  test  '

src/Microdown/MicAnnotatedParagraphBlock.class.st

@@ -48,7 +48,7 @@ MicAnnotatedParagraphBlock >> defaultLabel [
 	^ #note
 ]
 
-{ #category : 'testing' }
+{ #category : 'initialization' }
 MicAnnotatedParagraphBlock >> initialize [
 
 	super initialize.

src/Microdown/MicEnvironmentBlock.class.st

@@ -176,7 +176,7 @@ MicEnvironmentBlock >> extractFirstLineFrom: aLine [
 		ifFalse: [ firstLine ]
 ]
 
-{ #category : 'parse support' }
+{ #category : 'initialization' }
 MicEnvironmentBlock >> initialize [
 
 	super initialize.

src/Microdown/MicFigureBlock.class.st

@@ -30,18 +30,6 @@ MicFigureBlock class >> openingDelimiter [
     ^ FigureNameOpenerMarkup
 ]
 
-{ #category : 'testing' }
-MicFigureBlock >> hasAnchor [
-
-	^ self anchor isNotNil
-]
-
-{ #category : 'testing' }
-MicFigureBlock >> hasCaption [
-
-	^ captionElements isNotNil 
-]
-
 { #category : 'visiting' }
 MicFigureBlock >> accept: aVisitor [
  	^ aVisitor visitFigure: self

src/Microdown/MicInlineDelimiter.class.st

@@ -43,23 +43,23 @@ MicInlineDelimiter class >> at: markup [
 	^ DelimiterDictionary at: markup ifAbsent: [ nil ]
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initialize [
 
 	<script>
 	DelimiterDictionary := nil.
 	Regex := nil
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initializeDelimiters [
 
 	self = MicInlineDelimiter ifFalse: [ ^ self ].
 	DelimiterDictionary := Dictionary new.
 	self allSubclasses do: [ :class | class initializeDelimiters ]
 ]
 
-{ #category : 'initialization' }
+{ #category : 'class initialization' }
 MicInlineDelimiter class >> initializeRegex [
 
 	Regex := ((self all collect: [ :each | each markupAsRegex]) joinUsing: '|') asRegex

src/Microdown/MicInlineElement.class.st

@@ -52,12 +52,6 @@ MicInlineElement >> closingDelimiter [
 	^ self class closingDelimiter
 ]
 
-{ #category : 'private' }
-MicInlineElement >> inlineParserClass [
-
-	^ MicInlineParser
-]
-
 { #category : 'accessing' }
 MicInlineElement >> kind [
 	"Should only be used for tests"

src/Microdown-Tests/MicPropertyError.class.st → src/Microdown/MicPropertyError.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : 'MicPropertyError',
 	#superclass : 'Error',
-	#category : 'Microdown-Tests-Parser',
-	#package : 'Microdown-Tests',
+	#category : 'Microdown-Parser',
+	#package : 'Microdown',
 	#tag : 'Parser'
 }

src/Microdown/MicTextBlock.class.st

@@ -14,20 +14,6 @@ MicTextBlock >> accept: aVisitor [
 	^ aVisitor visitText: self
 ]
 
-{ #category : 'obsolete' }
-MicTextBlock >> bodystring [
-	"Should only be used for tests"
-	self deprecated: 'Just use bodyString' transformWith: '`@rec bodystring' -> '`@rec bodyString'.
-	^ bodyString 
-]
-
-{ #category : 'obsolete' }
-MicTextBlock >> substring [
-	"Should only be used for tests"
-	self deprecated: 'Just use bodystring' transformWith: '`@rec substring' -> '`@rec bodystring'.
-	^ bodyString 
-]
-
 { #category : 'obsolete' }
 MicTextBlock >> substring: aBody [
 	"Should only be used for tests"