G
Size: a a a
G
G
R:
R:
R:
SB
R:
RT
RT
R:
R:
RT
RT
RT
RT
R:
R:
R:
elemsDisplayer : List (Html Msg) -> FooterLocale -> List (Html Msg)
elemsDisplayer els footerLocale =
let
mbEl1 = List.head els
mbEl2 = List.head (List.drop 1 els)
mbEl3 = List.head (List.drop 2 els)
mbEl4 = List.head (List.drop 3 els)
mbEl5 = List.head (List.drop 4 els)
mbEl6 = List.head (List.drop 5 els)
mbEl7 = List.head (List.drop 6 els)
in case ( ( mbEl1, mbEl2, mbEl3 ), (mbEl4, mbEl5, mbEl6), mbEl7 ) of
( ( Just el1, Just el2, Just el3 ), (Just el4, Just el5, Just el6), Just el7 ) ->
[ bottomBarElement 7 6 0 footerLocale False el1
, bottomBarElement 5 4 1 footerLocale False el2
, bottomBarElement 3 2 2 footerLocale False el3
, bottomBarElement 1 0 3 footerLocale False el4
, bottomBarElement 3 -2 2 footerLocale False el5
, bottomBarElement 5 -4 1 footerLocale False el6
, bottomBarElement 7 -6 0 footerLocale False el7
]
_ ->
[]