Fixing bug when tiddlers have no text.
This commit is contained in:
parent
a4aad67179
commit
fecbd57f16
@ -212,6 +212,7 @@ Tiddler >> linkedTiddlers [
|
||||
"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."
|
||||
| pureTiddlersTitles |
|
||||
self rawLinks ifNil: [ ^nil ].
|
||||
pureTiddlersTitles := self rawLinks difference: self rawAliasedLinks.
|
||||
^ self wiki tiddlers select: [:tiddler | pureTiddlersTitles includes: tiddler title ].
|
||||
]
|
||||
@ -295,13 +296,14 @@ Tiddler >> printOn: aStream [
|
||||
nextPutAll: '( ', self title, ' )'
|
||||
]
|
||||
|
||||
{ #category : #'as yet unclassified' }
|
||||
{ #category : #accessing }
|
||||
Tiddler >> rawAliasedLinks [
|
||||
^ self rawLinks select: [ :each | each includesSubstring: '|' ]
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
Tiddler >> rawLinks [
|
||||
self text ifNil: [ ^ Set new ].
|
||||
^ (WikiTextGrammar new linkSea star parse: self text) asSet
|
||||
]
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user