Improving creation and printing. Replacing old dependencies.
This commit is contained in:
parent
6eada9fe00
commit
11dc04e39f
@ -110,6 +110,11 @@ Markdown >> fromFile: aFileReference [
|
||||
self file: aFileReference.
|
||||
]
|
||||
|
||||
{ #category : #'instance creation' }
|
||||
Markdown >> fromString: markdownString [
|
||||
self contents: markdownString.
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
Markdown >> gtTextFor: aView [
|
||||
<gtView>
|
||||
@ -126,7 +131,7 @@ Markdown >> lines [
|
||||
{ #category : #accessing }
|
||||
Markdown >> metadata [
|
||||
| rawMeta |
|
||||
rawMeta := PPYAMLGrammar new parse: self yamlMetadataString.
|
||||
rawMeta := MiniDocs yamlToJson: self yamlMetadataString.
|
||||
rawMeta associationsDo: [ :assoc |
|
||||
assoc value = 'false' ifTrue: [ assoc value: false ].
|
||||
assoc value = 'true' ifTrue: [ assoc value: true ] ].
|
||||
@ -137,7 +142,7 @@ Markdown >> metadata [
|
||||
Markdown >> printOn: aStream [
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: '( ', (self metadata at: 'title'), ' )'
|
||||
nextPutAll: '( ', (self metadata at: 'title' ifAbsent: ['untitled']), ' )'
|
||||
]
|
||||
|
||||
{ #category : #utilities }
|
||||
|
Loading…
Reference in New Issue
Block a user