c8h4/aux-search
1
0
Fork 0
Code Issues Pull requests Packages Releases Activity

Add mailto link to maintainer list (#340)

Browse source 
* 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
1 changed files with 20 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/Page/Packages.elm
View file

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