Improving Markdown document tree node views.

src/PetitMarkdown/PPCMContainer.class.st

@@ -8,3 +8,18 @@ Class {
 PPCMContainer >> accept: visitor [
 	^ visitor visitContainer: self
 ]
+
+{ #category : #accessing }
+PPCMContainer >> viewBody [
+
+	| aText |
+	aText := self className asRopedText.
+
+	self children do: [ :child | 
+		aText append: ' ' asRopedText.
+		aText append: (child className asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor) ].
+
+
+	^ aText
+]

src/PetitMarkdown/PPCMHeader.class.st

@@ -56,7 +56,7 @@ PPCMHeader >> viewBody [
 				 BrGlamorousColors disabledButtonTextColor).
 		aText append: ('= "' asRopedText foreground:
 				 BrGlamorousColors disabledButtonTextColor).
-		aText append: (child className asRopedText foreground:
+		aText append: (child text asRopedText foreground:
 				 BrGlamorousColors disabledButtonTextColor).
 		aText append:
 			('"' asRopedText foreground:

src/PetitMarkdown/PPCMListItem.class.st

@@ -19,3 +19,25 @@ PPCMListItem >> initialize [
 PPCMListItem >> isBlockLevel [
 	^ true
 ]
+
+{ #category : #accessing }
+PPCMListItem >> viewBody [
+
+	| aText |
+	aText := self className asRopedText.
+
+	self children do: [ :child | 
+		aText append: ' ' asRopedText.
+		aText append: (child className asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor).
+		aText append: ('= "' asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor).
+		aText append: (child className asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor).
+		aText append:
+			('"' asRopedText foreground:
+				 BrGlamorousColors disabledButtonTextColor) ].
+
+
+	^ aText
+]