Offray/TiddlyWikiPharo
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixing bug when tiddlers have no text.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-10-20 09:29:35 -05:00
parent a4aad67179
commit fecbd57f16
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
repository/TiddlyWiki/Tiddler.class.st
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 "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."
| pureTiddlersTitles | | pureTiddlersTitles |
self rawLinks ifNil: [ ^nil ].
pureTiddlersTitles := self rawLinks difference: self rawAliasedLinks. pureTiddlersTitles := self rawLinks difference: self rawAliasedLinks.
^ self wiki tiddlers select: [:tiddler | pureTiddlersTitles includes: tiddler title ]. ^ self wiki tiddlers select: [:tiddler | pureTiddlersTitles includes: tiddler title ].
] ]
@ -295,13 +296,14 @@ Tiddler >> printOn: aStream [
nextPutAll: '( ', self title, ' )' nextPutAll: '( ', self title, ' )'
] ]
{ #category : #'as yet unclassified' } { #category : #accessing }
Tiddler >> rawAliasedLinks [ Tiddler >> rawAliasedLinks [
^ self rawLinks select: [ :each | each includesSubstring: '|' ] ^ self rawLinks select: [ :each | each includesSubstring: '|' ]
] ]
{ #category : #accessing } { #category : #accessing }
Tiddler >> rawLinks [ Tiddler >> rawLinks [
self text ifNil: [ ^ Set new ].
^ (WikiTextGrammar new linkSea star parse: self text) asSet ^ (WikiTextGrammar new linkSea star parse: self text) asSet
] ]