aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/View/Expand.elm
diff options
context:
space:
mode:
authorJoris2016-03-27 21:59:46 +0200
committerJoris2016-03-27 21:59:46 +0200
commitb0d80a5458d7ba4546e5f01f5b6398ea6d23f981 (patch)
treec19421e93f8797d3ea3bd7385bffa7a27296991f /src/client/elm/View/Expand.elm
parentbcaf346553abf5821bec1e6d9928c68c4a2f998e (diff)
Move view and models files
Diffstat (limited to 'src/client/elm/View/Expand.elm')
-rw-r--r--src/client/elm/View/Expand.elm25
1 files changed, 0 insertions, 25 deletions
diff --git a/src/client/elm/View/Expand.elm b/src/client/elm/View/Expand.elm
deleted file mode 100644
index 53b4fe5..0000000
--- a/src/client/elm/View/Expand.elm
+++ /dev/null
@@ -1,25 +0,0 @@
-module 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"