diff options
author | Yorhel <git@yorhel.nl> | 2020-11-04 13:57:01 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-11-04 13:57:01 +0100 |
commit | 2e4716d4af6b8602ec53178d3a48379575bb1f17 (patch) | |
tree | 83467d66592cbe853142e25b0653fdd2a26cce00 /elm | |
parent | 71d166057701305e1b7def38c4c6d0926494f9ec (diff) |
AdvSearch: Fix subbranch button for root node + set descriptive length title
Diffstat (limited to 'elm')
-rw-r--r-- | elm/AdvSearch/Fields.elm | 4 | ||||
-rw-r--r-- | elm/AdvSearch/Set.elm | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/elm/AdvSearch/Fields.elm b/elm/AdvSearch/Fields.elm index 1be82854..c9ba7677 100644 --- a/elm/AdvSearch/Fields.elm +++ b/elm/AdvSearch/Fields.elm @@ -244,7 +244,9 @@ fieldView level (_, dd, model) = , if level <= 1 then b [ title "Can't move this filter to parent branch" ] [ text "↰" ] else a [ href "#", onClickD FMovePar, title "Move this filter to parent branch" ] [ text "↰" ] - , a [ href "#", onClickD FMoveSub, title "Create new branch for this filter" ] [ text "↳" ] + , if level == 0 + then b [ title "Can't move this filter into a subbranch" ] [ text "↳" ] + else a [ href "#", onClickD FMoveSub, title "Create new branch for this filter" ] [ text "↳" ] ] :: cont () ] vf f (lbl,cont,body) = (ddv (Html.map f lbl) (\() -> List.map (Html.map f) (cont ())), Html.map f body) diff --git a/elm/AdvSearch/Set.elm b/elm/AdvSearch/Set.elm index e08c8c94..e4f7281e 100644 --- a/elm/AdvSearch/Set.elm +++ b/elm/AdvSearch/Set.elm @@ -159,7 +159,7 @@ lengthView model = l -> span [] [ lblPrefix model, text <| "Length (" ++ String.fromInt (List.length l) ++ ")" ] , \() -> [ div [ class "advheader" ] - [ h3 [] [ text "Length" ] + [ h3 [] [ text "Estimated play time" ] , opts model False ] , ul [] <| List.map (\(l,t) -> li [] [ linkRadio (Set.member l model.sel) (Sel l) [ text t ] ]) GT.vnLengths ] |