From 0ce6b89b6c1c656848dc009c1a31087b358db5bd Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 2 Nov 2024 17:38:12 -0500
Subject: [PATCH] Implementing page "semantic splitters".

---
 src/MiniDocs/ByteString.extension.st | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/MiniDocs/ByteString.extension.st b/src/MiniDocs/ByteString.extension.st
index 99f4a05..c36f217 100644
--- a/src/MiniDocs/ByteString.extension.st
+++ b/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."