Supporting proper line break for YAML metada blocks.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-12-01 17:58:08 +00:00
parent 709a0f2d82
commit bebed308e2

View File

@ -248,12 +248,12 @@ GrafoscopioNotebook >> exportNode: aGrafoscopioNode asMarkdownIn: aFile [
writeStreamDo: [:stream |
stream
nextPutAll:
'---', String cr,
'exportedFrom: ', self checksum, String cr.
('---', String cr,
'exportedFrom: ', self checksum, String cr) withInternetLineEndings.
aGrafoscopioNode metadataAsYamlIn: stream.
stream
nextPutAll:
'---', String cr, String cr,
('---', String cr, String cr) withInternetLineEndings,
aGrafoscopioNode asMarkdown ].
self inform: 'Exported as: ', String cr, aFile fullName
]