git.iko.soy/warden
on master help sign in
Added navigation menu
0c13770iko
frontend/Main.elm+1−22
compare with master
unifiedsplit
@@ -103,28 +103,7 @@ view model =
103 div []
103 div []
104 [ Navigation.navigation { back = False, title = title }
104 [ Navigation.navigation { back = False, title = title }
105 , main_ []
105 , main_ []
106− (maybeList (List.head model.notifications) (Notification.notification CloseNotification)
106+ (maybeList (List.head model.notifications) (Notification.notification CloseNotification) ++ body)
107− ++ [ div [ Attr.class "p-side-navigation--icons is-drawer-expanded" ]
108− [ div [ Attr.class "p-side-navigation__overlay" ] []
109− , nav [ Attr.class "p-side-navigation__drawer" ]
110− [ div [ Attr.class "p-side-navigation__drawer-header" ]
111− [ a [ Attr.class "p-side-navigation__toggle--in-drawer" ] [ text "mail@iko.soy" ]
112− ]
113− , ul [ Attr.class "p-side-navigation__list" ]
114− (List.repeat 6
115− (li [ Attr.class "p-side-navigation__item" ]
116− [ a [ Attr.class "p-side-navigation__link" ]
117− [ i [ Attr.class "p-icon--help p-side-navigation__icon" ] []
118− , text "Users"
119− ]
120− ]
121− )
122− )
123− ]
124− ]
125− ]
126− ++ body
127− )
128 ]
107 ]
129
108
130
109
frontend/Pages/Navigation.elm+4−3
@@ -1,7 +1,8 @@
1−module Pages.Navigation exposing (Config, navigation)
1+module Pages.Navigation exposing (Config, menu, navigation)
2
2
3import Html exposing (..)
3import Html exposing (..)
4import Html.Attributes as Attr
4import Html.Attributes as Attr
5+import Html.Events as Ev
5import Utils exposing (..)
6import Utils exposing (..)
6
7
7
8
@@ -37,14 +38,14 @@ menu { title, items, close } =
37 [ div [ Attr.class "p-side-navigation__overlay" ] []
38 [ div [ Attr.class "p-side-navigation__overlay" ] []
38 , nav [ Attr.class "p-side-navigation__drawer" ]
39 , nav [ Attr.class "p-side-navigation__drawer" ]
39 [ div [ Attr.class "p-side-navigation__drawer-header" ]
40 [ div [ Attr.class "p-side-navigation__drawer-header" ]
40− [ a [ Attr.class "p-side-navigation__toggle--in-drawer" ] [ text title ]
41+ [ a [ Attr.class "p-side-navigation__toggle--in-drawer", Ev.onClick close ] [ text title ]
41 ]
42 ]
42 , ul [ Attr.class "p-side-navigation__list" ]
43 , ul [ Attr.class "p-side-navigation__list" ]
43 (items
44 (items
44 |> List.map
45 |> List.map
45 (\{ icon, name, trigger } ->
46 (\{ icon, name, trigger } ->
46 li [ Attr.class "p-side-navigation__item" ]
47 li [ Attr.class "p-side-navigation__item" ]
47− [ a [ Attr.class "p-side-navigation__link" ]
48+ [ a [ Attr.class "p-side-navigation__link", Ev.onClick trigger ]
48 [ i [ Attr.class "p-side-navigation__icon", Attr.class ("p-icon--" ++ icon) ] []
49 [ i [ Attr.class "p-side-navigation__icon", Attr.class ("p-icon--" ++ icon) ] []
49 , text name
50 , text name
50 ]
51 ]