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 = showMaintainer maintainer =
li [] li []
[ a [ div []
[ href <| [ a
case maintainer.github of [ href <|
Just github -> case maintainer.github of
"https://github.com/" ++ github 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 = showPlatform platform =