Mirrors/go-inbucket
1
0
Fork 0
mirror of https://github.com/jhillyerd/inbucket.git synced 2026-01-06 03:17:05 +00:00
Code Issues Releases Wiki Activity

ui: Make message & list scroll within viewport

Browse Source
This commit is contained in:
James Hillyerd
2018-11-25 21:19:28 -08:00
parent 6a95dfe5c6
commit 7a16f64ff0
2 changed files with 42 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
ui/src/Page/Mailbox.elm
View File

@@ -475,7 +475,17 @@ view session model =
{ title = model.mailboxName ++ " - Inbucket"
, content =
div [ class "page mailbox" ]
[ viewMessageList session model
[ aside [ class "message-list-controls" ]
[ input
[ type_ "search"
, placeholder "search"
, onInput OnSearchInput
, value model.searchInput
]
[]
, button [ onClick PurgeMailbox ] [ text "Purge" ]
]
, viewMessageList session model
, main_
[ class "message" ]
[ case model.state of
@@ -500,29 +510,16 @@ view session model =
viewMessageList : Session -> Model -> Html Msg
viewMessageList session model =
aside [ class "message-list" ]
[ div []
[ input
[ type_ "search"
, placeholder "search"
, onInput OnSearchInput
, value model.searchInput
]
[]
, button [ onClick PurgeMailbox ] [ text "Purge" ]
]
, case model.state of
aside [ class "message-list" ] <|
case model.state of
LoadingList _ ->
div [] []
[]
ShowingList list _ ->
div []
(list
|> filterMessageList
|> List.reverse
|> List.map (messageChip model list.selected)
)
]
list
|> filterMessageList
|> List.reverse
|> List.map (messageChip model list.selected)
messageChip : Model -> Maybe MessageID -> MessageHeader -> Html Msg