Recovering headers.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-04-12 20:27:21 -05:00
parent 977922d7a3
commit bf0ea4b46d

View File

@ -294,6 +294,8 @@ Markdeep >> headContents [
nextPutAll: line; nextPutAll: line;
nextPut: Character lf nextPut: Character lf
]. ].
stream nextPutAll:
'<st-data>', (STON toStringPretty: self metadata), '</st-data>'.
stream stream
nextPutAll: '</head>'; nextPutAll: '</head>';
nextPut: Character lf. nextPut: Character lf.
@ -378,15 +380,6 @@ Markdeep >> options [
] ]
] ]
{ #category : #printing }
Markdeep >> printOn: aStream [
| response |
super printOn: aStream.
response := self title ifNil: [ 'Untitled' ].
aStream
nextPutAll: '( ', response, ' )'
]
{ #category : #'instance creation' } { #category : #'instance creation' }
Markdeep >> processMarkdownFor: aFileReference [ Markdeep >> processMarkdownFor: aFileReference [
"comment stating purpose of message" "comment stating purpose of message"