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

19
frontend/src/Main.elm
View File

@ -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: "
, ribbon
, input (myStyle2 [ placeholder "URL to parse", value state.url, onInput UrlChange ])
[]
, text
"Parsed URL: "
, br [] []
, renderMUrl state.parsed
]
, input (myStyle2 [ placeholder (hostname ++ "<service>/<user>/<repo>/<gitref>/<file>"), disabled True, value (displayMUrl state.parsed) ]) []
]
, input (myStyle2 [ disabled True, value (displayMUrl state.parsed) ]) []
]