shuffle testimonials on startup

Author: cekrem

elm.json

@@ -12,7 +12,9 @@
             "elm/html": "1.0.0",
             "elm/http": "2.0.0",
             "elm/json": "1.1.3",
-            "elm/time": "1.0.0"
+            "elm/random": "1.0.0",
+            "elm/time": "1.0.0",
+            "elm-community/random-extra": "3.2.0"
         },
         "indirect": {
             "elm/bytes": "1.0.8",

src/Testimonials.elm

@@ -6,6 +6,8 @@ import Html.Events as Events
 import HtmlHelpers exposing (hideOnBreakpoint)
 import Http
 import Json.Decode
+import Random
+import Random.List exposing (shuffle)
 import Set
 import Task
 import Time
@@ -71,7 +73,7 @@ type Msg
     = Right
     | Left
     | GotTestimonials (Result Http.Error (List Testimonial))
-    | SetRandomizedIndex Time.Posix
+    | GotShuffledTetsemonials (List Testimonial)
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )
@@ -83,11 +85,11 @@ update msg model =
         ( Success testimonials index, Left ) ->
             ( Success testimonials (changeOrRollover testimonials (index - 1)), Cmd.none )
 
-        ( Success testimonials _, SetRandomizedIndex time ) ->
-            ( Success testimonials (changeOrRollover testimonials (time |> Time.posixToMillis)), Cmd.none )
+        ( Loading, GotShuffledTetsemonials testimonials ) ->
+            ( Success testimonials 0, Cmd.none )
 
         ( _, GotTestimonials (Ok testimonials) ) ->
-            ( Success testimonials 0, Cmd.none )
+            ( Loading, Random.generate GotShuffledTetsemonials (shuffle testimonials) )
 
         ( _, GotTestimonials (Err _) ) ->
             ( Failure, Cmd.none )