diff --git a/INSTALL.md b/INSTALL.md new file mode 100644 index 0000000..66d019b --- /dev/null +++ b/INSTALL.md @@ -0,0 +1,6 @@ +# INSTALLATION + +# Prérequis + +elm +nix \ No newline at end of file diff --git a/public/images/funky.jpg b/public/images/funky.jpg new file mode 100644 index 0000000..a890fd7 Binary files /dev/null and b/public/images/funky.jpg differ diff --git a/public/images/sound-library/funky.jpg b/public/images/sound-library/funky.jpg new file mode 100644 index 0000000..a890fd7 Binary files /dev/null and b/public/images/sound-library/funky.jpg differ diff --git a/public/images/sound-library/funky.webp b/public/images/sound-library/funky.webp new file mode 100644 index 0000000..937f70a Binary files /dev/null and b/public/images/sound-library/funky.webp differ diff --git a/public/sound/funky/caravan.mp3 b/public/sound/funky/caravan.mp3 new file mode 100644 index 0000000..307e569 Binary files /dev/null and b/public/sound/funky/caravan.mp3 differ diff --git a/public/sound/funky/cry.mp3 b/public/sound/funky/cry.mp3 new file mode 100644 index 0000000..db83621 Binary files /dev/null and b/public/sound/funky/cry.mp3 differ diff --git a/public/sound/funky/do-it.mp3 b/public/sound/funky/do-it.mp3 new file mode 100644 index 0000000..4831a92 Binary files /dev/null and b/public/sound/funky/do-it.mp3 differ diff --git a/public/sound/funky/essence.mp3 b/public/sound/funky/essence.mp3 new file mode 100644 index 0000000..c31e817 Binary files /dev/null and b/public/sound/funky/essence.mp3 differ diff --git a/public/sound/funky/feuille.mp3 b/public/sound/funky/feuille.mp3 new file mode 100644 index 0000000..8230a4b Binary files /dev/null and b/public/sound/funky/feuille.mp3 differ diff --git a/public/sound/funky/fly.mp3 b/public/sound/funky/fly.mp3 new file mode 100644 index 0000000..61a3e31 Binary files /dev/null and b/public/sound/funky/fly.mp3 differ diff --git a/public/sound/funky/little.mp3 b/public/sound/funky/little.mp3 new file mode 100644 index 0000000..c6302f3 Binary files /dev/null and b/public/sound/funky/little.mp3 differ diff --git a/public/sound/funky/merci.mp3 b/public/sound/funky/merci.mp3 new file mode 100644 index 0000000..990e685 Binary files /dev/null and b/public/sound/funky/merci.mp3 differ diff --git a/public/sound/funky/rock.mp3 b/public/sound/funky/rock.mp3 new file mode 100644 index 0000000..f6a3553 Binary files /dev/null and b/public/sound/funky/rock.mp3 differ diff --git a/public/sound/funky/snip-snap.mp3 b/public/sound/funky/snip-snap.mp3 new file mode 100644 index 0000000..b4bba6e Binary files /dev/null and b/public/sound/funky/snip-snap.mp3 differ diff --git a/public/sound/funky/sol.mp3 b/public/sound/funky/sol.mp3 new file mode 100644 index 0000000..22fb588 Binary files /dev/null and b/public/sound/funky/sol.mp3 differ diff --git a/public/sound/funky/stolen.mp3 b/public/sound/funky/stolen.mp3 new file mode 100644 index 0000000..ffcd2bb Binary files /dev/null and b/public/sound/funky/stolen.mp3 differ diff --git a/public/sound/funky/synthetic.mp3 b/public/sound/funky/synthetic.mp3 new file mode 100644 index 0000000..2b83ef6 Binary files /dev/null and b/public/sound/funky/synthetic.mp3 differ diff --git a/public/sound/funky/there.mp3 b/public/sound/funky/there.mp3 new file mode 100644 index 0000000..1d4bc19 Binary files /dev/null and b/public/sound/funky/there.mp3 differ diff --git a/src/elm/Sounds.elm b/src/elm/Sounds.elm index 9b82336..1d34328 100644 --- a/src/elm/Sounds.elm +++ b/src/elm/Sounds.elm @@ -29,6 +29,7 @@ type Profile = ClassicWeird | OfficeSafe | Riot + | Funky poster : Profile -> Image @@ -44,6 +45,10 @@ poster profile = OfficeSafe -> "officesafe.jpg" + + Funky -> + "funky.webp" + , alt = case profile of ClassicWeird -> @@ -54,6 +59,9 @@ poster profile = OfficeSafe -> "An office meeting room full of multicolored plastic balls" + + Funky -> + "Photography of George Clinton" } @@ -75,6 +83,9 @@ nextProfile list = nextProfile (OfficeSafe :: list) Just OfficeSafe -> + nextProfile (Funky :: list) + + Just Funky -> list @@ -90,6 +101,9 @@ title profile = OfficeSafe -> "Office Safe" + Funky -> + "Funky" + code : Profile -> String code profile = @@ -103,6 +117,9 @@ code profile = OfficeSafe -> "OfficeSafe" + Funky -> + "Funky" + fromCode : String -> Profile fromCode string = @@ -142,6 +159,10 @@ soundsOf profile = , officeSafe ) + Funky -> + ( "funky/essence.mp3" + , funky + ) riot : List Sound riot = @@ -156,6 +177,23 @@ riot = , "riot/eiffel_larue.wav.mp3" ] +funky : List Sound +funky = + ["funky/essence.mp3" + , "funky/caravan.mp3" + , "funky/cry.mp3" + , "funky/do-it.mp3" + , "funky/feuille.mp3" + , "funky/fly.mp3" + , "funky/little.mp3" + , "funky/merci.mp3" + , "funky/rock.mp3" + , "funky/snip-snap.mp3" + , "funky/sol.mp3" + , "funky/stolen.mp3" + , "funky/there.mp3" + ] + classicWeird : List Sound classicWeird =