releng_frontend: recent changes form

mozilla · Jan 17, 2017 · 9e589a4 · 9e589a4
1 parent e1a8789
commit 9e589a4
Show file tree

Hide file tree

Showing 10 changed files with 538 additions and 297 deletions.
diff --git a/lib/elm_common/TaskclusterLogin.elm b/lib/elm_common/TaskclusterLogin.elm
@@ -1,11 +1,12 @@
 port module TaskclusterLogin exposing (..)
 
+import Dict exposing (Dict)
 import Html exposing (..)
 import Html.Attributes exposing (..)
-import Dict exposing (Dict)
 import Json.Decode as JsonDecode exposing ((:=))
-import Redirect
 import Maybe
+import Redirect
+import String
 
 
 type alias Certificate =
@@ -119,6 +120,24 @@ redirectToLogin outMsg returnRoute description =
 
 
 
+-- UTILS
+
+
+shortUsername username =
+    let
+        parts =
+            String.split "/" username
+    in
+        if List.length parts == 2 then
+            parts
+                |> List.reverse
+                |> List.head
+                |> Maybe.withDefault username
+        else
+            username
+
+
+
 -- SUBSCRIPTIONS
 
 

diff --git a/src/releng_frontend/src/App/Form.elm b/src/releng_frontend/src/App/Form.elm
@@ -1,6 +1,5 @@
 module App.Form exposing (..)
 
-
 import Form
 import Form.Error
 import Form.Input
@@ -10,32 +9,38 @@ import VirtualDom
 
 
 maybeAppend : Maybe a -> (a -> b) -> List b -> List b
-maybeAppend maybeValue f = 
+maybeAppend maybeValue f =
     maybeValue
-        |> Maybe.map (\x -> [f x])
+        |> Maybe.map (\x -> [ f x ])
         |> Maybe.withDefault []
         |> List.append
 
 
 maybeAppendError : Maybe a -> List (Html b) -> List (Html b)
 maybeAppendError maybeError =
-    maybeAppend maybeError (\x -> div [ class "form-control-feedback" ]
-                                      [ text (toString x) ]
-                           )
+    maybeAppend maybeError
+        (\x ->
+            div [ class "form-control-feedback" ]
+                [ text (toString x) ]
+        )
 
 
 maybeAppendHelp : Maybe String -> List (Html a) -> List (Html a)
 maybeAppendHelp maybeHelp =
-    maybeAppend maybeHelp (\x -> small [ class "form-text text-muted" ]
-                                       [ text x ]
-                          )
+    maybeAppend maybeHelp
+        (\x ->
+            small [ class "form-text text-muted" ]
+                [ text x ]
+        )
 
 
 maybeAppendLabel : Maybe String -> List (Html a) -> List (Html a)
 maybeAppendLabel maybeLabel =
-    maybeAppend maybeLabel (\x -> label [ class "control-label" ]
-                                        [ text x ]
-                           )
+    maybeAppend maybeLabel
+        (\x ->
+            label [ class "control-label" ]
+                [ text x ]
+        )
 
 
 errorClass : Maybe error -> String
@@ -55,7 +60,7 @@ viewField maybeError maybeLabel helpNodes inputNode =
     div
         [ class ("form-group " ++ (errorClass maybeError)) ]
         ([]
-            |> maybeAppendError maybeError 
+            |> maybeAppendError maybeError
             |> List.append [ inputNode ]
             |> List.append helpNodes
             |> maybeAppendLabel maybeLabel
@@ -75,9 +80,10 @@ viewTextInput state labelText helpNodes attributes =
         helpNodes
         (Form.Input.textInput state
             (attributes
-                |> List.append [ class "form-control"
-                               , value (Maybe.withDefault "" state.value)
-                               ]
+                |> List.append
+                    [ class "form-control"
+                    , value (Maybe.withDefault "" state.value)
+                    ]
             )
         )
 
@@ -120,8 +126,10 @@ viewCheckboxInput state labelText =
 
 viewButton labelText attributes =
     button
-        (attributes |> List.append [ type' "submit"
-                                   , class "btn btn-outline-primary"
-                                   ]
+        (attributes
+            |> List.append
+                [ type' "submit"
+                , class "btn btn-outline-primary"
+                ]
         )
         [ text labelText ]