diff --git a/frontend/src/Page.elm b/frontend/src/Page.elm index 96e7961..67f7e9f 100644 --- a/frontend/src/Page.elm +++ b/frontend/src/Page.elm @@ -1,8 +1,8 @@ module Page exposing (..) import Browser exposing (Document) -import Html exposing (Html, a, div, input, node, p, text) -import Html.Attributes exposing (href, placeholder, type_, value) +import Html exposing (Html, a, div, input, node, p, span, text) +import Html.Attributes exposing (class, href, placeholder, style, type_, value) import Html.Events exposing (onInput) @@ -28,8 +28,9 @@ navBar = [ viewLink "/" "Mi" , text " - " , viewLink "/switch" "Switch tracker" - , text " - " - , viewLink "/logout" "Logout" + , span + [ class "right" ] + [ viewLink "/logout" "Logout" ] ] ] diff --git a/frontend/src/Page/SwitchData.elm b/frontend/src/Page/SwitchData.elm index 7a629f9..e037b56 100644 --- a/frontend/src/Page/SwitchData.elm +++ b/frontend/src/Page/SwitchData.elm @@ -29,14 +29,12 @@ type Data | Error String -init : ( Model, Cmd Msg ) +init : Model init = - ( Model + Model 0 40 Init - , NeedData - ) type Msg diff --git a/static/gruvbox.css b/static/gruvbox.css index 618eb3b..05bea91 100644 --- a/static/gruvbox.css +++ b/static/gruvbox.css @@ -26,6 +26,10 @@ pre { border: 0; } +.right { + float: right; +} + a, a:active, a:visited { color: #b16286; background-color: #1d2021;