A music player that connects to your cloud/distributed storage.
Restructure Sources.Property record
+42
-31
+6
-6
src/Applications/UI/Sources/Form.elm
+6
-6
src/Applications/UI/Sources/Form.elm
···
322
322
renderProperty context property =
323
323
chunk
324
324
[ T.mb4 ]
325
-
[ UI.Kit.label [ for property.k ] property.l
325
+
[ UI.Kit.label [ for property.key ] property.label
326
326
, UI.Kit.textField
327
-
[ name property.k
328
-
, onInput (SetData property.k)
329
-
, placeholder property.h
330
-
, type_ (ifThenElse property.p "password" "text")
331
-
, value (Dict.fetch property.k "" context.data)
327
+
[ name property.key
328
+
, onInput (SetData property.key)
329
+
, placeholder property.placeholder
330
+
, type_ (ifThenElse property.password "password" "text")
331
+
, value (Dict.fetch property.key "" context.data)
332
332
]
333
333
]
334
334
+4
-4
src/Library/Sources.elm
+4
-4
src/Library/Sources.elm
+31
-7
src/Library/Sources/Services/AmazonS3.elm
+31
-7
src/Library/Sources/Services/AmazonS3.elm
···
15
15
import Sources.Processing exposing (..)
16
16
import Sources.Services.AmazonS3.Parser as Parser
17
17
import Sources.Services.AmazonS3.Presign exposing (..)
18
-
import Sources.Services.Common exposing (cleanPath, nameProperty, noPrep)
18
+
import Sources.Services.Common exposing (cleanPath, noPrep)
19
19
import Time
20
20
21
21
···
36
36
-}
37
37
properties : List Property
38
38
properties =
39
-
[ { k = "accessKey", l = "Access key", h = "Fv6EWfLfCcMo", p = True }
40
-
, { k = "secretKey", l = "Secret key", h = "qeNcqiMpgqC8", p = True }
41
-
, { k = "bucketName", l = "Bucket name", h = "music", p = False }
42
-
, { k = "region", l = "Region", h = defaults.region, p = False }
43
-
, { k = "directoryPath", l = "Directory", h = defaults.directoryPath, p = False }
44
-
, { k = "host", l = "Host (optional)", h = "http://127.0.0.1:9000", p = False }
39
+
[ { key = "accessKey"
40
+
, label = "Access key"
41
+
, placeholder = "Fv6EWfLfCcMo"
42
+
, password = True
43
+
}
44
+
, { key = "secretKey"
45
+
, label = "Secret key"
46
+
, placeholder = "qeNcqiMpgqC8"
47
+
, password = True
48
+
}
49
+
, { key = "bucketName"
50
+
, label = "Bucket name"
51
+
, placeholder = "music"
52
+
, password = False
53
+
}
54
+
, { key = "region"
55
+
, label = "Region"
56
+
, placeholder = defaults.region
57
+
, password = False
58
+
}
59
+
, { key = "directoryPath"
60
+
, label = "Directory"
61
+
, placeholder = defaults.directoryPath
62
+
, password = False
63
+
}
64
+
, { key = "host"
65
+
, label = "Host (optional)"
66
+
, placeholder = "http://127.0.0.1:9000"
67
+
, password = False
68
+
}
45
69
]
46
70
47
71
+1
-14
src/Library/Sources/Services/Common.elm
+1
-14
src/Library/Sources/Services/Common.elm
···
1
-
module Sources.Services.Common exposing (cleanPath, nameProperty, noPrep)
1
+
module Sources.Services.Common exposing (cleanPath, noPrep)
2
2
3
3
import Sources exposing (..)
4
4
import Sources.Processing exposing (..)
5
5
import String.Ext as String
6
-
7
-
8
-
9
-
-- FORMS
10
-
11
-
12
-
nameProperty : String -> Property
13
-
nameProperty placeholder =
14
-
{ k = "name"
15
-
, l = "Name"
16
-
, h = placeholder
17
-
, p = False
18
-
}
19
6
20
7
21
8