Make input readonly instead of disabled

This commit is contained in:
Valentin Brandl 2019-08-05 18:17:29 +02:00
parent ac9da4d245
commit 851697f900
No known key found for this signature in database
GPG Key ID: 30D341DD34118D7D

View File

@ -25,7 +25,7 @@ import Html
, text , text
, ul , ul
) )
import Html.Attributes exposing (disabled, href, placeholder, style, value) import Html.Attributes exposing (href, placeholder, readonly, style, value)
import Html.Events exposing (onInput) import Html.Events exposing (onInput)
import Parse exposing (parseUrl) import Parse exposing (parseUrl)
import Ribbon exposing (ribbon) import Ribbon exposing (ribbon)
@ -128,7 +128,7 @@ body state =
article myStyle article myStyle
[ input (myStyle2 [ placeholder "GitHub/GitLab/Bitbucket URL", value state.url, onInput UrlChange ]) [ input (myStyle2 [ placeholder "GitHub/GitLab/Bitbucket URL", value state.url, onInput UrlChange ])
[] []
, input (myStyle2 [ disabled True, value (displayMUrl state.parsed) ]) [] , input (myStyle2 [ readonly True, value (displayMUrl state.parsed) ]) []
, h2 myStyle , h2 myStyle
[ text "Caching" ] [ text "Caching" ]
, p myStyle , p myStyle