Make select dropdowns more larger - refs #14

occitech · Oct 11, 2017 · d637be5 · d637be5
1 parent e7758ad
commit d637be5
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 7 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -168,8 +168,10 @@ view model =
             [ h1 [ class "pv3 hover-ph1 hover-dark-red dib grow", style [ ( "cursor", "default" ) ], title "🎶 “Avec le temps, va, tout s'en va ...” - Léo Ferré" ] [ text "Zoupam v3" ]
             , a [ href "#", title "Afficher / cacher la configuration", class "link ml3 moon-gray f3 dim", onClick ToggleConfigOpened ] [ i [ class "fa fa-cog" ] [] ]
             , configuratorPart
-            , Projects.view model.projects
-                |> Html.map UpdateProjects
-            , versionsPart
+            , div [ class "mw8 center" ]
+                [ Projects.view model.projects
+                    |> Html.map UpdateProjects
+                , versionsPart
+                ]
             , issuesPart
             ]
diff --git a/src/Projects.elm b/src/Projects.elm
@@ -76,8 +76,8 @@ view model =
                     div [] []
 
                 Just projects ->
-                    div [ class "tc" ]
-                        [ select [ onInput ProjectSelect, class "pa2", autofocus True ]
+                    div []
+                        [ select [ onInput ProjectSelect, class "pa2 w-100", autofocus True ]
                             (List.map
                                 (\project -> option [ project.id |> toString |> value ] [ text project.name ])
                                 projects

diff --git a/src/Versions.elm b/src/Versions.elm
@@ -110,8 +110,8 @@ view model =
                     div [] []
 
                 Just versions ->
-                    div [ class "tc mt2" ]
-                        [ select [ onInput SelectVersion, class "pa2" ]
+                    div [ class "mt2" ]
+                        [ select [ onInput SelectVersion, class "pa2 w-100" ]
                             (List.map
                                 (\version -> option [ version.id |> toString |> value ] [ text version.name ])
                                 versions