RoloLudo/RoloLudo.package/SfTruth.class/instance/asTiddlers.st

23 lines
682 B
Smalltalk
Raw Normal View History

2021-05-31 02:46:52 +00:00
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