Mirrors/go-inbucket
1
0
Fork 0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-18 10:07:02 +00:00
Code Issues Releases Wiki Activity

ui: messageList becomes viewMessageList

Browse Source
This commit is contained in:
James Hillyerd
2018-11-05 22:32:02 -08:00
parent 5328406533
commit af9c735cd7
1 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -299,7 +299,7 @@ updateSelected model id =
{ model | state = ShowingList newList LoadingMessage } { model | state = ShowingList newList LoadingMessage }
LoadingMessage -> LoadingMessage ->
model { model | state = ShowingList newList LoadingMessage }
ShowingMessage visible -> ShowingMessage visible ->
-- Use Transitioning state to prevent blank message flicker. -- Use Transitioning state to prevent blank message flicker.
@@ -406,23 +406,7 @@ getMessage mailboxName id =
view : Session -> Model -> Html Msg view : Session -> Model -> Html Msg
view session model = view session model =
div [ id "page", class "mailbox" ] div [ id "page", class "mailbox" ]
[ aside [ id "message-list" ] [ viewMessageList session model
[ div []
[ input
[ type_ "search"
, placeholder "search"
, onInput SearchInput
, value model.searchInput
]
[]
]
, case model.state of
LoadingList _ ->
div [] []
ShowingList list _ ->
messageList list
]
, main_ , main_
[ id "message" ] [ id "message" ]
[ case model.state of [ case model.state of
@@ -444,14 +428,30 @@ view session model =
] ]
messageList : MessageList -> Html Msg viewMessageList : Session -> Model -> Html Msg
messageList list = viewMessageList session model =
aside [ id "message-list" ]
[ div []
[ input
[ type_ "search"
, placeholder "search"
, onInput SearchInput
, value model.searchInput
]
[]
]
, case model.state of
LoadingList _ ->
div [] []
ShowingList list _ ->
div [] div []
(list (list
|> filterMessageList |> filterMessageList
|> List.reverse |> List.reverse
|> List.map (messageChip list.selected) |> List.map (messageChip list.selected)
) )
]
messageChip : Maybe MessageID -> MessageHeader -> Html Msg messageChip : Maybe MessageID -> MessageHeader -> Html Msg