diff --git a/src/Microdown/MicAbstractBlock.class.st b/src/Microdown/MicAbstractBlock.class.st index 6a16f865..ba74625b 100644 --- a/src/Microdown/MicAbstractBlock.class.st +++ b/src/Microdown/MicAbstractBlock.class.st @@ -112,6 +112,11 @@ MicAbstractBlock >> initialize [ children := OrderedCollection new. ] +{ #category : 'testing' } +MicAbstractBlock >> isHeader [ + ^ false +] + { #category : 'testing' } MicAbstractBlock >> listItemBlockClass [ ^ MicListItemBlock diff --git a/src/Microdown/MicHeaderBlock.class.st b/src/Microdown/MicHeaderBlock.class.st index d87ae9bc..2cae5ef0 100644 --- a/src/Microdown/MicHeaderBlock.class.st +++ b/src/Microdown/MicHeaderBlock.class.st @@ -75,6 +75,11 @@ MicHeaderBlock >> headerElements: aCollection [ ] +{ #category : 'testing' } +MicHeaderBlock >> isHeader [ + ^ true +] + { #category : 'accessing' } MicHeaderBlock >> level [ ^ level diff --git a/src/Microdown/SequenceableCollection.extension.st b/src/Microdown/SequenceableCollection.extension.st index 84f605b0..737ad098 100644 --- a/src/Microdown/SequenceableCollection.extension.st +++ b/src/Microdown/SequenceableCollection.extension.st @@ -23,9 +23,3 @@ SequenceableCollection >> splitOnFirst: anObject noneValue: aValue [ ^ { self copyFrom: 1 to: element -1 . self copyFrom: element + 1 to: self size } ] - -{ #category : '*Microdown' } -SequenceableCollection >> trimBoth [ - - ^ self -]