"This script converst selected tiddlers from JSON format to STON,
so versioning and querying can be improved."
| tiddlersFile tiddler tiddlers curated folder tiddlersSTON |

folder := FileLocator home / 'Descargas/Comunal/wiki'.  
tiddlersFile := folder / 'tiddlers.json'.
tiddlers := NeoJSONReader fromString: tiddlersFile contents.
tiddler := tiddlers first. "Test single value"
curated := tiddlers reject: [:tid | (tid keys includes: 'type') and: [ (tid at: 'type') beginsWith: 'image/' ] ].
{ tiddlers . curated }.
tiddlersSTON := String streamContents: [ :stream |
	(STONWriter on: stream)
		prettyPrint: true;
"		newLine: String lf;"
		keepNewLines: true;
		nextPut: curated ]. "Cleaning a base64 binary image for tests."

MarkupFile exportAsFileOn: folder / 'tiddlers.ston' containing:  tiddlersSTON.