Merge pull request #442 from eikek/fix-tables

Fix table layout and notification form

modules/webapp/src/main/elm/Comp/EmailSettingsTable.elm

@@ -46,10 +46,12 @@ view : Model -> Html Msg
 view model =
     table [ class "ui selectable pointer table" ]
         [ thead []
+            [ tr []
                 [ th [ class "collapsible" ] [ text "Name" ]
                 , th [] [ text "Host/Port" ]
                 , th [] [ text "From" ]
                 ]
+            ]
         , tbody []
             (List.map (renderLine model) model.emailSettings)
         ]

modules/webapp/src/main/elm/Comp/FolderTable.elm

@@ -45,6 +45,7 @@ view _ items =
     div []
         [ table [ class "ui very basic center aligned table" ]
             [ thead []
+                [ tr []
                     [ th [ class "collapsing" ] []
                     , th [] [ text "Name" ]
                     , th [] [ text "Owner" ]
@@ -52,6 +53,7 @@ view _ items =
                     , th [] [ text "#Member" ]
                     , th [] [ text "Created" ]
                     ]
+                ]
             , tbody []
                 (List.map viewItem items)
             ]

modules/webapp/src/main/elm/Comp/ImapSettingsTable.elm

@@ -46,9 +46,11 @@ view : Model -> Html Msg
 view model =
     table [ class "ui selectable pointer table" ]
         [ thead []
+            [ tr []
                 [ th [ class "collapsible" ] [ text "Name" ]
                 , th [] [ text "Host/Port" ]
                 ]
+            ]
         , tbody []
             (List.map (renderLine model) model.emailSettings)
         ]

modules/webapp/src/main/elm/Comp/NotificationForm.elm

@@ -131,7 +131,7 @@ init : Flags -> ( Model, Cmd Msg )
 init flags =
     let
         initialSchedule =
-            Data.Validated.Unknown Data.CalEvent.everyMonth
+            Data.Validated.Valid Data.CalEvent.everyMonth
 
         sm =
             Comp.CalEventInput.initDefault

modules/webapp/src/main/elm/Comp/NotificationList.elm

@@ -44,6 +44,7 @@ view _ items =
     div []
         [ table [ class "ui very basic center aligned table" ]
             [ thead []
+                [ tr []
                     [ th [ class "collapsing" ] []
                     , th [ class "collapsing" ]
                         [ i [ class "check icon" ] []
@@ -53,6 +54,7 @@ view _ items =
                     , th [] [ text "Recipients" ]
                     , th [] [ text "Remind Days" ]
                     ]
+                ]
             , tbody []
                 (List.map viewItem items)
             ]

modules/webapp/src/main/elm/Comp/ScanMailboxList.elm

@@ -44,6 +44,7 @@ view _ items =
     div []
         [ table [ class "ui very basic center aligned table" ]
             [ thead []
+                [ tr []
                     [ th [ class "collapsing" ] []
                     , th [ class "collapsing" ]
                         [ i [ class "check icon" ] []
@@ -55,6 +56,7 @@ view _ items =
                     , th [] [ text "Target" ]
                     , th [] [ text "Delete" ]
                     ]
+                ]
             , tbody []
                 (List.map viewItem items)
             ]

modules/webapp/src/main/elm/Comp/SentMails.elm

@@ -103,11 +103,13 @@ view model =
         Nothing ->
             table [ class "ui selectable pointer very basic table" ]
                 [ thead []
+                    [ tr []
                         [ th [ class "collapsing" ] [ text "Recipients" ]
                         , th [] [ text "Subject" ]
                         , th [ class "collapsible" ] [ text "Sent" ]
                         , th [ class "collapsible" ] [ text "Sender" ]
                         ]
+                    ]
                 , tbody [] <|
                     List.map
                         renderLine