Add mailto link to maintainer list (#340)

* Add mailto link to maintainer list

Signed-off-by: Matthias Beyer <mail@beyermatthias.de>

* Fix: mailto links do not need //

Signed-off-by: Matthias Beyer <mail@beyermatthias.de>

Co-authored-by: Rok Garbas <rok@garbas.si>
This commit is contained in:
Matthias Beyer 2021-08-26 09:55:58 +02:00 committed by GitHub
parent 5ee8ca10c6
commit e35436a9bc
Failed to generate hash of commit

View file

@ -372,6 +372,7 @@ viewResultItem channel showInstallDetails show item =
showMaintainer maintainer = showMaintainer maintainer =
li [] li []
[ div []
[ a [ a
[ href <| [ href <|
case maintainer.github of case maintainer.github of
@ -381,7 +382,18 @@ viewResultItem channel showInstallDetails show item =
Nothing -> Nothing ->
"#" "#"
] ]
[ text <| Maybe.withDefault "" maintainer.name ++ (Maybe.withDefault "" <| Maybe.map (\email -> " <" ++ email ++ ">") maintainer.email) ] [ text <| Maybe.withDefault "" maintainer.name ++ " <" ++ Maybe.withDefault "" maintainer.email ++ ">" ]
, a
[ href <|
case maintainer.email of
Just email ->
"mailto:" ++ email
Nothing ->
"#"
]
[ text "(mail)" ]
]
] ]
showPlatform platform = showPlatform platform =