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:
parent
c85a482136
commit
cfed7f6a5d
1 changed files with 5 additions and 7 deletions
12
Logs/View.hs
12
Logs/View.hs
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue