Fix argument API

pillar-markup · May 13, 2024 · 5d94b2b · 5d94b2b
1 parent 06502d7
commit 5d94b2b
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 6 deletions.
diff --git a/src/Microdown/MicArgumentList.class.st b/src/Microdown/MicArgumentList.class.st
@@ -58,10 +58,7 @@ MicArgumentList class >> split: aString defaultArg: defArg [
 { #category : 'instance creation' }
 MicArgumentList class >> split: aString defaultArg: defArg defaultValue: defValue [
 	^ self new
-		defaultArg: defArg;
-		at: defArg put: defValue;
-		initialValue: defValue;
-		from: aString; 
+		split: aString defaultArg: defArg defaultValue: defValue;
 		yourself
 ]
 
@@ -188,6 +185,16 @@ MicArgumentList >> setNoDefaultButArguments: string [
 
 ]
 
+{ #category : 'initialization' }
+MicArgumentList >> split: aString defaultArg: defArg defaultValue: defValue [
+
+		self 
+			defaultArg: defArg;
+			at: defArg put: defValue;
+			initialValue: defValue;
+			from: aString
+]
+
 { #category : 'copying' }
 MicArgumentList >> withoutDefaultValue [
 	"remove the defaultArg if no new value was assigned to it"

diff --git a/src/Microdown/MicEnvironmentBlock.class.st b/src/Microdown/MicEnvironmentBlock.class.st
@@ -176,6 +176,14 @@ MicEnvironmentBlock >> extractFirstLineFrom: aLine [
 		ifFalse: [ firstLine ]
 ]
 
+{ #category : 'parse support' }
+MicEnvironmentBlock >> initialize [
+
+	super initialize.
+	arguments := MicArgumentList new 
+
+]
+
 { #category : 'markups' }
 MicEnvironmentBlock >> lineStartMarkup [
 

diff --git a/src/Microdown/MicHeaderBlock.class.st b/src/Microdown/MicHeaderBlock.class.st
@@ -56,8 +56,9 @@ MicHeaderBlock >> formattedCode [
 { #category : 'accessing' }
 MicHeaderBlock >> header [
 	"I am used to get an adhoc string for the header"
-	^ String streamContents: [ :s | 
-		  children do: [ :e | s nextPutAll: e bodystring ] ]
+
+	^ String streamContents: [ :s |
+		  children do: [ :e | s nextPutAll: e bodyString ] ]
 ]
 
 { #category : 'accessing' }