vbrandl/yagcdn
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improvements

Browse Source
This commit is contained in:
Valentin Brandl 2019-07-28 21:42:49 +02:00
parent 4e0216a895
commit 49f02750b4
No known key found for this signature in database
GPG Key ID: 30D341DD34118D7D
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
frontend/src/Main.elm
View File

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