Modularizing code and improving extensions.

2022-01-22 10:23:56 -05:00 · 2022-01-22 10:23:56 -05:00 · 05d2f3b182
commit 05d2f3b182
parent c41cb4c2d2
8 changed files with 31 additions and 12 deletions
--- a/repository/BaselineOfGrafoscopioUtils/BaselineOfGrafoscopioUtils.class.st
+++ b/repository/BaselineOfGrafoscopioUtils/BaselineOfGrafoscopioUtils.class.st
@ -15,7 +15,7 @@ BaselineOfGrafoscopioUtils >> baseline: spec [

 			self fossil: spec.			
 			spec baseline: 'PetitParser' with: [spec 
-					repository: 'github://moosetechnology/PetitParser/src';
+					repository: 'github://moosetechnology/PetitParser:v3.x.x/src';
 					loads: #('Minimal' 'Indent' 'YAML')]. 
 	
 			"Packages"
--- a/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
+++ b/repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
@ -5,7 +5,7 @@ or other related projects.
 Class {
 	#name : #GrafoscopioUtils,
 	#superclass : #Object,
-	#category : #'Grafoscopio-Utils'
+	#category : #'Grafoscopio-Utils-Core'
 }

 { #category : #utilities }
@ -64,13 +64,11 @@ GrafoscopioUtils class >> exportAsSton: anObject on: aFileReference [
 	aFileReference ensureCreateFile.
 	aFileReference writeStreamDo: [ :stream |
 		(STON writer on: stream)
-			newLine: String crlf;
+			newLine: String lf;
 			prettyPrint: true;
 			keepNewLines: true;
 			nextPut: anObject ].
-	
-
-	
+	^ aFileReference	
 ]

 { #category : #'graphical interface' }
--- a/repository/Grafoscopio-Utils/HedgeDoc.class.st
+++ b/repository/Grafoscopio-Utils/HedgeDoc.class.st
@ -14,7 +14,7 @@ Class {
 		'contents',
 		'url'
 	],
-	#category : #'Grafoscopio-Utils'
+	#category : #'Grafoscopio-Utils-Core'
 }

 { #category : #'as yet unclassified' }
--- a/repository/Grafoscopio-Utils/LePage.extension.st
+++ b/repository/Grafoscopio-Utils/LePage.extension.st
@ -0,0 +1,19 @@
+Extension { #name : #LePage }
+
+{ #category : #'*Grafoscopio-Utils-Core' }
+LePage >> asMarkdeep [
+	| bodyStream |
+	bodyStream := '' writeStream.
+	self preorderTraversal do: [:snippet |
+		bodyStream nextPutAll: snippet contentAsString; lf; lf.
+	].
+	^ Markdeep new
+		body: bodyStream contents
+		contents.
+]
+
+{ #category : #'*Grafoscopio-Utils-Core' }
+LePage >> asMarkdeepInto: aFileLocator [
+	
+	self preorderTraversal
+]
--- a/repository/Grafoscopio-Utils/Markdeep.class.st
+++ b/repository/Grafoscopio-Utils/Markdeep.class.st
@ -11,9 +11,11 @@ Class {
 		'tail',
 		'body',
 		'language',
-		'markdownFile'
+		'markdownFile',
+		'config',
+		'title'
 	],
-	#category : #'Grafoscopio-Utils'
+	#category : #'Grafoscopio-Utils-Core'
 }

 { #category : #'as yet unclassified' }
--- a/repository/Grafoscopio-Utils/MarkupFile.class.st
+++ b/repository/Grafoscopio-Utils/MarkupFile.class.st
@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'file'
 	],
-	#category : #'Grafoscopio-Utils'
+	#category : #'Grafoscopio-Utils-Core'
 }

 { #category : #persistence }
--- a/repository/Grafoscopio-Utils/Pandoc.class.st
+++ b/repository/Grafoscopio-Utils/Pandoc.class.st
@ -7,7 +7,7 @@ Class {
 	#classInstVars : [
 		'executable'
 	],
-	#category : #'Grafoscopio-Utils'
+	#category : #'Grafoscopio-Utils-Core'
 }

 { #category : #'as yet unclassified' }
--- a/repository/Grafoscopio-Utils/PandocWork.class.st
+++ b/repository/Grafoscopio-Utils/PandocWork.class.st
@ -22,7 +22,7 @@ Class {
 		'rootFolder',
 		'manifests'
 	],
-	#category : #'Grafoscopio-Utils'
+	#category : #'Grafoscopio-Utils-Core'
 }

 { #category : #utilities }