Collecting oracles from template wiki.

RoloLudo.package/Firelights.class/instance/loadOraclesFromWikiTemplate.st

@@ -0,0 +1,18 @@
+accessing
+loadOraclesFromWikiTemplate
+	| oraclesTiddler rows |
+	oraclesTiddler := self wiki templateWiki tiddlers 
+		detect: [:tiddler | (tiddler title) = 'Tablas Generadoras' ].
+	rows := oraclesTiddler text lines allButFirst collect: [:each | each splitOn: '|'].
+	^ rows collect: [:row | | tempDice |
+		tempDice := (row second splitOn: '"') second.
+		tempDice := tempDice splitOn: Character space.
+		tempDice := { tempDice first asNumber . tempDice second asNumber }.
+		OrderedDictionary new
+			at: 'dice' put: tempDice;
+			at: 'region' put: row third;
+			at: 'theme' put: row fourth;
+			at: 'event' put: row fifth;
+			at: 'past' put: row sixth;
+			yourself.
+	]

RoloLudo.package/Firelights.class/instance/oracles..st

@@ -0,0 +1,3 @@
+accessing
+oracles: aDictionary
+	oracles := aDictionary 

RoloLudo.package/Firelights.class/instance/oracles.st

@@ -1,3 +1,3 @@
 accessing
 oracles
-	^ oracles ifNil: [ oracles := self populateOracles]
+	^ oracles ifNil: [ oracles := self loadOraclesFromWikiTemplate]

RoloLudo.package/Firelights.class/instance/populateOracles.st

@@ -1,6 +0,0 @@
-accessing
-populateOracles
-	| oraclesTiddler |
-	oraclesTiddler := self wiki templateWiki tiddlers 
-		detect: [:tiddler | (tiddler title) = 'Tablas Generadoras' ].
-	^ oraclesTiddler text lines allButFirst collect: [:each | each splitOn: '|']