From 92760a54a9a392d2f501b847d9d8f904d6a47e86 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 17 Nov 2024 12:19:39 -0500
Subject: [PATCH] Minor renaming and tagging while splitting the document.

---
 src/MiniDocs/LePage.extension.st        | 9 +++++----
 src/MiniDocs/LeTextSnippet.extension.st | 2 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st
index 347aa18..109076f 100644
--- a/src/MiniDocs/LePage.extension.st
+++ b/src/MiniDocs/LePage.extension.st
@@ -3,7 +3,7 @@ Extension { #name : #LePage }
 { #category : #'*MiniDocs' }
 LePage >> asHtmlFile [
 
-	self asMarkdownFileWIthMetadataWrappers.
+	self asMarkdownFileWithMetadataWrappers.
 	self defaultPandocTemplate exists
 		ifFalse: [ MarkupFile installTemplate: 'https://mutabit.com/repos.fossil/mutabit/doc/trunk/plantillas/Pandoc/clean-menu-mod.html' into: self defaultPandocTemplate parent ].
 		
@@ -62,7 +62,7 @@ LePage >> asMarkdown [
 ]
 
 { #category : #'*MiniDocs' }
-LePage >> asMarkdownFileWIthMetadataWrappers [
+LePage >> asMarkdownFileWithMetadataWrappers [
 	| folder |
 	folder := self storage.
 	^ MarkupFile exportAsFileOn: folder / self markdownFileName containing: self asMarkdownWithMetadataWrappers  contents
@@ -316,8 +316,9 @@ LePage >> splitAdmonitionSnippets [
 		nodeContent := node string.
 		nodeContent startsWithMarkdownAdmonition
 			ifTrue: [ | snippetCommand |
-					snippetCommand := node splitSnippetCommandAtPosition: nodeContent admonitionEndingPosition.
-				snippetCommand execute
+				snippetCommand := node splitSnippetCommandAtPosition: nodeContent admonitionEndingPosition.
+				snippetCommand execute.
+				node tagWith: (nodeContent lines first trimBoth withoutPrefix: ':::')
 			]
 		]
 	]
diff --git a/src/MiniDocs/LeTextSnippet.extension.st b/src/MiniDocs/LeTextSnippet.extension.st
index 9beb7c3..f4fb2d8 100644
--- a/src/MiniDocs/LeTextSnippet.extension.st
+++ b/src/MiniDocs/LeTextSnippet.extension.st
@@ -62,7 +62,7 @@ LeTextSnippet >> parentId [
 ]
 
 { #category : #'*MiniDocs' }
-LeTextSnippet >> taggedWith: aString [ 
+LeTextSnippet >> tagWith: aString [ 
 	self tags add: aString.
 ]