16 lines
425 B
Smalltalk
16 lines
425 B
Smalltalk
accessing
|
|
asTiddler
|
|
|
|
| tempDict tiddler |
|
|
tiddler := Tiddler new.
|
|
tiddler customFields.
|
|
tempDict := self asDictionary.
|
|
tempDict keysAndValuesDo: [ :key :value |
|
|
tiddler customFields at: key put: value
|
|
].
|
|
^ tiddler
|
|
created;
|
|
title: (tiddler customFields at: 'profile-card-fullname');
|
|
type: 'text/vnd.tiddlywiki';
|
|
text:
|
|
'@<$transclude field="profile-card-username"/><br/><$transclude field="profile-bio"/>'. |