Tags as sets of multiple elements.
This commit is contained in:
parent
cc865a6b29
commit
e8c7021bfa
@ -591,10 +591,12 @@ Tiddler >> tagsAsString [
|
||||
|
||||
{ #category : #accessing }
|
||||
Tiddler >> tagsReformating [
|
||||
| response |
|
||||
| response sanitized |
|
||||
self tags class ~= ByteString ifTrue: [ ^ self ].
|
||||
response := Set new.
|
||||
response add: self tags.
|
||||
sanitized := self tags trimLeft: [:char | char = $[ ].
|
||||
sanitized := sanitized trimRight: [:char | char = $] ].
|
||||
response addAll: (sanitized trimmed splitOn: Character space) asSet.
|
||||
self tags: response.
|
||||
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user