From a28ca6ca514ac4ca6117cbf297a179359878b969 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 16 Apr 2022 14:20:28 -0500
Subject: [PATCH] Repackaging functionality

---
 src/Markdeep/LePage.extension.st | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/src/Markdeep/LePage.extension.st b/src/Markdeep/LePage.extension.st
index 16352fb..23ad9ce 100644
--- a/src/Markdeep/LePage.extension.st
+++ b/src/Markdeep/LePage.extension.st
@@ -1,5 +1,34 @@
 Extension { #name : #LePage }
 
+{ #category : #'*Markdeep' }
+LePage >> asMarkdeep [
+	| bodyStream markdeep |
+	bodyStream := '' writeStream.
+	self preorderTraversal do: [:snippet |
+		bodyStream nextPutAll: snippet asMarkdeep
+	].
+	markdeep := Markdeep new
+		title: self title;
+		body: bodyStream contents;
+		navTop: self navTop.
+	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.
+]
+
 { #category : #'*Markdeep' }
 LePage >> asMarkdeepFile [
 	| folder |