+30

src/Applications/UI.elm

reviewed

··· 241 241 | KeyboardMsg Keyboard.Msg 242 242 | LoadEnclosedUserData Json.Decode.Value 243 243 | LoadHypaethralUserData Json.Decode.Value 244 244 + | RemoveQueueSelection 245 245 + | RemoveTrackSelection 244 246 | ResizedWindow ( Int, Int ) 245 247 | ShowNotification (Notification Reply) 246 248 | SetCurrentTime Time.Posix ··· 365 367 else 366 368 return m 367 369 ) 370 370 + 371 371 + RemoveQueueSelection -> 372 372 + let 373 373 + queue = 374 374 + model.queue 375 375 + in 376 376 + ( { model 377 377 + | queue = { queue | selection = Nothing } 378 378 + } 379 379 + , Cmd.none 380 380 + ) 381 381 + 382 382 + RemoveTrackSelection -> 383 383 + let 384 384 + tracks = 385 385 + model.tracks 386 386 + in 387 387 + ( { model 388 388 + | tracks = { tracks | selectedTrackIndexes = [] } 389 389 + } 390 390 + , Cmd.none 391 391 + ) 368 392 369 393 ResizedWindow ( width, height ) -> 370 394 ( { model ··· 1893 1917 , on "touchcancel" (Json.Decode.succeed StoppedDragging) 1894 1918 , on "touchend" (Json.Decode.succeed StoppedDragging) 1895 1919 ] 1920 1920 + 1921 1921 + else if Maybe.isJust model.queue.selection then 1922 1922 + [ on "tap" (Json.Decode.succeed RemoveQueueSelection) ] 1923 1923 + 1924 1924 + else if not (List.isEmpty model.tracks.selectedTrackIndexes) then 1925 1925 + [ on "tap" (Json.Decode.succeed RemoveTrackSelection) ] 1896 1926 1897 1927 else 1898 1928 []

+1 -1

src/Applications/UI/Kit.elm

reviewed

··· 58 58 -- Other 59 59 , background = rgb 2 7 14 60 60 , focus = rgb 0 0 0 61 61 - , selection = colorKit.base0D 61 61 + , selection = colorKit.base08 62 62 , selectionAlt = colorKit.base01 63 63 , text = colorKit.base01 64 64 }

+10 -5

src/Applications/UI/List.elm

reviewed

··· 10 10 import Html.Styled exposing (Html, fromUnstyled) 11 11 import Html.Styled.Attributes as Attributes exposing (css, title) 12 12 import Html.Styled.Events exposing (onClick) 13 13 + import List.Ext as List 13 14 import Material.Icons exposing (Coloring(..)) 14 15 import Maybe.Extra as Maybe 15 16 import Tachyons.Classes as T ··· 173 174 itemStyles : { dragTarget : Bool, isSelected : Bool } -> List Css.Style 174 175 itemStyles { dragTarget, isSelected } = 175 176 if dragTarget then 176 176 - List.append 177 177 - itemBaseStyles 178 178 - [ Css.borderTop3 (px 1) solid (Color.toElmCssColor UI.Kit.colorKit.accent) 179 179 - ] 177 177 + itemBaseStyles 178 178 + |> List.add [ Css.borderTop3 (px 1) solid (Color.toElmCssColor UI.Kit.colorKit.accent) ] 179 179 + |> List.add (ifThenElse isSelected [ Css.color selectionColor ] []) 180 180 181 181 else if isSelected then 182 182 List.append 183 183 itemBaseStyles 184 184 - [ Css.color (Color.toElmCssColor UI.Kit.colors.selectionAlt) 184 184 + [ Css.color selectionColor 185 185 ] 186 186 187 187 else ··· 195 195 , Css.marginTop (px -1) 196 196 , Css.touchAction Css.none 197 197 ] 198 198 + 199 199 + 200 200 + selectionColor : Css.Color 201 201 + selectionColor = 202 202 + Color.toElmCssColor UI.Kit.colors.selection

+1 -1

src/Applications/UI/Tracks/Scene/List.elm

reviewed

··· 692 692 693 693 _ -> 694 694 Bypass 695 695 - , stopPropagation = False 695 695 + , stopPropagation = True 696 696 , preventDefault = False 697 697 } 698 698 )

+11

src/Library/List/Ext.elm

reviewed

··· 3 3 import List.Extra as List 4 4 5 5 6 6 + {-| Flipped version of `append`. 7 7 + 8 8 + >>> add [2, 3] [1] 9 9 + [1, 2, 3] 10 10 + 11 11 + -} 12 12 + add : List a -> List a -> List a 13 13 + add a b = 14 14 + List.append b a 15 15 + 16 16 + 6 17 {-| Flipped version of (::). 7 18 8 19 >>> addTo [2, 3] 1