randomness implemented

elm.json

@@ -13,6 +13,7 @@
             "elm/html": "1.0.0",
             "elm/http": "2.0.0",
             "elm/json": "1.1.3",
+            "elm/random": "1.0.0",
             "elm/url": "1.0.0",
             "fapian/elm-html-aria": "1.4.0",
             "folkertdev/elm-flate": "2.0.5",
@@ -22,7 +23,6 @@
             "myrho/elm-round": "1.0.5"
         },
         "indirect": {
-            "elm/random": "1.0.0",
             "elm/time": "1.0.0",
             "elm/virtual-dom": "1.0.3",
             "elm-community/list-extra": "8.7.0",

src/Dashboard.elm

@@ -43,7 +43,7 @@ playlists =
                   td [ class "table-dark" ]
                     [ text playlist.name ]
                 , td [ class "table-dark" ]
-                    [ a [ href playlist.url ] [ text "Link" ]
+                    [ a [ href ("https://open.spotify.com/playlist/" ++ playlist.id) ] [ text "Link" ]
                     ]
 
                 -- , th [ class "table-dark" ]

src/Main.elm

@@ -16,6 +16,7 @@ import Register exposing (submitRegister)
 import Types exposing (..)
 import Url exposing (Protocol(..))
 import Url.Parser exposing (s, top)
+import Random exposing (..)
 
 
 type alias Flags =
@@ -58,6 +59,7 @@ init flags url key =
       , token = flags.token
       , mood = 5
       , genre = "Rock"
+      , randomInt = 0
       , divvis = visibleController ()
       , playlist = Nothing
       , tracks = Nothing
@@ -215,7 +217,7 @@ update msg model =
             ( model, Cmd.none )
 
         ToggleDiv ->
-            ( { model | divvis = { visible1 = not model.divvis.visible1, visible2 = not model.divvis.visible2 } }, Cmd.none )
+            ( { model | divvis = { visible1 = not model.divvis.visible1, visible2 = not model.divvis.visible2 } }, Random.generate RandomInt (Random.int 1 30))
 
         MoodUpdate m ->
             ( { model
@@ -231,8 +233,11 @@ update msg model =
             , Cmd.none
             )
 
+        RandomInt x ->
+            ( { model | randomInt = x }, Cmd.none ) 
+
         PlaylistSubmit ->
-            ( model, playlistRequest model.access_token model.mood model.genre )
+            ( model, playlistRequest model model.access_token model.mood model.genre )
 
         PlaylistRequest (Ok playlist_response) ->
             let
@@ -273,7 +278,7 @@ update msg model =
             in
             case repeat of
                 PlayListSpotifyRequest ->
-                    ( m, playlistRequest model.access_token model.mood model.genre )
+                    ( m, playlistRequest model model.access_token model.mood model.genre )
 
                 TracksSpotifyRequest ->
                     case model.playlist of

src/Mood.elm

@@ -2,7 +2,7 @@ module Mood exposing (mood, storePlaylist)
 
 import Common exposing (nbsp, sidebar)
 import Html exposing (Html, button, div, h1, img, input, label, option, p, select, source, span, text, video)
-import Html.Attributes exposing (autoplay, class, classList, disabled, for, height, href, id, loop, selected, src, step, style, type_, value, width)
+import Html.Attributes exposing (autoplay, class, classList, disabled, for, height, href, id, loop, src, step, style, type_, value, width)
 import Html.Attributes.Aria exposing (ariaLabel)
 import Html.Events exposing (onClick, onInput)
 import Http

src/PlaylistApi.elm

@@ -4,6 +4,7 @@ import Html exposing (..)
 import Http
 import Json.Decode as Json
 import Types exposing (..)
+import Random
 
 
 moodSwitch : Int -> String
@@ -28,8 +29,8 @@ moodSwitch mood =
             ""
 
 
-playlistRequest : String -> Int -> String -> Cmd Msg
-playlistRequest access_token mood genre =
+playlistRequest : Model -> String -> Int -> String -> Cmd Msg
+playlistRequest model access_token mood genre =
     Http.request
         { method = "GET"
         , headers =
@@ -40,15 +41,15 @@ playlistRequest access_token mood genre =
             ]
         , url = "https://api.spotify.com/v1/search?q=" ++ (mood |> moodSwitch) ++ ("+" ++ genre) ++ "&type=playlist&market=PT&limit=30"
         , body = Http.emptyBody
-        , expect = Http.expectJson PlaylistRequest playlistDecoder
+        , expect = Http.expectJson PlaylistRequest (playlistDecoder model)
         , timeout = Nothing
         , tracker = Nothing
         }
 
 
-playlistDecoder : Json.Decoder Playlist
-playlistDecoder =
-    Json.at [ "playlists", "items", "0" ]
+playlistDecoder : Model -> Json.Decoder Playlist
+playlistDecoder model =
+    Json.at [ "playlists", "items", (model.randomInt |> String.fromInt) ]
         (Json.map5 Playlist
             (Json.field "name" Json.string)
             (Json.field "id" Json.string)

src/Types.elm

@@ -7,6 +7,7 @@ import Http
 import Json.Decode
 import Json.Encode
 import Url
+import Random
 
 
 type Route
@@ -209,6 +210,7 @@ type alias Model =
     , token : String
     , mood : Int
     , genre : String
+    , randomInt : Int
     , divvis : DivVisibility
     , playlist : Maybe Playlist
     , tracks : Maybe (List Tracks)
@@ -219,7 +221,6 @@ type alias Model =
     , playlistsStored : List PlaylistStored
     }
 
-
 type SpotifyRequest
     = PlayListSpotifyRequest
     | TracksSpotifyRequest
@@ -243,6 +244,7 @@ type Msg
     | ToggleDiv
     | MoodUpdate Int
     | GenreUpdate String
+    | RandomInt Int
     | PlaylistSubmit
     | PlaylistRequest (Result Http.Error Playlist)
     | RefreshTokenRequest ( SpotifyRequest, Result Http.Error SpotifyAuth )