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

Merge a51583e5fc

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-03-23 09:36:32 -05:00
parent 494bfc76a7 a51583e5fc
commit b7fdbb731c
2 changed files with 22 additions and 5 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',

26
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'
} }
@ -64,7 +65,10 @@ Markdown >> containsYAMLMetadataClosing [
Markdown >> contents [ Markdown >> contents [
| response | | response |
response := WriteStream on: ''. response := WriteStream on: ''.
response response
nextPutAll: '---'; cr;
nextPutAll: self metadataAsYAML; cr;
nextPutAll: '---'; cr;
nextPutAll: self body. nextPutAll: self body.
^ response contents ^ response contents
] ]
@ -177,7 +181,8 @@ Markdown >> file: aFileReference [
Markdown >> fromFile: aFileReference [ Markdown >> fromFile: aFileReference [
self contents: aFileReference contents. self contents: aFileReference contents.
self file: aFileReference. self file: aFileReference.
self populateMetadata self populateMetadata.
self body: self contentsWithoutYAMLMetadata
] ]
{ #category : #'instance creation' } { #category : #'instance creation' }
@ -195,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 ].
@ -241,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 }
@ -251,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."