Starting views.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-08-17 13:24:00 -05:00
parent cb79377fac
commit 069617d4db
2 changed files with 16 additions and 2 deletions

View File

@ -133,9 +133,11 @@ Tiddler >> itemContentsStringFor: item into: stream [
{ #category : #accessing } { #category : #accessing }
Tiddler >> linkedTiddlers [ 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." 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 } { #category : #accessing }

View File

@ -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 } { #category : #accessing }
TiddlyWiki >> printOn: aStream [ TiddlyWiki >> printOn: aStream [
super printOn: aStream. super printOn: aStream.