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

Debugging tags reformating.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-08-12 15:03:23 -05:00
parent bde6c31869
commit a0aabc55f0
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
repository/TiddlyWiki/Tiddler.class.st
View File

@ -596,13 +596,16 @@ Tiddler >> tagsAsString [
{ #category : #accessing } { #category : #accessing }
Tiddler >> tagsReformating [ Tiddler >> tagsReformating [
| response sanitized | | response sanitized tagsInBrackets |
self tags class ~= ByteString ifTrue: [ ^ self ]. self tags class ~= ByteString ifTrue: [ ^ self ].
response := Set new. response := Set new.
sanitized := self tags trimLeft: [:char | char = $[ ]. tagsInBrackets := self rawLinksIn: self tags.
sanitized := sanitized trimRight: [:char | char = $] ]. tagsInBrackets ifNotEmpty: [
tagsInBrackets do: [:tag | sanitized := self tags copyReplaceAll: tag with: ''. ]
].
sanitized := sanitized copyReplaceAll: '[[]] ' with: ''.
response addAll: (sanitized trimmed splitOn: Character space) asSet. response addAll: (sanitized trimmed splitOn: Character space) asSet.
self tags: response. self tags: (response union: tagsInBrackets).
] ]