Offray/TiddlyWikiPharo
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixing JSON exportation.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-09-08 20:00:14 -05:00
parent 1a198b9380
commit 28d0e1eb20
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
repository/TiddlyWiki/Tiddler.class.st
View File

@ -49,9 +49,16 @@ Tiddler >> asDictionary [
yourself. yourself.
] ]
{ #category : 'accessing' }
Tiddler >> asJSONFile [
| jsonFile |
jsonFile := self wiki file parent / 'tiddlers' / (self title asLowercase, '.json').
^ MarkupFile exportAsFileOn: jsonFile containing:self asJson
]
{ #category : 'converting' } { #category : 'converting' }
Tiddler >> asJson [ Tiddler >> asJson [
^ STON toStringPretty: { self asDictionary } ^ STONJSON toStringPretty: { self asDictionary }
] ]
{ #category : 'converting' } { #category : 'converting' }
@ -68,7 +75,7 @@ Tiddler >> asJsonTempFile [
{ #category : 'accessing' } { #category : 'accessing' }
Tiddler >> asStonStringPretty [ Tiddler >> asStonStringPretty [
| output temp | | output temp |
temp := self. temp := self copy.
temp wiki: nil. temp wiki: nil.
output := '' writeStream. output := '' writeStream.
(STON writer on: output) (STON writer on: output)
@ -130,6 +137,13 @@ Tiddler >> customFields [
^ customFields ifNil: [ customFields := Dictionary new] ^ customFields ifNil: [ customFields := Dictionary new]
] ]
{ #category : 'accessing' }
Tiddler >> exportSTONFile [
| stonFile output |
stonFile := self wiki file parent / 'tiddlers' / (self title asLowercase, '.ston') .
^ MarkupFile exportAsFileOn: stonFile containing: self asStonStringPretty
]
{ #category : 'accessing' } { #category : 'accessing' }
Tiddler >> exportWithTemplate: aTemplate [ Tiddler >> exportWithTemplate: aTemplate [
^ aTemplate asMustacheTemplate value: self asDictionary ^ aTemplate asMustacheTemplate value: self asDictionary