forked from
tokono.ma/diffuse
A music player that connects to your cloud/distributed storage.
Housekeeping
+13
-41
+1
-2
src/Applications/Brain.elm
+1
-2
src/Applications/Brain.elm
···
5
5
import Brain.Authentication as Authentication
6
6
import Brain.Core as Core exposing (..)
7
7
import Brain.Ports
8
-
import Brain.Reply as Reply exposing (Reply(..))
8
+
import Brain.Reply exposing (Reply(..))
9
9
import Brain.Sources.Processing as Processing
10
10
import Brain.Sources.Processing.Common as Processing
11
11
import Brain.Tracks as Tracks
12
12
import Debouncer.Basic as Debouncer
13
13
import Json.Decode as Json
14
-
import Json.Decode.Pipeline exposing (optional)
15
14
import Json.Encode
16
15
import Return2 exposing (..)
17
16
import Return3
-1
src/Applications/Brain/Sources/Processing.elm
-1
src/Applications/Brain/Sources/Processing.elm
-1
src/Applications/Brain/Tracks.elm
-1
src/Applications/Brain/Tracks.elm
+2
-2
src/Applications/UI.elm
+2
-2
src/Applications/UI.elm
···
19
19
import File.Download
20
20
import File.Select
21
21
import Html.Events.Extra.Pointer as Pointer
22
-
import Html.Styled as Html exposing (Html, div, section, text, toUnstyled)
23
-
import Html.Styled.Attributes exposing (css, id, style)
22
+
import Html.Styled as Html exposing (Html, section, toUnstyled)
23
+
import Html.Styled.Attributes exposing (css, id)
24
24
import Html.Styled.Events exposing (onClick)
25
25
import Html.Styled.Lazy as Lazy
26
26
import Json.Decode
+2
-4
src/Applications/UI/Authentication.elm
+2
-4
src/Applications/UI/Authentication.elm
···
9
9
import Color.Ext as Color
10
10
import Common exposing (Switch(..))
11
11
import Conditional exposing (..)
12
-
import Coordinates
13
12
import Crypto.Hash
14
13
import Css exposing (pct, px, solid, transparent)
15
14
import Html.Events.Extra.Mouse as Mouse
16
-
import Html.Styled as Html exposing (Html, a, button, div, em, fromUnstyled, img, span, text)
17
-
import Html.Styled.Attributes as Attributes exposing (attribute, css, href, placeholder, src, style, title, type_, value, width)
15
+
import Html.Styled as Html exposing (Html, a, button, em, fromUnstyled, img, span, text)
16
+
import Html.Styled.Attributes as Attributes exposing (attribute, css, href, placeholder, src, style, title, width)
18
17
import Html.Styled.Events exposing (onClick, onSubmit)
19
-
import Json.Decode as Json
20
18
import Json.Encode
21
19
import Material.Icons.Av as Icons
22
20
import Material.Icons.Navigation as Icons
-1
src/Applications/UI/Authentication/ContextMenu.elm
-1
src/Applications/UI/Authentication/ContextMenu.elm
-3
src/Applications/UI/Core.elm
-3
src/Applications/UI/Core.elm
···
1
1
module UI.Core exposing (Flags, Model, Msg(..))
2
2
3
-
import Alien
4
3
import Authentication
5
4
import Browser
6
5
import Browser.Navigation as Nav
7
6
import Common exposing (Switch(..))
8
7
import ContextMenu exposing (ContextMenu)
9
-
import Coordinates exposing (Coordinates)
10
8
import File exposing (File)
11
9
import Json.Encode as Json
12
10
import Notifications exposing (..)
13
11
import Queue
14
12
import Time
15
-
import Tracks exposing (IdentifiedTrack)
16
13
import UI.Authentication as Authentication
17
14
import UI.Backdrop as Backdrop
18
15
import UI.Equalizer as Equalizer
+3
-3
src/Applications/UI/Kit.elm
+3
-3
src/Applications/UI/Kit.elm
···
1
-
module UI.Kit exposing (ButtonType(..), button, buttonFocus, buttonLink, buttonWithColor, buttonWithOptions, canister, centeredContent, checkbox, colorKit, colors, defaultFontFamilies, h1, h2, h3, headerFontFamilies, inlineIcon, inputFocus, insulationWidth, intro, label, link, logoBackdrop, navFocus, receptacle, select, textArea, textButton, textField, textFieldAlt, textFocus, vessel)
1
+
module UI.Kit exposing (ButtonType(..), button, buttonFocus, buttonLink, buttonWithColor, buttonWithOptions, canister, centeredContent, checkbox, colorKit, colors, defaultFontFamilies, defaultFontStyles, h1, h2, h3, headerFontFamilies, inlineIcon, inputFocus, insulationWidth, intro, label, link, logoBackdrop, navFocus, receptacle, select, textArea, textButton, textField, textFieldAlt, textFocus, vessel)
2
2
3
3
import Chunky exposing (..)
4
4
import Color
···
6
6
import Css exposing (deg, em, none, num, pct, px, solid, url, zero)
7
7
import Css.Global
8
8
import Html.Styled as Html exposing (Html)
9
-
import Html.Styled.Attributes exposing (checked, css, href, style, type_)
9
+
import Html.Styled.Attributes exposing (css, href, style)
10
10
import Html.Styled.Events exposing (onClick, onInput)
11
11
import Material.Icons.Hardware as Icons
12
12
import Material.Icons.Toggle as Icons
···
138
138
139
139
defaultFontStyles : List Css.Style
140
140
defaultFontStyles =
141
-
[ Css.fontFamilies headerFontFamilies ]
141
+
[ Css.fontFamilies defaultFontFamilies ]
142
142
143
143
144
144
headerFontFamilies : List String
-3
src/Applications/UI/Reply.elm
-3
src/Applications/UI/Reply.elm
···
1
1
module UI.Reply exposing (Reply(..))
2
2
3
-
import Alien
4
3
import Authentication
5
4
import Common exposing (Switch(..))
6
5
import Coordinates exposing (Coordinates)
7
-
import Json.Decode as Json
8
-
import Notifications exposing (Notification)
9
6
import Queue
10
7
import Sources exposing (Source)
11
8
import Tracks exposing (IdentifiedTrack)
+1
-4
src/Applications/UI/Sources.elm
+1
-4
src/Applications/UI/Sources.elm
···
8
8
import Material.Icons.Content as Icons
9
9
import Material.Icons.Navigation as Icons
10
10
import Material.Icons.Notification as Icons
11
-
import Notifications exposing (Notification)
12
11
import Return3 as Return exposing (..)
13
12
import Sources exposing (..)
14
13
import Sources.Encoding
15
-
import Sources.Services as Services
16
-
import Tachyons.Classes as T
17
14
import Time
18
-
import UI.Kit exposing (ButtonType(..), select)
15
+
import UI.Kit exposing (ButtonType(..))
19
16
import UI.List
20
17
import UI.Navigation exposing (..)
21
18
import UI.Page
+1
-4
src/Applications/UI/Sources/Form.elm
+1
-4
src/Applications/UI/Sources/Form.elm
···
2
2
3
3
import Chunky exposing (..)
4
4
import Conditional exposing (..)
5
-
import Css
6
5
import Dict
7
6
import Dict.Ext as Dict
8
7
import Html.Styled as Html exposing (Html, strong, text)
9
-
import Html.Styled.Attributes exposing (css, for, name, placeholder, type_, value)
8
+
import Html.Styled.Attributes exposing (for, name, placeholder, type_, value)
10
9
import Html.Styled.Events exposing (onInput, onSubmit)
11
10
import List.Extra as List
12
11
import Material.Icons.Alert as Icons
···
14
13
import Return3 as Return exposing (..)
15
14
import Sources exposing (..)
16
15
import Sources.Services as Services
17
-
import Sources.Services.Common
18
16
import Tachyons.Classes as T
19
17
import UI.Kit exposing (ButtonType(..), select)
20
18
import UI.Navigation exposing (..)
21
19
import UI.Page
22
-
import UI.Ports
23
20
import UI.Reply exposing (Reply)
24
21
import UI.Sources.Page
25
22
+1
-8
src/Applications/UI/Tracks/Scene/List.elm
+1
-8
src/Applications/UI/Tracks/Scene/List.elm
···
8
8
import Css
9
9
import Html as UnstyledHtml
10
10
import Html.Attributes as UnstyledHtmlAttributes
11
-
import Html.Events.Extra.Mouse as Mouse exposing (onWithOptions)
11
+
import Html.Events.Extra.Mouse exposing (onWithOptions)
12
12
import Html.Styled as Html exposing (Html, text)
13
13
import Html.Styled.Attributes exposing (css, fromUnstyled, id)
14
14
import Html.Styled.Events exposing (onClick, onDoubleClick)
···
141
141
-> msg
142
142
-> Html msg
143
143
headerColumn text_ width pos maybeSortIcon msg =
144
-
let
145
-
paddingLeft =
146
-
ifThenElse (pos == First) T.pl2 T.pl1
147
-
148
-
paddingRight =
149
-
ifThenElse (pos == Last) T.pr2 T.pr1
150
-
in
151
144
brick
152
145
[ onClick msg
153
146
, css
-1
src/Library/Cryptography/Hmac.elm
-1
src/Library/Cryptography/Hmac.elm
-1
src/Library/Sources/Processing.elm
-1
src/Library/Sources/Processing.elm
-1
src/Library/Tracks.elm
-1
src/Library/Tracks.elm
···
1
1
module Tracks exposing (Collection, CollectionDependencies, Favourite, IdentifiedTrack, Identifiers, Parcel, SortBy(..), SortDirection(..), Tags, Track, emptyCollection, emptyIdentifiedTrack, emptyTags, emptyTrack, isNowPlaying, makeTrack, missingId)
2
2
3
3
import Base64
4
-
import Bytes.Encode
5
4
import String.Ext as String
6
5
7
6
+1
-1
src/Library/Tracks/Collection/Internal.elm
+1
-1
src/Library/Tracks/Collection/Internal.elm