git.iko.soy/warden
on master help sign in
Added navigation menu
commit0c1377007dc05b3dd4b3270a1478fd4eae2c3ba3 authoriko <ilyakooo0@gmail.com> dateWed 27 Jul 2022, 18:07 (4 years ago) parente21d0ba
2 files changed+5−25
compare with master
unifiedsplit
frontend/Main.elm+1−22 frontend/Pages/Navigation.elm+4−3
frontend/Main.elm+1−22
@@ -103,28 +103,7 @@ view model =
103103 div []
104104 [ Navigation.navigation { back = False, title = title }
105105 , main_ []
106− (maybeList (List.head model.notifications) (Notification.notification CloseNotification)
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− )
106+ (maybeList (List.head model.notifications) (Notification.notification CloseNotification) ++ body)
128107 ]
129108
130109
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)
22
33import Html exposing (..)
44import Html.Attributes as Attr
5+import Html.Events as Ev
56import Utils exposing (..)
67
78
@@ -37,14 +38,14 @@ menu { title, items, close } =
3738 [ div [ Attr.class "p-side-navigation__overlay" ] []
3839 , nav [ Attr.class "p-side-navigation__drawer" ]
3940 [ 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 ]
4142 ]
4243 , ul [ Attr.class "p-side-navigation__list" ]
4344 (items
4445 |> List.map
4546 (\{ icon, name, trigger } ->
4647 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 ]
4849 [ i [ Attr.class "p-side-navigation__icon", Attr.class ("p-icon--" ++ icon) ] []
4950 , text name
5051 ]