diff --git a/repository/TiddlyWiki/Tiddler.class.st b/repository/TiddlyWiki/Tiddler.class.st index 6304448..6acd68d 100644 --- a/repository/TiddlyWiki/Tiddler.class.st +++ b/repository/TiddlyWiki/Tiddler.class.st @@ -133,9 +133,11 @@ Tiddler >> itemContentsStringFor: item into: stream [ { #category : #accessing } Tiddler >> linkedTiddlers [ - "At the begining we are going to introduce 'pureTiddles' as thos included in the wiki which are not linked + "At the begining we are going to introduce 'pureTiddlers' as thos included in the wiki which are not linked via aliases. Future versions of this method sould included internal aliased tiddlers." - self rawLinks + | pureTiddlersTitles | + pureTiddlersTitles := self rawLinks difference: self rawAliasedLinks. + ^ self wiki tiddlers select: [:tiddler | pureTiddlersTitles includes: tiddler title ]. ] { #category : #accessing } diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st index 9127084..da96a10 100644 --- a/repository/TiddlyWiki/TiddlyWiki.class.st +++ b/repository/TiddlyWiki/TiddlyWiki.class.st @@ -36,6 +36,18 @@ TiddlyWiki >> importJSONTiddlers [ ]) ] +{ #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.