A music player that connects to your cloud/distributed storage.
Notifications double tap
+18
-10
+12
-9
src/Applications/UI/Notifications.elm
+12
-9
src/Applications/UI/Notifications.elm
···
1
1
module UI.Notifications exposing (dismiss, show, showWithModel, view)
2
2
3
3
import Chunky exposing (..)
4
+
import Classes as C
4
5
import Color.Ext as Color
5
6
import Css
6
-
import Css.Ext as Css
7
7
import Css.Global
8
8
import Css.Transitions exposing (transition)
9
9
import Html.Styled as Html exposing (Html)
10
10
import Html.Styled.Attributes exposing (css, rel)
11
11
import Html.Styled.Events exposing (onDoubleClick)
12
+
import Html.Styled.Ext exposing (onDoubleTap)
12
13
import Html.Styled.Lazy
13
14
import Notifications exposing (..)
14
15
import Process
···
104
105
105
106
options =
106
107
Notifications.options notification
108
+
109
+
dismissMsg =
110
+
notification
111
+
|> Notifications.id
112
+
|> (\id -> { id = id })
113
+
|> UI.Core.DismissNotification
107
114
in
108
115
brick
109
116
[ case kind of
···
117
124
css warningStyles
118
125
119
126
--
120
-
, notification
121
-
|> Notifications.id
122
-
|> (\id -> { id = id })
123
-
|> UI.Core.DismissNotification
124
-
|> onDoubleClick
127
+
, onDoubleClick dismissMsg
128
+
, onDoubleTap dismissMsg
125
129
]
126
130
[ T.br2
127
131
, T.mt2
···
156
160
]
157
161
[ contents notification
158
162
, if options.sticky && kind /= Warning then
159
-
brick
160
-
[ css [ Css.disableUserSelection ] ]
161
-
[ T.f7, T.i, T.mt2, T.o_60, T.pointer ]
163
+
chunk
164
+
[ C.disable_selection, T.f7, T.i, T.mt2, T.o_60, T.pointer ]
162
165
[ Html.text "Double click to dismiss" ]
163
166
164
167
else
+6
-1
src/Library/Html/Styled/Ext.elm
+6
-1
src/Library/Html/Styled/Ext.elm
···
1
-
module Html.Styled.Ext exposing (ifEnterKey, onEnterKey)
1
+
module Html.Styled.Ext exposing (ifEnterKey, onDoubleTap, onEnterKey)
2
2
3
3
import Html.Styled exposing (Attribute)
4
4
import Html.Styled.Events exposing (keyCode, on)
5
5
import Json.Decode as Json
6
+
7
+
8
+
onDoubleTap : msg -> Attribute msg
9
+
onDoubleTap msg =
10
+
on "dbltap" (Json.succeed msg)
6
11
7
12
8
13
{-| Event binding for the `Enter` key.