Merge c162b9b4bc

src/MiniDocs/Markdeep.class.st

@@ -173,6 +173,19 @@ Markdeep >> extractTitleFrom: docTree [
 	^ 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 }
 Markdeep >> file: aFileReference [
 	file := aFileReference.