Style the commit box and buttons

src/App.elm

@@ -170,7 +170,7 @@ decode_file_info =
     (JD.field "is_dir" JD.bool)
     (JD.field "path" JD.string)
 
-decode_command_response =aq
+decode_command_response =
   JD.oneOf
     [ JD.field "error" JD.string |> JD.map Err
     , JD.map2 (\stdout stderr -> Ok { stdout = stdout, stderr = stderr })
@@ -684,19 +684,25 @@ commit_modal model =
           )
         , HA.method "dialog"
         ]
-        [ H.textarea
+        [ H.label
+            [ HA.for "commit-message" ]
+            [ H.text "Commit message" ]
+        , H.textarea
           [ HA.value model.commit_message
           , HE.onInput SetCommitMessage
           ]
           []
-        , H.button
-          [ HA.value "cancel"
-          , HA.attribute "formmethod" "dialog"
-          ]
-          [ H.text "Cancel"]
-        , H.button
-          [ HA.type_ "submit"
-          ]
-          [ H.text "Commit"]
+        , H.p
+            [ HA.class "modal-controls" ]
+            [ H.button
+              [ HA.value "cancel"
+              , HA.attribute "formmethod" "dialog"
+              ]
+              [ H.text "Cancel"]
+            , H.button
+              [ HA.type_ "submit"
+              ]
+              [ H.text "Commit"]
+            ]
         ]
       ]