Fixing tiddler exporter by tag.

This commit is contained in:
ruidajo 2022-10-12 08:13:49 -05:00
parent f0edf4c437
commit fadbdf7ec2

View File

@ -281,6 +281,7 @@ TiddlyWiki >> exportJSONTiddlersTagged: aTag in: aFolder [
TiddlyWiki >> exportJSONTiddlersTagged: aTag in: aFolder named: aFileName [ TiddlyWiki >> exportJSONTiddlersTagged: aTag in: aFolder named: aFileName [
| taggedTiddlers jsonString | | taggedTiddlers jsonString |
self tiddlers.
taggedTiddlers := self taggedWith: aTag. taggedTiddlers := self taggedWith: aTag.
jsonString := '[', (',' join: (taggedTiddlers collect: [ :each | each asJsonString ])), ']'. jsonString := '[', (',' join: (taggedTiddlers collect: [ :each | each asJsonString ])), ']'.
^ MarkupFile exportAsFileOn: aFolder / (aFileName, '.json') containing: jsonString ^ MarkupFile exportAsFileOn: aFolder / (aFileName, '.json') containing: jsonString