Improving exportation.

src/BaselineOfMiniDocs/BaselineOfMiniDocs.class.st

@@ -61,8 +61,8 @@ BaselineOfMiniDocs >> setUpLepiterBuildingBlocs: spec [
 	spec 
 		baseline: 'LepiterBuildingBlocs' 
 		with: [spec  
-		repository: 'github://botwhytho/LepiterBuildingBlocs:main/src';
-		loads: #('ALL')];
+			repository: 'github://botwhytho/LepiterBuildingBlocs:main/src';
+			loads: #('ALL')];
 	import: 'LepiterBuildingBlocs'
 ]
 

src/MiniDocs/LeTextCoderSnippetElement.extension.st

@@ -1,5 +1,20 @@
 Extension { #name : #LeTextCoderSnippetElement }
 
+{ #category : #'*MiniDocs' }
+LeTextCoderSnippetElement >> asLePage [
+	| currentSnippet newPage  |
+	currentSnippet := self snippet.  
+	newPage :=  LePage new.
+	newPage
+		title: (currentSnippet text asString trimLeft: [:char | char = $# ]) trim.
+	self page database
+		addPage: newPage.
+	currentSnippet allChildrenBreadthFirstDo: [:child | 
+		child moveToPageTitled: newPage title.
+	].
+	^ newPage
+]
+
 { #category : #'*MiniDocs' }
 LeTextCoderSnippetElement >> moveToPageTitled: pageName [ 
 	| db origin destination   |

src/MiniDocs/LeTextSnippet.extension.st

@@ -64,3 +64,15 @@ LeTextSnippet >> taggedWith: aString [
 	self metadata at: 'tags' ifPresent: [  (self metadata at: 'tags') add: aString; yourself ] ifAbsentPut: [ Set new ].
 	^ self metadata at: 'tags'
 ]
+
+{ #category : #'*MiniDocs' }
+LeTextSnippet >> withFollowingSnippets [
+	"I'm the same method implemented for PharoSnippets,
+	but present also here as a way to improve moving prose snippets from pages.
+	"
+	| snippets stop start |
+	snippets := self parent children asArray.
+	start := snippets indexOf: self.
+	stop := snippets size.
+	^ snippets copyFrom: start to: stop
+]