summaryrefslogtreecommitdiff
path: root/elm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2020-11-04 13:57:01 +0100
committerYorhel <git@yorhel.nl>2020-11-04 13:57:01 +0100
commit2e4716d4af6b8602ec53178d3a48379575bb1f17 (patch)
tree83467d66592cbe853142e25b0653fdd2a26cce00 /elm
parent71d166057701305e1b7def38c4c6d0926494f9ec (diff)
AdvSearch: Fix subbranch button for root node + set descriptive length title
Diffstat (limited to 'elm')
-rw-r--r--elm/AdvSearch/Fields.elm4
-rw-r--r--elm/AdvSearch/Set.elm2
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
]