Mirrors/go-inbucket
1
0
Fork 0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-17 17:47:03 +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 }
LoadingMessage ->
model
{ model | state = ShowingList newList LoadingMessage }
ShowingMessage visible ->
-- Use Transitioning state to prevent blank message flicker.
@@ -406,23 +406,7 @@ getMessage mailboxName id =
view : Session -> Model -> Html Msg
view session model =
div [ id "page", class "mailbox" ]
[ aside [ id "message-list" ]
[ div []
[ input
[ type_ "search"
, placeholder "search"
, onInput SearchInput
, value model.searchInput
]
[]
]
, case model.state of
LoadingList _ ->
div [] []
ShowingList list _ ->
messageList list
]
[ viewMessageList session model
, main_
[ id "message" ]
[ case model.state of
@@ -444,14 +428,30 @@ view session model =
]
messageList : MessageList -> Html Msg
messageList list =
viewMessageList : Session -> Model -> Html Msg
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 []
(list
|> filterMessageList
|> List.reverse
|> List.map (messageChip list.selected)
)
]
messageChip : Maybe MessageID -> MessageHeader -> Html Msg