From 49f02750b4b71c2a1497143f1e0099a248831d57 Mon Sep 17 00:00:00 2001
From: Valentin Brandl <vbrandl@riseup.net>
Date: Sun, 28 Jul 2019 21:42:49 +0200
Subject: [PATCH] Improvements

---
 frontend/src/Main.elm | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/frontend/src/Main.elm b/frontend/src/Main.elm
index 0175308..bc98df3 100644
--- a/frontend/src/Main.elm
+++ b/frontend/src/Main.elm
@@ -68,7 +68,7 @@ displayMUrl : Maybe Url -> String
 displayMUrl mUrl =
     mUrl
         |> Maybe.map toUrl
-        |> Maybe.withDefault ""
+        |> Maybe.withDefault (hostname ++ "<service>/<user>/<repo>/<gitref>/<file>")
 
 
 myStyle : List (Html.Attribute msg)
@@ -83,20 +83,17 @@ myStyle2 =
 
 view : Model -> Html Msg
 view state =
-    div []
+    div myStyle
         [ h1 []
             [ text "Gitache" ]
-        , div
-            myStyle
-            [ ribbon
-            , input (myStyle2 [ placeholder "URL to parse", value state.url, onInput UrlChange ]) []
-            , div myStyle
-                [ text "Parsed URL: "
-                , br [] []
-                , renderMUrl state.parsed
-                ]
-            , input (myStyle2 [ placeholder (hostname ++ "<service>/<user>/<repo>/<gitref>/<file>"), disabled True, value (displayMUrl state.parsed) ]) []
-            ]
+        , ribbon
+        , input (myStyle2 [ placeholder "URL to parse", value state.url, onInput UrlChange ])
+            []
+        , text
+            "Parsed URL: "
+        , br [] []
+        , renderMUrl state.parsed
+        , input (myStyle2 [ disabled True, value (displayMUrl state.parsed) ]) []
         ]