ui: Reformat with elm-format 0.8.1

ui/src/Page/Home.elm

@@ -9,6 +9,7 @@ import Json.Encode as Encode
 import Ports
 
 
+
 -- MODEL --
 
 

ui/src/Page/Mailbox.elm

@@ -31,6 +31,7 @@ import Task
 import Time exposing (Time)
 
 
+
 -- MODEL
 
 
@@ -105,6 +106,7 @@ subscriptions model =
                 ShowingList _ (ShowingMessage { message }) ->
                     if message.seen then
                         Sub.none
+
                     else
                         Time.every (250 * Time.millisecond) SeenTick
 
@@ -212,6 +214,7 @@ update session msg model =
                 ShowingList list (ShowingMessage visible) ->
                     if visible.message.seen then
                         ( model, Cmd.none, Session.none )
+
                     else
                         -- Set delay before reporting message as seen to backend.
                         ( { model
@@ -246,6 +249,7 @@ update session msg model =
                         Just deadline ->
                             if now >= deadline then
                                 updateMarkMessageSeen model message
+
                             else
                                 ( model, Cmd.none, Session.none )
 
@@ -267,6 +271,7 @@ updateMessageResult model message =
         bodyMode =
             if message.html == "" then
                 TextBody
+
             else
                 model.bodyMode
     in
@@ -313,6 +318,7 @@ updateSearchInput model searchInput =
         searchFilter =
             if String.length searchInput > 1 then
                 String.toLower searchInput
+
             else
                 ""
     in
@@ -393,6 +399,7 @@ updateMarkMessageSeen model message =
                 updateSeen header =
                     if header.id == message.id then
                         { header | seen = True }
+
                     else
                         header
 
@@ -568,6 +575,7 @@ messageBody message bodyMode =
         tabs =
             if message.html == "" then
                 [ plainText ]
+
             else
                 [ safeHtml, plainText ]
     in
@@ -592,6 +600,7 @@ attachments message =
     in
     if List.isEmpty message.attachments then
         div [] []
+
     else
         table [ class "attachments well" ] (List.map (attachmentRow baseUrl) message.attachments)
 
@@ -645,6 +654,7 @@ filterMessageList : MessageList -> List MessageHeader
 filterMessageList list =
     if list.searchFilter == "" then
         list.headers
+
     else
         let
             matches header =

ui/src/Page/Monitor.elm

@@ -20,6 +20,7 @@ import Ports
 import Route
 
 
+
 -- MODEL
 
 
@@ -104,6 +105,7 @@ view session model =
                 [ text
                     (if model.connected then
                         "Connected."
+
                      else
                         "Disconnected!"
                     )

ui/src/Page/Status.elm

@@ -12,6 +12,7 @@ import Svg.Attributes as SvgAttrib
 import Time exposing (Time)
 
 
+
 -- MODEL --
 
 
@@ -381,6 +382,7 @@ zeroPadList numbers =
     in
     if needed > 0 then
         List.repeat needed 0 ++ numbers
+
     else
         numbers
 
@@ -394,6 +396,7 @@ fmtInt n =
         thousands str =
             if String.length str <= 3 then
                 str
+
             else
                 thousands (String.slice 0 -3 str) ++ "," ++ String.right 3 str
     in