github.com/pf-qiu/concourse/v6@v6.7.3-0.20201207032516-1f455d73275f/web/elm/src/Views/FavoritedIcon.elm (about)

     1  module Views.FavoritedIcon exposing (view)
     2  
     3  import Assets
     4  import Html exposing (Html)
     5  import Html.Attributes exposing (style)
     6  import Html.Events exposing (onClick, onMouseEnter, onMouseLeave)
     7  import Message.Message exposing (DomID(..), Message(..))
     8  import Views.Icon as Icon
     9  
    10  
    11  view :
    12      { a
    13          | isHovered : Bool
    14          , isFavorited : Bool
    15          , isSideBar : Bool
    16          , domID : DomID
    17      }
    18      -> List (Html.Attribute Message)
    19      -> Html Message
    20  view params attrs =
    21      Icon.icon
    22          { sizePx = 20
    23          , image =
    24              Assets.FavoritedToggleIcon
    25                  { isFavorited = params.isFavorited, isHovered = params.isHovered, isSideBar = params.isSideBar }
    26          }
    27          ([ style "cursor" "pointer"
    28           , style "background-size" "contain"
    29           , onClick <| Click <| params.domID
    30           , onMouseEnter <| Hover <| Just <| params.domID
    31           , onMouseLeave <| Hover Nothing
    32           ]
    33              ++ attrs
    34          )