From 62e3568bd84e06fa5bd6a8f45da13313382a0119 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 26 Jul 2022 17:58:53 -0500
Subject: [PATCH] Migrating to MiniDocs.

---
 .../Grafoscopio-Utils/LePage.extension.st     | 45 -------------------
 1 file changed, 45 deletions(-)

diff --git a/repository/Grafoscopio-Utils/LePage.extension.st b/repository/Grafoscopio-Utils/LePage.extension.st
index 84a17f4..e1df10d 100644
--- a/repository/Grafoscopio-Utils/LePage.extension.st
+++ b/repository/Grafoscopio-Utils/LePage.extension.st
@@ -6,44 +6,6 @@ LePage >> asMarkdeepInto: aFileLocator [
 	self preorderTraversal
 ]
 
-{ #category : #'*Grafoscopio-Utils-Core' }
-LePage >> detectParentSnippetWithUid: uidString [
-	"Answer a boolean indicating whether the supplied uid is present"
-
-	^ self preorderTraversal detect: [ :snippet | snippet uidString = uidString ] ifNone: [ ^ self ] 
-]
-
-{ #category : #'*Grafoscopio-Utils-Core' }
-LePage >> fileName [
-	^ self title asDashedLowercase, '.', ((self uidString copyFrom: 1 to: 5 ) copyWithoutAll: '/'), '.md.html'
-]
-
-{ #category : #'*Grafoscopio-Utils-Core' }
-LePage >> fromMarkdeepUrl: aString [ 
-	| docTree pageMetadata |
-	docTree := GrafoscopioUtils xmlFromUrl: aString.
-	pageMetadata := Markdeep new metadataFromXML: docTree.
-	self 
-		basicUid: (pageMetadata at: 'id');
-		title: (pageMetadata at: 'title');
-		createTime: (pageMetadata at: 'created') asDateAndTime;
-		editTime: (pageMetadata at: 'modified') asDateAndTime;
-		createEmail: (pageMetadata at: 'creator');
-		editEmail: (pageMetadata at: 'modifier');
-		optionAt: 'metadata' put: pageMetadata.
-	self populateChildrenFrom: (docTree xpath: '//div')	
-	
-]
-
-{ #category : #'*Grafoscopio-Utils-Core' }
-LePage >> navTop [
-	| topNavFile |
-	topNavFile := ((self optionAt: 'storage') / '_navtop.html').
-	topNavFile exists 
-		ifFalse: [ ^ '' ]
-		ifTrue: [ ^ topNavFile contents ]
-]
-
 { #category : #'*Grafoscopio-Utils-Core' }
 LePage >> populateChildrenFrom: docTreeDivs [ 
 	docTreeDivs doWithIndex: [:div :i | | snippetTemp parent "surrogate" |
@@ -52,10 +14,3 @@ LePage >> populateChildrenFrom: docTreeDivs [
 		parent snippetBuilder snippet: snippetTemp; add.
 	]
 ]
-
-{ #category : #'*Grafoscopio-Utils-Core' }
-LePage >> removeSnippetsMetadata [
-	self preorderTraversal do: [ :snippet | 
-		(snippet options isNotNil and: [ snippet options includesKey: 'metadata' ]) 
-			ifTrue: [ snippet options removeKey: 'metadata' ] ]
-]