From 2e5e8eb2b2d8a2d3ed5f375113830492094a07c1 Mon Sep 17 00:00:00 2001
From: Offray <offray.luna@mutabit.com>
Date: Fri, 9 Sep 2022 12:36:30 -0500
Subject: [PATCH] Adding coding rules.

---
 src/MiniDocs/LePictureSnippet.extension.st | 15 +++++++++++++++
 src/MiniDocs/LeTextualSnippet.extension.st | 22 ++++++++++++++++++++++
 src/MiniDocs/ManifestMiniDocs.class.st     |  5 +++++
 3 files changed, 42 insertions(+)
 create mode 100644 src/MiniDocs/LePictureSnippet.extension.st

diff --git a/src/MiniDocs/LePictureSnippet.extension.st b/src/MiniDocs/LePictureSnippet.extension.st
new file mode 100644
index 0000000..78e945b
--- /dev/null
+++ b/src/MiniDocs/LePictureSnippet.extension.st
@@ -0,0 +1,15 @@
+Extension { #name : #LePictureSnippet }
+
+{ #category : #'*MiniDocs' }
+LePictureSnippet >> asMarkdeep [
+	| output |
+	output := WriteStream on: ''.
+	output
+		nextPutAll: self metadataDiv;
+		nextPutAll: self centeredFigure;
+		nextPut: Character lf;
+		nextPutAll: '</div>';
+		nextPut: Character lf;
+		nextPut: Character lf.
+	^ output contents
+]
diff --git a/src/MiniDocs/LeTextualSnippet.extension.st b/src/MiniDocs/LeTextualSnippet.extension.st
index f3baec3..1cc9be1 100644
--- a/src/MiniDocs/LeTextualSnippet.extension.st
+++ b/src/MiniDocs/LeTextualSnippet.extension.st
@@ -1,5 +1,27 @@
 Extension { #name : #LeTextualSnippet }
 
+{ #category : #'*MiniDocs' }
+LeTextualSnippet >> asMarkdeep [
+	"Inspired by Alpine.js and Assembler CSS 'x-' properties, we are going to use
+	'st-' properties as a way to extend divs metadata regarding its contents."
+
+	| output |
+	output := WriteStream on: ''.
+	output
+		nextPutAll: '<div st-class="' , self class greaseString , '"';
+		nextPut: Character lf;
+		nextPutAll: '  st-data="' , (STON toString: self metadata) , '">';
+		nextPut: Character lf;
+		nextPutAll: self markdeepCustomOpener;
+		nextPutAll: self contentAsString;
+		nextPut: Character lf;
+		nextPutAll: self markdeepCustomCloser;
+		nextPutAll: '</div>';
+		nextPut: Character lf;
+		nextPut: Character lf.
+	^ output contents
+]
+
 { #category : #'*MiniDocs' }
 LeTextualSnippet >> asMarkdown [
 	"Inspired by Alpine.js and Assembler CSS 'x-' properties, we are going to use
diff --git a/src/MiniDocs/ManifestMiniDocs.class.st b/src/MiniDocs/ManifestMiniDocs.class.st
index 02c5572..1e6fd3b 100644
--- a/src/MiniDocs/ManifestMiniDocs.class.st
+++ b/src/MiniDocs/ManifestMiniDocs.class.st
@@ -7,6 +7,11 @@ Class {
 	#category : #'MiniDocs-Manifest'
 }
 
+{ #category : #'code-critics' }
+ManifestMiniDocs class >> ruleCascadedNextPutAllsRuleV1FalsePositive [
+	^ #(#(#(#RGMethodDefinition #(#LeTextualSnippet #asMarkdeep #false)) #'2022-09-09T12:31:08.106585-05:00') )
+]
+
 { #category : #'code-critics' }
 ManifestMiniDocs class >> ruleExcessiveVariablesRuleV1FalsePositive [
 	^ #(#(#(#RGClassDefinition #(#Markdeep)) #'2022-07-16T12:24:34.695032-05:00') )