Improving Markdown importation.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-03-22 15:17:39 -05:00
parent 655ee2e935
commit e22eb1221d

View File

@ -64,7 +64,10 @@ Markdown >> containsYAMLMetadataClosing [
Markdown >> contents [ Markdown >> contents [
| response | | response |
response := WriteStream on: ''. response := WriteStream on: ''.
response response
nextPutAll: '---'; cr;
nextPutAll: self metadataAsYAML; cr;
nextPutAll: '---'; cr;
nextPutAll: self body. nextPutAll: self body.
^ response contents ^ response contents
] ]
@ -177,7 +180,8 @@ Markdown >> file: aFileReference [
Markdown >> fromFile: aFileReference [ Markdown >> fromFile: aFileReference [
self contents: aFileReference contents. self contents: aFileReference contents.
self file: aFileReference. self file: aFileReference.
self populateMetadata self populateMetadata.
self body: self contentsWithoutYAMLMetadata
] ]
{ #category : #'instance creation' } { #category : #'instance creation' }