Merge c162b9b4bc
This commit is contained in:
commit
8143633b42
@ -173,6 +173,19 @@ Markdeep >> extractTitleFrom: docTree [
|
|||||||
^ tempTitle
|
^ tempTitle
|
||||||
]
|
]
|
||||||
|
|
||||||
|
{ #category : #accessing }
|
||||||
|
Markdeep >> extractYamlMetadataFrom: documentTree [
|
||||||
|
| yamlComment response |
|
||||||
|
yamlComment := documentTree children
|
||||||
|
detect: [:node | node className = 'PPCMHtmlBlock' and: [node text trimmed beginsWith: '<!--@yaml']]
|
||||||
|
ifNone: [ ^ nil ].
|
||||||
|
response := '' writeStream.
|
||||||
|
yamlComment children allButFirst allButLast do: [:each |
|
||||||
|
response nextPutAll: each text; cr
|
||||||
|
].
|
||||||
|
^ YAML2JSON fromString: response contents
|
||||||
|
]
|
||||||
|
|
||||||
{ #category : #accessing }
|
{ #category : #accessing }
|
||||||
Markdeep >> file: aFileReference [
|
Markdeep >> file: aFileReference [
|
||||||
file := aFileReference.
|
file := aFileReference.
|
||||||
|
Loading…
Reference in New Issue
Block a user