From cd47d22480c3ca1ae6b4f83c2ceeaa11d304f732 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 25 Mar 2024 18:42:24 -0500
Subject: [PATCH] Cleaning Markdeep metadata exportation.

---
 src/MiniDocs/LePage.extension.st | 52 +++++++++++++++++---------------
 1 file changed, 27 insertions(+), 25 deletions(-)

diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st
index 4c0e1d8..7426bae 100644
--- a/src/MiniDocs/LePage.extension.st
+++ b/src/MiniDocs/LePage.extension.st
@@ -21,32 +21,21 @@ LePage >> asHtmlFile [
 LePage >> asMarkdeep [
 	| bodyStream markdeep |
 	bodyStream := '' writeStream.
-	self preorderTraversal do: [:snippet |
-		bodyStream nextPutAll: snippet asMarkdeep
-	].
+	self preorderTraversal
+		do: [ :snippet | bodyStream nextPutAll: snippet asMarkdeep ].
 	markdeep := Markdeep new
-		title: self title;
-		body: bodyStream contents;
-		file: self storage / self markdeepFileName;
-		navTop: self navTop.
-	markdeep head
-			add: '<meta title="', self title,'">'.
-	self metadata keysAndValuesDo: [:k :v |
-		k = 'lang' 
-			ifTrue: [ 
-				markdeep head
-					add: '<meta lang="', v,'">';
-					yourself.
-			]
-			ifFalse: [
-				markdeep head
-					add: '<meta name="', k, '" content="', v,'">';
-					yourself.
-			]
-	].
-	self metadata at: 'authors' ifPresent: [:author | markdeep metadata at: 'authors' put: author ].
-	self metadata at: 'version' ifPresent: [:version | markdeep metadata at: 'version' put: version ].
-	^ markdeep.
+			title: self title;
+			body: bodyStream contents;
+			file: self storage / self markdeepFileName;
+			navTop: self navTop.
+	"self exportMetadataToHead: markdeep."
+	self metadata
+		at: 'authors'
+		ifPresent: [ :author | markdeep metadata at: 'authors' put: author ].
+	self metadata
+		at: 'version'
+		ifPresent: [ :version | markdeep metadata at: 'version' put: version ].
+	^ markdeep
 ]
 
 { #category : #'*MiniDocs' }
@@ -102,6 +91,19 @@ LePage >> detectParentSnippetWithUid: uidString [
 	^ self preorderTraversal detect: [ :snippet | snippet uidString = uidString ]
 ]
 
+{ #category : #'*MiniDocs' }
+LePage >> exportMetadataToHead: markdeep [
+	self metadata
+		keysAndValuesDo: [ :k :v | 
+			k = 'lang'
+				ifTrue: [ markdeep head
+						add: '<meta lang="' , v , '">';
+						yourself ]
+				ifFalse: [ markdeep head
+						add: '<meta name="' , k , '" content="' , v , '">';
+						yourself ] ]
+]
+
 { #category : #'*MiniDocs' }
 LePage >> exportedFileName [
 	| sanitized |