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

Adding LePage metadata.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-01-28 17:01:41 -05:00
parent c281f782a1
commit ed6d66fb2a
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
repository/Grafoscopio-Utils/LePage.extension.st
View File

@ -2,15 +2,20 @@ Extension { #name : #LePage }
{ #category : #'*Grafoscopio-Utils-Core' } { #category : #'*Grafoscopio-Utils-Core' }
LePage >> asMarkdeep [ LePage >> asMarkdeep [
| bodyStream | | bodyStream markdeep |
bodyStream := '' writeStream. bodyStream := '' writeStream.
self preorderTraversal do: [:snippet | self preorderTraversal do: [:snippet |
bodyStream nextPutAll: snippet asMarkdeep bodyStream nextPutAll: snippet asMarkdeep
]. ].
^ Markdeep new markdeep := Markdeep new
title: self title; title: self title;
body: bodyStream contents body: bodyStream contents.
contents. self metadata keysAndValuesDo: [:k :v |
markdeep header
add: '<meta name="', k, '" content="', v,'">';
yourself.
].
^ markdeep.
] ]
{ #category : #'*Grafoscopio-Utils-Core' } { #category : #'*Grafoscopio-Utils-Core' }
@ -39,13 +44,20 @@ LePage >> markdeepTemporalFile [
{ #category : #'*Grafoscopio-Utils-Core' } { #category : #'*Grafoscopio-Utils-Core' }
LePage >> metadata [ LePage >> metadata [
^ self options at: 'metadata' ifAbsentPut: [ self metadataInit]
]
{ #category : #'*Grafoscopio-Utils-Core' }
LePage >> metadataInit [
^ OrderedDictionary new ^ OrderedDictionary new
at: 'id' put: self uidString; at: 'id' put: self uidString;
at: 'created' put: self createTime asString; at: 'created' put: self createTime asString;
at: 'modified' put: self latestEditTime asString; at: 'modified' put: self latestEditTime asString;
at: 'creator' put: self createEmail asString; at: 'creator' put: self createEmail asString;
at: 'editor' put: self editEmail asString; at: 'modifier' put: self editEmail asString;
yourself. yourself
] ]
{ #category : #'*Grafoscopio-Utils-Core' } { #category : #'*Grafoscopio-Utils-Core' }