tokono.ma / diffuse
A music player that connects to your cloud/distributed storage.
fork atom
diffuse / src / Library / Sources / Pick.elm
at main 571 B view raw
1module Sources.Pick exposing (isMusicFile, selectMusicFiles) 2 3import Regex 4 5 6 7-- 🔱 8 9 10isMusicFile : String -> Bool 11isMusicFile = 12 Regex.contains musicFileRegex 13 14 15selectMusicFiles : List String -> List String 16selectMusicFiles = 17 List.filter isMusicFile 18 19 20 21----------------------------------------- 22-- ㊙️ 23----------------------------------------- 24 25 26musicFileRegex : Regex.Regex 27musicFileRegex = 28 "\\.(mp3|mp4|m4a|flac|ogg|opus|wav|webm)$" 29 |> Regex.fromStringWith { caseInsensitive = True, multiline = False } 30 |> Maybe.withDefault Regex.never