Converting snippet subrees to Lepiter pages.

src/MiniDocs/LeSnippet.extension.st

@@ -12,9 +12,9 @@ LeSnippet class >> fromMetaMarkdeep: div [
 ]
 
 { #category : #'*MiniDocs' }
-LeSnippet >> moveTo: pageName [
+LeSnippet >> moveToPageTitled: pageName [
 	| db origin destination thisSnippet  |
-	thisSnippet := self snippetModel.
+	thisSnippet := self.
 	db := self page database.
 	destination := db pageNamed: pageName.
 	origin := db pageNamed: thisSnippet page title.

src/MiniDocs/LeTextCoderSnippetElement.extension.st

@@ -1,7 +1,7 @@
 Extension { #name : #LeTextCoderSnippetElement }
 
 { #category : #'*MiniDocs' }
-LeTextCoderSnippetElement >> moveTo: pageName [ 
+LeTextCoderSnippetElement >> moveToPageTitled: pageName [ 
 	| db origin destination   |
 	db := self page database.
 	destination := db pageNamed: pageName.

src/MiniDocs/LeTextSnippet.extension.st

@@ -1,5 +1,17 @@
 Extension { #name : #LeTextSnippet }
 
+{ #category : #'*MiniDocs' }
+LeTextSnippet >> asLePage [
+	| page |
+	page  := LePage new
+		initializeTitle: self contentAsString.
+	self database addPage: page.
+	self childrenDo: [:child |
+		child moveToPageTitled: page title
+	].
+	^ page.
+]
+
 { #category : #'*MiniDocs' }
 LeTextSnippet >> contentFrom: markdeepDiv [
 

src/MiniDocs/MiniDocs.class.st

@@ -65,7 +65,7 @@ MiniDocs class >> installYamlToJson [
 		command: 'nim';
 		arguments: {'c'. self yamlToJsonSourceCode fullName};
 		runAndWaitOnExitDo: [ :process :outString |
-			(self yamlToJsonSourceCode parent / self yamlToJsonSourceCode basenameWithoutExtension) moveTo: MiniDocs appFolder asFileReference.
+			(self yamlToJsonSourceCode parent / self yamlToJsonSourceCode basenameWithoutExtension) moveToPageTitled: MiniDocs appFolder asFileReference.
 			^ MiniDocs appFolder ]
 ]
 

src/MiniDocs/NanoID.class.st

@@ -43,7 +43,7 @@ NanoID class >> install [
 		command: 'nim';
 		arguments: {'c'. self scriptSourceCode fullName};
 		runAndWaitOnExitDo: [ :process :outString |
-			(self scriptSourceCode parent / (self scriptSourceCode) basenameWithoutExtension) moveTo: MiniDocs appFolder asFileReference.
+			(self scriptSourceCode parent / (self scriptSourceCode) basenameWithoutExtension) moveToPageTitled: MiniDocs appFolder asFileReference.
 			^ MiniDocs appFolder ]
 ]