Starting support for wiki visualizations.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-08-17 12:03:53 -05:00
parent d7b7b5ac7e
commit f390c61d6f
2 changed files with 41 additions and 2 deletions

View File

@ -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
]

View File

@ -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 [