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

Modularizing the code under proper responsable classes.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-10-31 16:02:18 -05:00
parent 372c6a6a55
commit f52e027edd
1 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/MiniDocs/OrderedDictionary.extension.st
View File

@ -9,21 +9,8 @@ OrderedDictionary >> addErrata: noteString [
OrderedDictionary >> asLepiterSnippet [ OrderedDictionary >> asLepiterSnippet [
| response | | response |
self at: 'className' ifAbsent: [ ^ nil ]. self at: 'className' ifAbsent: [ ^ nil ].
(self at: 'className') = 'LeTextSnippet' response := (self at: 'className') asClass new.
ifTrue: [ response fromString: (self at: 'content').
response := LeTextSnippet new.
response string: (self at: 'content')
].
(self at: 'className') = 'LePharoSnippet'
ifTrue: [
response := LePharoSnippet new.
response code: (self at: 'content')
].
(self at: 'className') = 'LePictureSnippet'
ifTrue: [
response := LePictureSnippet new.
response fromString: (self at: 'content')
].
response response
uid: (LeUID new uidString: (self at: 'id')); uid: (LeUID new uidString: (self at: 'id'));
parent: (self at: 'parent'); parent: (self at: 'parent');