A music player that connects to your cloud/distributed storage.
5
fork

Configure Feed

Select the types of activity you want to include in your feed.

Restructure Sources.Property record

+42 -31
+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
··· 23 23 24 24 25 25 type alias Property = 26 - { k : String -- Key 27 - , l : String -- Label 28 - , h : String -- Placeholder 29 - , p : Bool -- Password? 26 + { key : String 27 + , label : String 28 + , placeholder : String 29 + , password : Bool 30 30 } 31 31 32 32
+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 - 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