From 27a28ce54340ec4723dc84662bee62e011e9741b Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 11 Jun 2024 16:09:11 -0500
Subject: [PATCH] Debugging metadata exportation.

---
 src/MiniDocs/GtGQLSnippet.extension.st |  2 +-
 src/MiniDocs/LeSnippet.extension.st    | 13 ++++++++++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/MiniDocs/GtGQLSnippet.extension.st b/src/MiniDocs/GtGQLSnippet.extension.st
index 928f0e0..65f509d 100644
--- a/src/MiniDocs/GtGQLSnippet.extension.st
+++ b/src/MiniDocs/GtGQLSnippet.extension.st
@@ -4,7 +4,7 @@ Extension { #name : #GtGQLSnippet }
 GtGQLSnippet >> asMarkdeep [
 	| output |
 	output := WriteStream on: ''.
-	self metadata
+	(self metadata)
 		at: 'operation' put: self operation;
 		at: 'input' put: self input;
 		at: 'context' put: self context;
diff --git a/src/MiniDocs/LeSnippet.extension.st b/src/MiniDocs/LeSnippet.extension.st
index c7dfbd5..13d1810 100644
--- a/src/MiniDocs/LeSnippet.extension.st
+++ b/src/MiniDocs/LeSnippet.extension.st
@@ -13,7 +13,18 @@ LeSnippet class >> fromMetaMarkdeep: div [
 
 { #category : #'*MiniDocs' }
 LeSnippet >> metadata [
-	^ self metadataUpdate
+	| createEmailSanitized editEmailSanitized |
+	createEmailSanitized := self createEmail asString withoutXMLTagDelimiters.
+	editEmailSanitized := self editEmail asString withoutXMLTagDelimiters.
+	self optionAt: 'metadata' ifAbsentPut: [ ^ Dictionary new ].
+	^ (self optionAt: 'metadata')
+		  at: 'id' put: self uidString;
+		  at: 'parent' put: self parent uid asString36;
+		  at: 'created' put: self createTime asString;
+		  at: 'modified' put: self latestEditTime asString;
+		  at: 'creator' put: createEmailSanitized;
+		  at: 'modifier' put: editEmailSanitized;
+		  yourself
 ]
 
 { #category : #'*MiniDocs' }