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 |