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

Improving importation and printing.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-08-11 12:10:53 -05:00
parent 5b7fe3406d
commit af8b05295e
2 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,6 +86,20 @@ Tiddler >> creator: anObject [
creator := anObject
]
{ #category : #accessing }
Tiddler >> fromDictionary: aDictionary [
self
title: (aDictionary at: 'title');
text: (aDictionary at: 'text');
tags: (aDictionary at: 'tags' ifAbsentPut: [ nil ]);
created: (aDictionary at: 'created' ifAbsentPut: [ nil ]);
creator: (aDictionary at: 'creator' ifAbsentPut: [ nil ]);
modified: (aDictionary at: 'modified' ifAbsentPut: [ nil ]);
modifier: (aDictionary at: 'modifier' ifAbsentPut: [ nil ]);
type: (aDictionary at: 'type' ifAbsentPut: [ nil ]);
caption: (aDictionary at: 'caption' ifAbsentPut: [ nil ]).
]
{ #category : #'instance creation' }
Tiddler >> fromMarkdownParsedItems: aCollection [
| outputStream |

28
repository/TiddlyWiki/TiddlyWiki.class.st
View File

@ -24,23 +24,19 @@ TiddlyWiki >> file: anObject [
file := anObject
]
{ #category : #'instance creation' }
TiddlyWiki >> fromJSONString: aString [
| rawData |
rawData := NeoJSONReader fromString: aString.
rawData do: [ :data | | temp |
temp := Tiddler new.
temp
modified: (data at: 'modified');
created: (data at: 'created' ifAbsent: [ temp created: nil ]);
title: (data at: 'title');
tags: (data at: 'tags' ifAbsent: [ temp tags: nil ]);
type: (data at: 'type' ifAbsent: [ temp type: nil ]);
caption: (data at: 'caption' ifAbsent: [ temp caption: nil ]);
text: (data at: 'text').
self tiddlers add: temp.
].
{ #category : #accessing }
TiddlyWiki >> importJSONTiddlers [
| tiddlersDict |
self tiddlersJSONFile ifNil: [ ^ self ].
tiddlersDict := STONJSON fromString: self tiddlersJSONFile contents.
self tiddlers: (tiddlersDict collect: [:each | Tiddler new fromDictionary: each ])
]
{ #category : #accessing }
TiddlyWiki >> printOn: aStream [
super printOn: aStream.
aStream
nextPutAll: '( ', self file basename ,' )'
]
{ #category : #accessing }