Starting support for wiki visualizations.
This commit is contained in:
parent
d7b7b5ac7e
commit
f390c61d6f
@ -17,7 +17,8 @@ Class {
|
||||
'type',
|
||||
'list',
|
||||
'caption',
|
||||
'modifier'
|
||||
'modifier',
|
||||
'wiki'
|
||||
],
|
||||
#category : #'TiddlyWiki-Model'
|
||||
}
|
||||
@ -130,6 +131,13 @@ Tiddler >> itemContentsStringFor: item into: stream [
|
||||
nextPut: Character cr
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
Tiddler >> linkedTiddlers [
|
||||
"At the begining we are going to introduce 'pureTiddles' as thos included in the wiki which are not linked
|
||||
via aliases. Future versions of this method sould included internal aliased tiddlers."
|
||||
self rawLinks
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
Tiddler >> list [
|
||||
|
||||
@ -187,6 +195,16 @@ Tiddler >> printOn: aStream [
|
||||
nextPutAll: '( ', self title, ' )'
|
||||
]
|
||||
|
||||
{ #category : #'as yet unclassified' }
|
||||
Tiddler >> rawAliasedLinks [
|
||||
^ self rawLinks select: [ :each | each includesSubstring: '|' ]
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
Tiddler >> rawLinks [
|
||||
^ (WikiTextGrammar new linkSea star parse: self text) asSet
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
Tiddler >> tags [
|
||||
|
||||
@ -234,3 +252,13 @@ Tiddler >> type: anObject [
|
||||
|
||||
type := anObject
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
Tiddler >> wiki [
|
||||
^ wiki
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
Tiddler >> wiki: aTiddlyWiki [
|
||||
wiki := aTiddlyWiki
|
||||
]
|
||||
|
@ -29,7 +29,11 @@ TiddlyWiki >> importJSONTiddlers [
|
||||
| tiddlersDict |
|
||||
self tiddlersJSONFile ifNil: [ ^ self ].
|
||||
tiddlersDict := STONJSON fromString: self tiddlersJSONFile contents.
|
||||
self tiddlers: (tiddlersDict collect: [:each | Tiddler new fromDictionary: each ])
|
||||
self tiddlers: (tiddlersDict collect: [:each |
|
||||
Tiddler new
|
||||
fromDictionary: each;
|
||||
wiki: self
|
||||
])
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
@ -39,6 +43,13 @@ TiddlyWiki >> printOn: 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 [
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user