10 lines
340 B
Smalltalk
10 lines
340 B
Smalltalk
converting
|
|
abilitiesAsWikiText
|
|
| output |
|
|
output := '' writeStream.
|
|
output
|
|
nextPutAll: '<ul style="list-style-type:none;">'; lf;
|
|
nextPutAll: (self abilitiesAsWikiTextFor: self currentAbilities marked: '⬢');
|
|
nextPutAll: (self abilitiesAsWikiTextFor: self pendingAbilities marked: '⬡');
|
|
nextPutAll: '</ul>'.
|
|
^ output contents |