fix and pretty

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 exposing (Html, a, div, input, node, p, span, text)
-import Html.Attributes exposing (href, placeholder, type_, value)
+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 " - "
+            , span
-            , viewLink "/logout" "Logout"
+                [ class "right" ]
+                [ viewLink "/logout" "Logout" ]
             ]
         ]
 

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

static/gruvbox.css

@@ -26,6 +26,10 @@ pre {
   border: 0;
 }
 
+.right {
+    float: right;
+}
+
 a, a:active, a:visited {
   color: #b16286;
   background-color: #1d2021;