diff options
-rw-r--r-- | data/style.css | 3 | ||||
-rw-r--r-- | elm/UList/Opt.elm | 31 |
2 files changed, 22 insertions, 12 deletions
diff --git a/data/style.css b/data/style.css index a4526426..7f00f5e8 100644 --- a/data/style.css +++ b/data/style.css @@ -823,7 +823,8 @@ div.votelist td.tc2 { width: 50px; text-align: right; padding-right: 10px } .ulist .tc6 div input:focus, .ulist .tc7 div input:focus { visibility: visible } .ulist .tc_opt { padding: 0 0 5px 70px } -.ulist .tc_opt textarea { width: 500px; height: 50px } +.ulist .tc_opt textarea { width: 500px; height: 18px; border: none } +.ulist .tc_opt textarea:focus { height: 50px; border: 1px solid $secborder$ } .ulist .tc_opt textarea + div { display: inline-block; padding-left: 10px } .ulist .tc_opt .tco1 { white-space: nowrap; width: 100px } .ulist .tc_opt .tco2 { white-space: nowrap; width: 100px } diff --git a/elm/UList/Opt.elm b/elm/UList/Opt.elm index 5a8aaa1e..c1f488a0 100644 --- a/elm/UList/Opt.elm +++ b/elm/UList/Opt.elm @@ -161,19 +161,28 @@ view model = opt = [ tr [] [ td [ colspan 5 ] - [ textarea ([ placeholder "Notes", rows 2, cols 80, onInput Notes, onBlur (NotesSave model.notesRev) ] ++ GVN.valNotes) [ text model.notes ] - , div [ ] - [ div [ class "spinner", classList [("invisible", model.notesState /= Api.Loading)] ] [] - , br [] [] - , case model.notesState of - Api.Error e -> b [ class "standout" ] [ text <| Api.showResponse e ] - _ -> text "" - , br [] [] + [ textarea ( + [ placeholder "Notes", rows 2, cols 80 + , onInput Notes, onBlur (NotesSave model.notesRev) + ] ++ GVN.valNotes + ) [ text model.notes ] + , div [ ] <| + [ div [ class "spinner", classList [("hidden", model.notesState /= Api.Loading)] ] [] , a [ href "#", onClickD (Del True) ] [ text "Remove VN" ] - ] + ] ++ ( + if model.relOptions == Nothing + then [ text " | ", a [ href "#", onClickD RelLoad ] [ text "Add release" ] ] + else [] + ) ++ ( + case model.notesState of + Api.Error e -> [ br [] [], b [ class "standout" ] [ text <| Api.showResponse e ] ] + _ -> [] + ) ] ] - , tfoot [] + , if model.relOptions == Nothing && model.relState == Api.Normal + then text "" + else tfoot [] [ tr [] [ td [ colspan 5 ] <| -- TODO: This <select> solution is ugly as hell, a Lib.DropDown-based solution would be nicer. @@ -181,7 +190,7 @@ view model = case (model.relOptions, model.relState) of (Just opts, _) -> [ inputSelect "" 0 RelAdd [ style "width" "500px" ] <| (0, "-- add release --") :: List.filter (\(rid,_) -> not <| List.any (\r -> r.id == rid) model.rels) opts ] - (_, Api.Normal) -> [ a [ href "#", onClickD RelLoad ] [ text "Add release" ] ] + (_, Api.Normal) -> [] (_, Api.Loading) -> [ span [ class "spinner" ] [], text "Loading releases..." ] (_, Api.Error e) -> [ b [ class "standout" ] [ text <| Api.showResponse e ], text ". ", a [ href "#", onClickD RelLoad ] [ text "Try again" ] ] ] |