view, vfilter: Add support for filtering tags and values out of a view, using !tag and field!=value.

Note that negated globs are not supported. Would have complicated the code
to add them, without changing the data type serialization in a
non-backwards-compatable way.

This commit was sponsored by Denver Gingerich.

1 files changed, 7 insertions, 1 deletions

diff --git a/Types/View.hs b/Types/View.hs
index 618193cf9..fd73d92e4 100644
--- a/Types/View.hs
+++ b/Types/View.hs
@@ -38,14 +38,20 @@ instance Arbitrary ViewComponent where
 data ViewFilter
 	= FilterValues (S.Set MetaValue)
 	| FilterGlob String
+	| ExcludeValues (S.Set MetaValue)
 	deriving (Eq, Read, Show)
 
 instance Arbitrary ViewFilter where
 	arbitrary = do
 		size <- arbitrarySizedBoundedIntegral `suchThat` (< 100)
-		FilterValues . S.fromList <$> vector size
+		s <- S.fromList <$> vector size
+		ifM arbitrary
+			( return (FilterValues s)
+			, return (ExcludeValues s)
+			)
 
 {- Can a ViewFilter match multiple different MetaValues? -}
 multiValue :: ViewFilter -> Bool
 multiValue (FilterValues s) = S.size s > 1
 multiValue (FilterGlob _) = True
+multiValue (ExcludeValues _) = False