From fe1a716173b0a4c6549b1ce44b5f8ddf446def35 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 6 Jun 2021 16:07:09 -0500
Subject: [PATCH] Improving formats conversion.

---
 .../SfAsset.class/instance/abilitiesAsWikiText.st    |  4 ++--
 .../instance/abilitiesAsWikiTextFor.marked..st       | 12 ++++++++++++
 .../SfAsset.class/instance/asJsonTiddler.st          |  2 +-
 3 files changed, 15 insertions(+), 3 deletions(-)
 create mode 100644 RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiTextFor.marked..st

diff --git a/RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiText.st b/RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiText.st
index 27f489c..4f390b3 100644
--- a/RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiText.st
+++ b/RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiText.st
@@ -4,7 +4,7 @@ abilitiesAsWikiText
 	output := '' writeStream.
 	output 
 		nextPutAll: '<ul style="list-style-type:none;">'; cr;
-		nextPutAll: (self abilitiesAsWikiTextFor: self currentAbilities);
-		nextPutAll: (self abilitiesAsWikiTextFor: self pendingAbilities);
+		nextPutAll: (self abilitiesAsWikiTextFor: self currentAbilities marked: '⬢');
+		nextPutAll: (self abilitiesAsWikiTextFor: self pendingAbilities marked: '⬡');
 		nextPutAll: '</ul>'.
 	^ output contents
\ No newline at end of file
diff --git a/RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiTextFor.marked..st b/RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiTextFor.marked..st
new file mode 100644
index 0000000..a45a37c
--- /dev/null
+++ b/RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiTextFor.marked..st
@@ -0,0 +1,12 @@
+utilities
+abilitiesAsWikiTextFor: abilitiesSubset marked: unicodeSymbol
+
+	| aStream |
+	aStream := '' writeStream.
+	abilitiesSubset do: [:abi|
+		aStream 
+			nextPutAll: '  <li> ', unicodeSymbol ; cr;
+			nextPutAll: '    ';
+			nextPutAll: ((WikiText new content: abi) convertMarkdownLinks); cr;
+			nextPutAll: '  </li>'; cr ].
+	^ aStream contents
\ No newline at end of file
diff --git a/RoloLudo.package/SfAsset.class/instance/asJsonTiddler.st b/RoloLudo.package/SfAsset.class/instance/asJsonTiddler.st
index 62e2c38..a8ba71f 100644
--- a/RoloLudo.package/SfAsset.class/instance/asJsonTiddler.st
+++ b/RoloLudo.package/SfAsset.class/instance/asJsonTiddler.st
@@ -1,3 +1,3 @@
 accessing
 asJsonTiddler
-	^ STON toStringPretty: self asTiddler asDictionary. 
\ No newline at end of file
+	^ self asTiddler asJson 
\ No newline at end of file