Offray
/
MiniDocs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Promoting document title.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-03-22 15:42:10 -05:00
parent e22eb1221d
commit a51583e5fc
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/MiniDocs/Markdeep.class.st
View File

@ -5,7 +5,6 @@ Class {
#name : #Markdeep, #name : #Markdeep,
#superclass : #Markdown, #superclass : #Markdown,
#instVars : [ #instVars : [
'title',
'comments', 'comments',
'tail', 'tail',
'language', 'language',

18
src/MiniDocs/Markdown.class.st
View File

@ -9,7 +9,8 @@ Class {
#superclass : #MarkupFile, #superclass : #MarkupFile,
#instVars : [ #instVars : [
'metadata', 'metadata',
'body' 'body',
'title'
], ],
#category : #'MiniDocs-Core' #category : #'MiniDocs-Core'
} }
@ -199,6 +200,14 @@ Markdown >> gtTextFor: aView [
text: [ self contents ] text: [ self contents ]
] ]
{ #category : #accessing }
Markdown >> headerAsTitle [
| headerNode |
headerNode := self documentTree children
detect: [ :node | node className = 'PPCMHeader' and: [ node level = 1 ] ] ifNone: [ ^ nil ].
^ headerNode text
]
{ #category : #utilities } { #category : #utilities }
Markdown >> lines [ Markdown >> lines [
self file ifNotNil: [^ self file contents lines ]. self file ifNotNil: [^ self file contents lines ].
@ -245,7 +254,7 @@ Markdown >> populateMetadata [
Markdown >> printOn: aStream [ Markdown >> printOn: aStream [
super printOn: aStream. super printOn: aStream.
aStream aStream
nextPutAll: '( ', (self metadata at: 'title' ifAbsent: ['untitled']), ' )' nextPutAll: '( ', self title , ' )'
] ]
{ #category : #utilities } { #category : #utilities }
@ -255,6 +264,11 @@ Markdown >> startsWithYAMLMetadataDelimiter [
] ]
{ #category : #accessing }
Markdown >> title [
^ self metadata at: 'title' ifAbsentPut: [ self headerAsTitle]
]
{ #category : #utilities } { #category : #utilities }
Markdown >> yamlMetadataClosingLineNumber [ Markdown >> yamlMetadataClosingLineNumber [
"I return the line where the closing of the YAML metadata occurs or 0 if no closing is found." "I return the line where the closing of the YAML metadata occurs or 0 if no closing is found."