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

Remove disclosure indicator

Browse Source
This commit is contained in:
Tessa Kelly 2020-04-24 12:37:06 -07:00
parent 2730eb2324
commit 7b378f97df
1 changed files with 0 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
src/Nri/Ui/DisclosureIndicator/V1.elm
View File

@ -1,89 +0,0 @@
module Nri.Ui.DisclosureIndicator.V1 exposing (view, viewInline)
{-| A caret that indicates that a section can expand. When the isOpen attribute is passed in as True, it will rotate. A "disclosure indicator" is a standard term for something that indicates that section can expand.
@docs view, viewInline
-}
import Css exposing (..)
import Html.Styled as Html exposing (..)
import Html.Styled.Attributes as Attributes exposing (alt, type_)
import Nri.Ui.AssetPath as AssetPath
type alias Config =
{ isOpen : Bool
, label : String
}
type alias Assets r =
{ r
| icons_arrowDownBlue_svg : AssetPath.Asset
}
{-| -}
view : Assets a -> Config -> Html msg
view =
viewWithStyle headerStyle
{-| The inline variant of the indicator is smaller and occupies
less vertical space so it can be inlined in lists or tables
without breaking text flow. Also, it rotates from right to
down direction when expanding.
-}
viewInline : Assets a -> Config -> Html msg
viewInline =
viewWithStyle inlineStyle
viewWithStyle : (Bool -> Css.Style) -> Assets a -> Config -> Html msg
viewWithStyle style assets config =
let
label =
if config.isOpen then
"hide " ++ config.label
else
"show " ++ config.label
in
img
[ alt label
, Attributes.src <| AssetPath.url <| assets.icons_arrowDownBlue_svg
, Attributes.css [ style config.isOpen ]
]
[]
headerStyle : Bool -> Css.Style
headerStyle isOpen =
Css.batch
[ marginRight (px 10)
, width (px 15)
, height (px 15)
, cursor pointer
, property "transition" "transform 0.2s"
, if isOpen then
transform (rotate <| deg 0)
else
transform (rotate <| deg -90)
]
inlineStyle : Bool -> Css.Style
inlineStyle isOpen =
Css.batch
[ padding2 (px 0) (px 8)
, height (px 9)
, cursor pointer
, property "transition" "transform 0.1s"
, if isOpen then
transform (rotate <| deg 0)
else
transform (rotate <| deg -90)
]