Fixing bug when tiddlers have no text.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-10-20 09:29:35 -05:00
parent a4aad67179
commit fecbd57f16

View File

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