From 56ef3869ca6ef033affa341ba04045a83eccff16 Mon Sep 17 00:00:00 2001 From: Offray Date: Tue, 24 Sep 2024 12:23:39 -0500 Subject: [PATCH 1/5] Improving setters. --- src/MiniDocs/Markdown.class.st | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/MiniDocs/Markdown.class.st b/src/MiniDocs/Markdown.class.st index 1696097..93119a1 100644 --- a/src/MiniDocs/Markdown.class.st +++ b/src/MiniDocs/Markdown.class.st @@ -230,3 +230,8 @@ Markdown >> printOn: aStream [ Markdown >> title [ ^ title ifNil: [ title:= self headerAsTitle ] ] + +{ #category : #accessing } +Markdown >> title: aString [ + title := aString +] From ecb4321551ecd178110e79a7ab3d13d0bcdb4392 Mon Sep 17 00:00:00 2001 From: Offray Date: Tue, 24 Sep 2024 13:17:59 -0500 Subject: [PATCH 2/5] Debugging YAML metadata detection. --- src/MiniDocs/Markdown.class.st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/MiniDocs/Markdown.class.st b/src/MiniDocs/Markdown.class.st index 93119a1..c99a7f2 100644 --- a/src/MiniDocs/Markdown.class.st +++ b/src/MiniDocs/Markdown.class.st @@ -50,7 +50,7 @@ Markdown >> body: aString [ { #category : #operation } Markdown >> commentYAMLMetadata [ | newContents | - self detectYAMLMetadata ifFalse: [ ^ self ]. + self contents detectYAMLMetadata ifFalse: [ ^ self ]. newContents := '' writeStream. newContents nextPutAll: '