Improving oracles' import/export.

RoloLudo.package/SfOracle.class/instance/asTiddler.st

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

RoloLudo.package/SfOracle.class/instance/fromDictionary..st

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

RoloLudo.package/SfOracle.class/instance/introText.st

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

RoloLudo.package/SfOracle.class/instance/optionsWikiTextTable.st

@@ -2,9 +2,10 @@ accessing
 optionsWikiTextTable
 	| output |
 	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
-			nextPutAll: '| ', k first asString, ' - ', k last asString, ' |';
+			nextPutAll: '| ',keyString , ' |';
 			nextPutAll: v, ' |'; cr
 	].
 	^ output contents