15 lines
465 B
Plaintext
15 lines
465 B
Plaintext
lobby define: #remarks -> (
|
|
{'April' -> 'Bubbly: I\'m > Tam and <= Emily'.
|
|
'Tam O\'Shanter' -> 'Burns: "When chapman billies leave the street ..."'.
|
|
'Emily' -> 'Short & shrift'.
|
|
} as: Dictionary).
|
|
|
|
define: #writer -> (Xml Writer newOn: '' new writer).
|
|
writer inTag: 'CharacterRemarks' do:
|
|
[| :w |
|
|
lobby remarks keysAndValuesDo:
|
|
[| :name :remark | w inTag: 'Character' do: [| :w | w ; remark] &attributes: {'name' -> name}].
|
|
].
|
|
|
|
inform: writer contents
|