96 lines
1.9 KiB
Smalltalk
96 lines
1.9 KiB
Smalltalk
"
|
|
I model a TiddlyWiki.
|
|
More information:
|
|
|
|
https://tiddlywiki.com/
|
|
"
|
|
Class {
|
|
#name : 'TiddlyWiki',
|
|
#superclass : 'Object',
|
|
#instVars : [
|
|
'tiddlers',
|
|
'file'
|
|
],
|
|
#category : 'TiddlyWiki-Model'
|
|
}
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> exportSTONTiddlersFile [
|
|
| stonFile output |
|
|
stonFile := self tiddlersJSONFile withoutExtension, 'ston'.
|
|
output := '' writeStream.
|
|
(STON writer on: output )
|
|
newLine: String lf;
|
|
prettyPrint: true;
|
|
keepNewLines: true;
|
|
nextPut: self.
|
|
^ MarkupFile exportAsFileOn: stonFile containing:output contents
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> file [
|
|
^ file
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> file: anObject [
|
|
file := anObject
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> importJSONTiddlersFile [
|
|
| tiddlersDict |
|
|
self tiddlersJSONFile ifNil: [ ^ self ].
|
|
tiddlersDict := STONJSON fromString: self tiddlersJSONFile contents.
|
|
self tiddlers: (tiddlersDict collect: [:each |
|
|
Tiddler new
|
|
fromDictionary: each;
|
|
wiki: self
|
|
])
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> networkView [
|
|
| view |
|
|
view := GtMondrian new.
|
|
view nodes
|
|
with: self tiddlers.
|
|
view edges
|
|
connectFromAll: #linkedTiddlers.
|
|
view layout force.
|
|
^ view
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> printOn: aStream [
|
|
super printOn: aStream.
|
|
aStream
|
|
nextPutAll: '( ', self file basename ,' )'
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> taggedWith: aTag [
|
|
^ self tiddlers select: [:tiddler |
|
|
tiddler tags isNotNil and: [tiddler tags includesSubstring: aTag ]
|
|
]
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> tiddlers [
|
|
|
|
^ tiddlers ifNil: [ tiddlers := OrderedCollection new ]
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> tiddlers: anOrderedCollection [
|
|
|
|
tiddlers := anOrderedCollection
|
|
]
|
|
|
|
{ #category : 'accessing' }
|
|
TiddlyWiki >> tiddlersJSONFile [
|
|
file ifNil: [ self inform: 'You need to export tiddlers as JSON from TiddlyWiki'.
|
|
^ nil ].
|
|
^ file parent / 'tiddlers.json'.
|
|
]
|