adding parameters: to environment and caption to math env

pillar-markup · May 18, 2021 · e02c3a6 · e02c3a6
1 parent 6630d0d
commit e02c3a6
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 3 deletions.
diff --git a/src/Pillar-Core/PREndEnvironmentAnnotation.class.st b/src/Pillar-Core/PREndEnvironmentAnnotation.class.st
@@ -1,20 +1,22 @@
 "
-I'm the beginning of annotation to represent an environment (as in LaTeX): typically ${end:card}$ 
+I'm theannotation to represent the end of an environment (as in LaTeX): typically `${end:card}$` 
 in the following example.
 
 Here is for example an environment called card. 
 It is composed of a begin and end environment annotations.
 
+```
 ${begin:card}$
 
-!! I'm Cool
+## I'm Cool
 
 A paragraph about the card.
 I will be interpreted as part of the card.
 
 ${end:card}$ 
+```
 
-See comment of PREnvironment. 
+See comment of `PREnvironment`. 
 "
 Class {
 	#name : #PREndEnvironmentAnnotation,

diff --git a/src/Pillar-Core/PREnvironment.class.st b/src/Pillar-Core/PREnvironment.class.st
@@ -64,6 +64,11 @@ PREnvironment >> parameters [
 	^ parameters
 ]
 
+{ #category : #'accessing-parameters' }
+PREnvironment >> parameters: anOrderedDictionary [
+	parameters := anOrderedDictionary
+]
+
 { #category : #visiting }
 PREnvironment >> printOn: aStream [
 

diff --git a/src/Pillar-Core/PRMathEnvironment.class.st b/src/Pillar-Core/PRMathEnvironment.class.st
@@ -18,6 +18,11 @@ PRMathEnvironment >> accept: aVisitor [
 	^ aVisitor visitMathEnvironment: self
 ]
 
+{ #category : #visiting }
+PRMathEnvironment >> caption [ 
+	^ self parameters at: 'caption'
+]
+
 { #category : #'accessing-parameters' }
 PRMathEnvironment >> text [ 
 	^ self children first text

diff --git a/src/Pillar-Core/PRTParametrizable.trait.st b/src/Pillar-Core/PRTParametrizable.trait.st
@@ -19,6 +19,11 @@ PRTParametrizable >> hasParameters [
 	^ self parameters isNotEmpty
 ]
 
+{ #category : #'accessing-parameters' }
+PRTParametrizable >> parameterAt: aKey [ 
+	^ self parameters at: aKey
+]
+
 { #category : #'accessing-parameters' }
 PRTParametrizable >> parameterAt: aKey put: aValue [
 	^ self parameters at: aKey put: aValue