From 004b286835918cbf0fc44986db322a194c5a402e Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Sun, 3 Mar 2024 18:48:00 -0500 Subject: [PATCH] Starting importation of Markdeep objects from files. --- src/MiniDocs/Markdeep.class.st | 24 ++++++++++++++++++++++-- src/MiniDocs/Markdown.class.st | 1 + 2 files changed, 23 insertions(+), 2 deletions(-) diff --git a/src/MiniDocs/Markdeep.class.st b/src/MiniDocs/Markdeep.class.st index d320475..1f5feaf 100644 --- a/src/MiniDocs/Markdeep.class.st +++ b/src/MiniDocs/Markdeep.class.st @@ -158,6 +158,23 @@ Markdeep >> converPubPubFootnoteBetween: footnote and: nextFootnote in: footnote ^ response contents ] +{ #category : #accessing } +Markdeep >> file: aFileReference [ + file := aFileReference. + self fillInContentsFrom: aFileReference +] + +{ #category : #accessing } +Markdeep >> fillInContentsFrom: aFileReference [ + | docTree headTree | + docTree := (Markdown new contents: aFileReference contents) documentTree. + headTree := (docTree children + detect: [ :node | + node className = 'PPCMParagraph' + and: [ (node children detect: [ :subnode | subnode text = '' ]) isNotNil ] ]). + ^ headTree +] + { #category : #accessing } Markdeep >> folder [ ^ self file parent @@ -199,8 +216,11 @@ Markdeep >> gtTextFor: aView [ { #category : #accessing } Markdeep >> head [ - ^ head ifNil: [ head := OrderedCollection new. - head add: self fontAwesomeHeader; yourself ] + + ^ head ifNil: [ + head := OrderedCollection new. + head add: self fontAwesomeHeader; yourself. + ]. ] { #category : #accessing } diff --git a/src/MiniDocs/Markdown.class.st b/src/MiniDocs/Markdown.class.st index 4134278..a144e53 100644 --- a/src/MiniDocs/Markdown.class.st +++ b/src/MiniDocs/Markdown.class.st @@ -103,6 +103,7 @@ Markdown >> detectYAMLMetadata [ { #category : #accessing } Markdown >> documentTree [ | parser| + self contents ifNil: [^ nil]. parser := PPCommonMarkBlockParser new parse: self contents. ^ parser accept: CMBlockVisitor new ]