elm/lootalot-client
1
0
Fork 0
Code Issues 3 Pull Requests Releases Wiki Activity

small tweaks

Browse Source
This commit is contained in:
Arthur Gerbaud
2019-12-06 16:20:00 +01:00
parent eb04c4f2b4
commit 67251bf405
7 changed files with 117 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/Main.elm
View File

@@ -2,6 +2,7 @@ module Main exposing (..)
import Browser
import Browser.Navigation as Nav
import Bulma as B
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
@@ -11,7 +12,6 @@ import Route exposing (..)
import Session exposing (..)
import Svg.Attributes
import Url
import Utils exposing (..)
@@ -91,7 +91,7 @@ view model =
navLink icon linkText url =
a [ class "navbar-item", href url ]
[ renderIcon { icon = icon, ratio = "1x", size = "medium" }
[ B.icon { icon = icon, ratio = Just "fa-1x", size = Just "is-medium" }
, span [] [ text linkText ]
]
@@ -100,8 +100,8 @@ viewHeaderBar : String -> List (Html Msg) -> Navbar -> Html Msg
viewHeaderBar navbarTitle navbarLinks navbar =
nav [ class "navbar container is-transparent is-spaced " ]
[ div [ class "navbar-brand" ]
[ a [ class "navbar-item", href "/" ]
[ renderIcon { icon = "fab fa-d-and-d", size = "medium", ratio = "2x" }
[ p [ class "navbar-item" ]
[ B.icon { icon = "fab fa-d-and-d", size = Just "is-medium", ratio = Just "fa-2x" }
, span [ class "title is-4", style "padding-left" "0.4em" ] [ text navbarTitle ]
]
, a