Implementing page "semantic splitters".

src/MiniDocs/ByteString.extension.st

@@ -1,5 +1,17 @@
 Extension { #name : #ByteString }
 
+{ #category : #'*MiniDocs' }
+ByteString >> admonitionStartingLines [
+	| admonitions response |
+	admonitions := #('info' 'success' 'warning' 'danger') collect: [ :each | ':::', each ].
+	response := OrderedDictionary new.
+	self lines doWithIndex: [:line :index |
+		(admonitions includes: line trimBoth)
+			ifTrue: [ response at: index put: line trimBoth ]
+	].
+	^ response
+]
+
 { #category : #'*MiniDocs' }
 ByteString >> email [
 	"Quick fix for importing Lepiter pages that have a plain ByteString field as email."