23 lines
682 B
Smalltalk
23 lines
682 B
Smalltalk
|
accessing
|
||
|
|
asTiddlers
|
||
|
|
| tiddlers transcluderText transcluder |
|
||
|
|
tiddlers := OrderedCollection new.
|
||
|
|
transcluderText := '' writeStream.
|
||
|
|
self options doWithIndex: [:opt :i | | tiddler |
|
||
|
|
tiddler := Tiddler new
|
||
|
|
title: self name, 'Option', i asString;
|
||
|
|
text: opt asWikiText;
|
||
|
|
created: DateAndTime now asString.
|
||
|
|
transcluderText nextPutAll: '{{', tiddler title, '}}'; cr; cr.
|
||
|
|
tiddlers add: tiddler.
|
||
|
|
].
|
||
|
|
transcluderText
|
||
|
|
nextPutAll: '----'; cr;
|
||
|
|
nextPutAll: '👤 ', self character.
|
||
|
|
transcluder := Tiddler new
|
||
|
|
title: self name;
|
||
|
|
tags: 'Starforged Truths';
|
||
|
|
text: transcluderText contents;
|
||
|
|
created: DateAndTime now asString.
|
||
|
|
tiddlers add: transcluder.
|
||
|
|
^ tiddlers
|