A music player that connects to your cloud/distributed storage.
Fix offline support
+19
-23
+1
-1
.gitignore
+1
-1
.gitignore
+2
-2
Justfile
+2
-2
Justfile
···
16
16
# Tasks
17
17
# =====
18
18
19
-
@build: clean system css elm js
19
+
@build: clean css elm js system
20
20
echo "> Build completed ⚡"
21
21
22
22
23
-
@build-prod: quality clean system css elm-prod css-prod js-prod
23
+
@build-prod: quality clean css elm-prod css-prod js-prod system
24
24
echo "> Production build completed 🛳"
25
25
26
26
+16
-20
system/Build/Main.hs
+16
-20
system/Build/Main.hs
···
31
31
-- & reduce to a single dictionary
32
32
let dictionary = List.concatMap (flow de) se
33
33
34
-
-- Make a file tree
35
-
-- and then write to disk
34
+
-- Write everything to disk
36
35
dictionary
37
-
|> insertTree
38
36
|> insertVersion (de !~> "timestamp")
39
37
|> write "../build"
40
38
39
+
-- Make a file tree
40
+
build <- list "../build/**/*.*"
41
+
42
+
build
43
+
|> makeTree
44
+
|> write "../build"
45
+
41
46
42
47
list :: [Char] -> IO Dictionary
43
48
list pattern =
···
49
54
50
55
51
56
data Sequence
52
-
= Favicons
57
+
= AboutPages
58
+
| Favicons
53
59
| Fonts
54
60
| Hosting
55
61
| Html
56
62
| Images
57
63
| Manifests
58
-
-- About Pages
59
-
| AboutCss
60
-
| AboutPages
61
64
62
65
63
66
sequences :: IO [( Sequence, Dictionary )]
64
67
sequences = lsequence
65
-
[ ( Favicons, list "Static/Favicons/**/*.*" )
68
+
[ ( AboutPages, list "Static/About/**/*.md" )
69
+
, ( Favicons, list "Static/Favicons/**/*.*" )
66
70
, ( Fonts, list "Static/Fonts/**/*.*" )
67
71
, ( Hosting, list "Static/Hosting/**/*" )
68
72
, ( Html, list "Static/Html/**/*.html" )
69
73
, ( Images, list "Static/Images/**/*.*" )
70
74
, ( Manifests, list "Static/Manifests/**/*.*" )
71
-
72
-
-- About Pages
73
-
, ( AboutPages, list "Static/About/**/*.md" )
74
-
, ( AboutCss, list "Static/About/**/*.css" )
75
75
]
76
76
77
77
···
98
98
99
99
100
100
{-| About Pages -}
101
-
flow _ (AboutCss, dict) =
102
-
dict
103
-
|> map lowerCasePath
104
-
|> prefixDirname "about/"
105
-
106
101
flow x (AboutPages, dict) =
107
102
dict
108
103
|> map lowerCasePath
···
136
131
-- INSERT
137
132
138
133
139
-
insertTree :: Dictionary -> Dictionary
140
-
insertTree dict =
134
+
makeTree :: Dictionary -> Dictionary
135
+
makeTree dict =
141
136
let
142
137
treeContent =
143
138
dict
144
139
|> List.map localPath
140
+
|> List.filter (\p -> p /= "tree.json")
145
141
|> Aeson.encode
146
142
|> BSL.toStrict
147
143
···
156
152
Nothing ->
157
153
[]
158
154
in
159
-
dict <> defs
155
+
defs
160
156
161
157
162
158
insertVersion :: Text -> Dictionary -> Dictionary