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:20:46 -05:00
parent a0aabc55f0
commit 4fab465883
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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