Creating storeContents of NitterUser in STON format file.
This commit is contained in:
parent
dcb2a4590d
commit
301f4aac27
@ -1,6 +1,12 @@
|
|||||||
accessing
|
accessing
|
||||||
exportWithTemplate: mustacheFile On: folder
|
exportWithTemplate: mustacheFile On: folder
|
||||||
|
|
||||||
|
| tempDictionary modified |
|
||||||
|
tempDictionary := self asDictionary copy.
|
||||||
|
modified := self asDictionary at: 'profile-bio'.
|
||||||
|
modified := modified copyReplaceAll: '@' with: '\@'.
|
||||||
|
modified := modified copyReplaceAll: '_' with: '\_'.
|
||||||
|
tempDictionary at: 'profile-bio' put: modified.
|
||||||
MarkupFile
|
MarkupFile
|
||||||
exportAsFileOn: (folder / self userName , 'tex')
|
exportAsFileOn: (folder / self userName , 'tex')
|
||||||
containing:(mustacheFile asMustacheTemplate value: self asDictionary)
|
containing:(mustacheFile asMustacheTemplate value: tempDictionary)
|
@ -0,0 +1,4 @@
|
|||||||
|
accessing
|
||||||
|
fromSTON: aFileReference
|
||||||
|
|
||||||
|
^ STON fromString:aFileReference contents
|
@ -0,0 +1,6 @@
|
|||||||
|
accessing
|
||||||
|
storeContents
|
||||||
|
|
||||||
|
| objectString |
|
||||||
|
objectString := STON toStringPretty: self.
|
||||||
|
^ MarkupFile exportAsFileOn: self folder/ self userName, 'ston' containing: objectString.
|
Loading…
Reference in New Issue
Block a user