diff --git a/src/MiniDocs/LePharoSnippet.extension.st b/src/MiniDocs/LePharoSnippet.extension.st index f11904d..667eed6 100644 --- a/src/MiniDocs/LePharoSnippet.extension.st +++ b/src/MiniDocs/LePharoSnippet.extension.st @@ -8,6 +8,17 @@ LePharoSnippet >> contentAsStringCustomized [ ^ thisObject perform: self detectMessage trimmed asSymbol. ] +{ #category : #'*MiniDocs' } +LePharoSnippet >> fromDictionary: anOrderedDictionary [ + self + uid: (LeUID new uidString: (anOrderedDictionary at: 'id')); + parent: (anOrderedDictionary at: 'parent'); + createTime: (LeTime new time: ((anOrderedDictionary at: 'created')asDateAndTime)); + editTime: (LeTime new time: ((anOrderedDictionary at: 'modified') asDateAndTime)); + editEmail: (anOrderedDictionary at: 'modifier'); + createEmail: (anOrderedDictionary at: 'creator'). +] + { #category : #'*MiniDocs' } LePharoSnippet >> fromMarkdeep: markdeepDiv [ diff --git a/src/MiniDocs/LeTextSnippet.extension.st b/src/MiniDocs/LeTextSnippet.extension.st index 5a222a6..5a65a0e 100644 --- a/src/MiniDocs/LeTextSnippet.extension.st +++ b/src/MiniDocs/LeTextSnippet.extension.st @@ -18,6 +18,17 @@ LeTextSnippet >> asLePage [ ^ page. ] +{ #category : #'*MiniDocs' } +LeTextSnippet >> fromDictionary: anOrderedDictionary [ + self + uid: (LeUID new uidString: (anOrderedDictionary at: 'id')); + parent: (anOrderedDictionary at: 'parent'); + createTime: (LeTime new time: ((anOrderedDictionary at: 'created')asDateAndTime)); + editTime: (LeTime new time: ((anOrderedDictionary at: 'modified') asDateAndTime)); + editEmail: (anOrderedDictionary at: 'modifier'); + createEmail: (anOrderedDictionary at: 'creator') +] + { #category : #'*MiniDocs' } LeTextSnippet >> fromMarkdeep: markdeepDiv [