Offray/RoloLudo
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Improving oracles' import/export.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-07-06 12:20:25 -05:00
parent 9f8556bfa3
commit f5edec4708
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RoloLudo.package/SfOracle.class/instance/asTiddler.st
View File

@ -3,5 +3,5 @@ asTiddler
^ Tiddler new ^ Tiddler new
title: self name; title: self name;
tags: 'Starforged'; tags: 'Starforged';
text: self intro, String lf, String lf, self optionsWikiTextTable; text: self introText, String cr, String cr, self optionsWikiTextTable;
created: DateAndTime now asString. created: DateAndTime now asString.

2
RoloLudo.package/SfOracle.class/instance/fromDictionary..st
View File

@ -1,7 +1,7 @@
accessing accessing
fromDictionary: aDictionary fromDictionary: aDictionary
| optionsTable | | optionsTable |
name := aDictionary at: 'Name'. name := aDictionary at: 'Name' ifAbsent: [ name := aDictionary at: 'Display name' ].
optionsTable := aDictionary at: 'Table'. optionsTable := aDictionary at: 'Table'.
optionsTable doWithIndex: [:opt :i | | key value prevKey | optionsTable doWithIndex: [:opt :i | | key value prevKey |
(i = 1) (i = 1)

3
RoloLudo.package/SfOracle.class/instance/introText.st Normal file
View File

@ -0,0 +1,3 @@
accessing
introText
^ self intro ifNil: [ ^ '' ]

5
RoloLudo.package/SfOracle.class/instance/optionsWikiTextTable.st
View File

@ -2,9 +2,10 @@ accessing
optionsWikiTextTable optionsWikiTextTable
| output | | output |
output := '' writeStream. output := '' writeStream.
self options keysAndValuesDo: [:k :v | self options keysAndValuesDo: [:k :v | | keyString |
keyString := ((k size = 1) ifTrue: [ k first asString ] ifFalse: [ k first asString, ' - ', k last asString ]).
output output
nextPutAll: '| ', k first asString, ' - ', k last asString, ' |'; nextPutAll: '| ',keyString , ' |';
nextPutAll: v, ' |'; cr nextPutAll: v, ' |'; cr
]. ].
^ output contents ^ output contents