10 lines
275 B
Smalltalk
10 lines
275 B
Smalltalk
|
accessing
|
||
|
|
export
|
||
|
|
| response |
|
||
|
|
response := '' writeStream.
|
||
|
|
(STON writer on: response)
|
||
|
|
newLine: String lf;
|
||
|
|
prettyPrint: true;
|
||
|
|
keepNewLines: true;
|
||
|
|
nextPut: self.
|
||
|
|
^ MarkupFile exportAsFileOn: FileLocator temp / 'firelights.ston' containing: (response contents)
|