12 lines
297 B
Smalltalk
12 lines
297 B
Smalltalk
|
utilities
|
||
|
|
abilitiesAsWikiTextFor: abilitiesSubset marked: unicodeSymbol
|
||
|
|
|
||
|
|
| aStream |
|
||
|
|
aStream := '' writeStream.
|
||
|
|
abilitiesSubset do: [:abi|
|
||
|
|
aStream
|
||
|
|
nextPutAll: ' <li> ', unicodeSymbol ; cr;
|
||
|
|
nextPutAll: ' ';
|
||
|
|
nextPutAll: abi; cr;
|
||
|
|
nextPutAll: ' </li>'; cr ].
|
||
|
|
^ aStream contents
|