NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-01 09:12:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Adds link to the package site based on the module name

Browse Source
This commit is contained in:
Tessa Kelly 2019-05-10 11:08:39 -07:00
parent 585ce8aece
commit 1db134067a
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
styleguide-app/ModuleExample.elm
View File

@ -142,15 +142,26 @@ view showFocusLink { name, content } =
[]
[ Html.text name ]
, if showFocusLink then
Html.a
[ Attributes.href <| "#doodad/" ++ name ]
[ Html.text "see only this" ]
viewLink "see only this" ("#doodad/" ++ name)
else
Html.text ""
, String.replace "." "-" name
|> (++) "https://package.elm-lang.org/packages/NoRedInk/noredink-ui/latest/"
|> viewLink "view docs"
]
, Html.styled Html.div
[ padding2 (px 20) zero ]
[]
content
]
viewLink : String -> String -> Html msg
viewLink text href =
Html.a
[ Attributes.href href
, Attributes.css [ Css.display Css.block ]
]
[ Html.text text
]