"
I model a Markdown document.
At some point the idea is to have a full native parser implemented to deal
with my syntax, but meanwhile I will be collaborating with external parsers,
particularly the ones provided by Pandoc and/or Lunamark.
"
Class {
	#name : #Markdown,
	#superclass : #Object,
	#instVars : [
		'contents'
	],
	#category : #'Grafoscopio-Utils'
}

{ #category : #'instance creation' }
Markdown class >> fromFile: aFileReference [
	^ self new fromFile: aFileReference 
]

{ #category : #utility }
Markdown >> containsYAMLMetadataClosing [
	^ self locateYAMLMetadataClosing > 0
]

{ #category : #accessing }
Markdown >> contents [
	^ contents
]

{ #category : #accessing }
Markdown >> contents: anObject [
	contents := anObject
]

{ #category : #utility }
Markdown >> detectYAMLMetadata [
	| lines |
	lines := self lines.
	^ self startsWithYAMLMetadataDelimiter
		and: [ lines allButFirst
				detect: [ :currentLine | currentLine beginsWith: '---' ]
				ifFound: [ ^ true ] ifNone: [ ^ false ] ]
]

{ #category : #operation }
Markdown >> extractYAMLMetadata [
	self detectYAMLMetadata ifFalse: [ ^ nil ].
	^ self lines copyFrom: 2 to: (self locateYAMLMetadataClosing) 
]

{ #category : #'instance creation' }
Markdown >> fromFile: aFileReference [
	self contents: aFileReference contents.
]

{ #category : #utility }
Markdown >> lines [
	^ self contents lines.
]

{ #category : #utility }
Markdown >> locateYAMLMetadataClosing [
	"I return the line where the closing of the YAML metadata occurs or 0 if no closing is found."
	| result |
	self startsWithYAMLMetadataDelimiter ifFalse: [ ^ self ].
	result := 0.
	self lines allButFirst doWithIndex: [ :currentLine :i |
		(currentLine beginsWith: '---') ifTrue: [ result := i ] ].
	^ result
]

{ #category : #utility }
Markdown >> startsWithYAMLMetadataDelimiter [
	^ self lines first beginsWith: '---'

]