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

Fixing repeated medatada when exporting to Markdeep.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-04-13 11:49:04 -05:00
parent 53910fa840
commit 13f9b8050e
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/MiniDocs/LePage.extension.st
View File

@ -35,6 +35,7 @@ LePage >> asMarkdeep [
self metadata
at: 'version'
ifPresent: [ :version | markdeep metadata at: 'version' put: version ].
markdeep head: nil.
^ markdeep
]
@ -180,7 +181,7 @@ LePage >> markdownFileName [
{ #category : #'*MiniDocs' }
LePage >> metadata [
^ self options at: 'metadata' ifAbsentPut: [ self metadataUpdate]
^ self metadataUpdate
]
{ #category : #'*MiniDocs' }
@ -190,7 +191,7 @@ LePage >> metadataUpdate [
at: 'id' put: self uidString;
at: 'title' put: self contentAsString;
at: 'created' put: self createTime greaseString;
at: 'modified' put: self latestEditTime greaseString;
at: 'modified' put: self getLatestEditTime greaseString;
at: 'creator' put: self createEmail greaseString;
at: 'modifier' put: self editEmail greaseString;
yourself

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

@ -294,8 +294,11 @@ Markdeep >> headContents [
nextPutAll: line;
nextPut: Character lf
].
stream nextPutAll:
'<st-data>', (STON toStringPretty: self metadata), '</st-data>'.
self metadata keysAndValuesDo: [:k :v |
k = 'lang'
ifTrue: [ stream nextPutAll: ' <meta lang="', v,'">'; cr. ]
ifFalse: [ stream nextPutAll: ' <meta name="', k, '" content="', v,'">'; cr. ]
].
stream
nextPutAll: '</head>';
nextPut: Character lf.