bug fix in tag cloud

cientopolis · Aug 12, 2021 · dd4b9cd · dd4b9cd
1 parent 50da4f6
commit dd4b9cd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/Scolr-seaside.package/TagCloudSubcomponent.class/instance/filter..st b/Scolr-seaside.package/TagCloudSubcomponent.class/instance/filter..st
@@ -1,8 +1,8 @@
 api
 filter: aCollectionOfArticles
 	^ aCollectionOfArticles
-		reject: [ :object | 
+		select: [ :object | 
 			| objectTags |
 			objectTags := block value: object.
-			(objectTags anySatisfy: [ :tag | hiddenTags includes: tag ])
-				or: [ (hiddenTags includes: '') & objectTags isEmpty ] ]
+			(objectTags anySatisfy: [ :tag | self visibleTags includes: tag ])
+				or: [ (self visibleTags includes: '') & objectTags isEmpty ] ]
diff --git a/Scolr-seaside.package/TagCloudSubcomponent.class/instance/visibleTags.st b/Scolr-seaside.package/TagCloudSubcomponent.class/instance/visibleTags.st
@@ -0,0 +1,3 @@
+accessing
+visibleTags
+	^ tags copyWithoutAll: hiddenTags