remove special case for tags in view branch names

Just having "_" for tags=* turned out to be too hard to understand.

Note that this invalidaes all current views.
This commit is contained in:
Joey Hess 2014-02-19 17:29:04 -04:00
parent c85a482136
commit cfed7f6a5d

View file

@ -73,13 +73,11 @@ branchView view
branchcomp c
| viewVisible c = branchcomp' c
| otherwise = "(" ++ branchcomp' c ++ ")"
branchcomp' (ViewComponent metafield viewfilter _)
| metafield == tagMetaField = branchvals viewfilter
| otherwise = concat
[ forcelegal (fromMetaField metafield)
, "="
, branchvals viewfilter
]
branchcomp' (ViewComponent metafield viewfilter _) =concat
[ forcelegal (fromMetaField metafield)
, "="
, branchvals viewfilter
]
branchvals (FilterValues set) = intercalate "," $
map (forcelegal . fromMetaValue) $ S.toList set
branchvals (FilterGlob glob) = forcelegal glob