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