16 lines
664 B
Smalltalk
16 lines
664 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-username');
|
|
type: 'text/vnd.tiddlywiki';
|
|
text:
|
|
'<<image-card "', self profileImageUrl, '" title:', ($' asString), '<$transclude field="profile-card-fullname"/>', ($' asString), 'text:', ($' asString), '<$transclude field="profile-bio"/>', ($' asString), 'footer:', ($' asString), '@<$transclude field="profile-card-username"/>', ($' asString), 'align:"center" pos:"top">>'. |