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 ^ response contents
] ]
{ #category : #accessing }
Tiddler >> tagsInBrackets [
| tagsInBrackets |
tagsInBrackets := self rawLinksIn: self tags.
^ tagsInBrackets
]
{ #category : #accessing } { #category : #accessing }
Tiddler >> tagsReformating [ Tiddler >> tagsReformating [
| response sanitized tagsInBrackets | | response sanitized |
self tags class ~= ByteString ifTrue: [ ^ self ]. self tags class ~= ByteString ifTrue: [ ^ self ].
response := Set new. response := Set new.
tagsInBrackets := self rawLinksIn: self tags. sanitized := self tags.
tagsInBrackets ifNotEmpty: [ self tagsInBrackets ifNotEmpty: [
tagsInBrackets do: [:tag | sanitized := self tags copyReplaceAll: tag with: ''. ] self tagsInBrackets do: [:tag | sanitized := sanitized copyReplaceAll: tag with: ''. ].
sanitized := sanitized copyReplaceAll: '[[]] ' with: ''.
]. ].
sanitized := sanitized copyReplaceAll: '[[]] ' with: ''.
response addAll: (sanitized trimmed splitOn: Character space) asSet. response addAll: (sanitized trimmed splitOn: Character space) asSet.
self tags: (response union: tagsInBrackets). self tags: (response union: self tagsInBrackets).
] ]