Debugging metadata exportation.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-06-11 16:09:11 -05:00
parent 47aabb1d4f
commit 27a28ce543
2 changed files with 13 additions and 2 deletions

View File

@ -4,7 +4,7 @@ Extension { #name : #GtGQLSnippet }
GtGQLSnippet >> asMarkdeep [ GtGQLSnippet >> asMarkdeep [
| output | | output |
output := WriteStream on: ''. output := WriteStream on: ''.
self metadata (self metadata)
at: 'operation' put: self operation; at: 'operation' put: self operation;
at: 'input' put: self input; at: 'input' put: self input;
at: 'context' put: self context; at: 'context' put: self context;

View File

@ -13,7 +13,18 @@ LeSnippet class >> fromMetaMarkdeep: div [
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LeSnippet >> metadata [ LeSnippet >> metadata [
^ self metadataUpdate | createEmailSanitized editEmailSanitized |
createEmailSanitized := self createEmail asString withoutXMLTagDelimiters.
editEmailSanitized := self editEmail asString withoutXMLTagDelimiters.
self optionAt: 'metadata' ifAbsentPut: [ ^ Dictionary new ].
^ (self optionAt: 'metadata')
at: 'id' put: self uidString;
at: 'parent' put: self parent uid asString36;
at: 'created' put: self createTime asString;
at: 'modified' put: self latestEditTime asString;
at: 'creator' put: createEmailSanitized;
at: 'modifier' put: editEmailSanitized;
yourself
] ]
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }