forked from
tokono.ma/diffuse
A music player that connects to your cloud/distributed storage.
Minor contextmenu-styles improvements
+11
-5
+11
-5
src/Applications/UI/ContextMenu.elm
+11
-5
src/Applications/UI/ContextMenu.elm
···
8
8
import Coordinates exposing (Coordinates)
9
9
import Css
10
10
import Html.Styled exposing (Html, fromUnstyled, text)
11
-
import Html.Styled.Attributes exposing (css)
11
+
import Html.Styled.Attributes exposing (css, style)
12
12
import Html.Styled.Events exposing (onClick)
13
13
import Json.Decode
14
14
import Material.Icons exposing (Coloring(..))
···
75
75
in
76
76
brick
77
77
[ onClick msg ]
78
-
[ T.b__near_white
78
+
[ T.bb
79
79
, T.pa3
80
80
, T.pointer
81
81
, T.truncate
82
82
83
83
--
84
-
, ifThenElse (isLast || active) "" T.bb
84
+
, ifThenElse (active || isLast) T.b__transparent T.b__near_white
85
85
, ifThenElse active C.bg_base_00 ""
86
86
, ifThenElse active T.white T.color_inherit
87
87
, ifThenElse active T.fw6 T.fw4
88
88
]
89
-
[ inline [ T.dib, C.lh_0, T.v_mid ] [ fromUnstyled (icon 14 Inherit) ]
90
-
, inline [ T.dib, T.ml2, T.v_mid ] [ text label ]
89
+
[ inline
90
+
[ T.dib, C.lh_0, T.v_mid ]
91
+
[ fromUnstyled (icon 14 Inherit) ]
92
+
, slab
93
+
Html.Styled.span
94
+
[ style "top" "-0.5px" ]
95
+
[ T.dib, T.ml2, T.relative, T.v_mid ]
96
+
[ text label ]
91
97
]
92
98
93
99