diff options
author | Joris | 2016-03-28 17:51:14 +0200 |
---|---|---|
committer | Joris | 2016-03-28 17:51:14 +0200 |
commit | 166cd04e4b28770ede854dafc9ae30eae64102fe (patch) | |
tree | 2245a31243a165acc6f7355534da44cfd17e6038 /src/client/elm/LoggedIn/Home/View/Expand.elm | |
parent | b0d80a5458d7ba4546e5f01f5b6398ea6d23f981 (diff) | |
download | budget-166cd04e4b28770ede854dafc9ae30eae64102fe.tar.gz budget-166cd04e4b28770ede854dafc9ae30eae64102fe.tar.bz2 budget-166cd04e4b28770ede854dafc9ae30eae64102fe.zip |
Create an empty but reachable user page
Diffstat (limited to 'src/client/elm/LoggedIn/Home/View/Expand.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Home/View/Expand.elm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/src/client/elm/LoggedIn/Home/View/Expand.elm b/src/client/elm/LoggedIn/Home/View/Expand.elm new file mode 100644 index 0000000..514bf93 --- /dev/null +++ b/src/client/elm/LoggedIn/Home/View/Expand.elm @@ -0,0 +1,25 @@ +module LoggedIn.Home.View.Expand + ( expand + , ExpandType(..) + ) where + +import Html exposing (..) +import Html.Attributes exposing (..) + +import View.Icon exposing (renderIcon) + +type ExpandType = ExpandUp | ExpandDown + +expand : ExpandType -> Bool -> Html +expand expandType isExpanded = + div + [ class "expand" ] + [ renderIcon (chevronIcon expandType isExpanded) ] + +chevronIcon : ExpandType -> Bool -> String +chevronIcon expandType isExpanded = + case (expandType, isExpanded) of + (ExpandUp, True) -> "chevron-down" + (ExpandUp, False) -> "chevron-up" + (ExpandDown, True) -> "chevron-up" + (ExpandDown, False) -> "chevron-down" |