1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
import gleam/io
import gleam/list
import gleam/string
import gleam/result
import gleam/javascript/promise.{type Promise}
import bundle
@external(javascript, "./build_ffi.mjs", "bundle_build")
pub fn bundle_build(entry f: String, outfile o: String) -> Promise(Result(Nil, String))
@external(javascript, "./build_ffi.mjs", "js_build")
pub fn js_build(content c: String, outfile o: String) -> Promise(Result(Nil, String))
@external(javascript, "./build_ffi.mjs", "json_build")
pub fn json_build(json f: String, outfile o: String) -> Promise(Result(Nil, String))
@external(javascript, "./build_ffi.mjs", "wxml_build")
pub fn wxml_build(wxml f: String, outfile o: String) -> Promise(Result(Nil, String))
@external(javascript, "./build_ffi.mjs", "less_build")
pub fn less_build(less f: String, outfile o: String) -> Promise(Result(Nil, String))
const entry = "./build/dev/javascript/wechat_dev_tools/bundle.mjs"
const app_content = "import { app } from './bundle.mjs'; app()"
const dist = "./dist/"
const src = "./src/"
pub type Builder = fn(String, String) -> Promise(Result(Nil, String))
pub type Asset {
Asset(src: String, dist: String, builder: Builder)
}
fn file_path(path: String, p: String, t: String) -> String {
string.concat([ path, p, "/", p, ".", t, ])
}
fn page_content(p: String) -> String {
string.concat([
"improt { pages, page } from './bundle.mjs'; page(pages(), \"",
p,
"\")",
])
}
fn bundle_asset() -> List(Asset) {
[ Asset(entry, dist <> "bundle.mjs", bundle_build) ]
}
fn app_assets() -> List(Asset) {
[ Asset(app_content, dist <> "app.js", js_build),
Asset(src <> "app.json", dist <> "app.json", json_build),
Asset(src <> "less", dist <> "app.wxss", less_build) ]
}
fn page_assets(p: String) -> List(Asset) {
[ Asset(page_content(p), file_path(dist, p, "js"), js_build),
Asset(file_path(src, p, "json"), file_path(dist, p, "json"), json_build),
Asset(file_path(src, p, "wxml"), file_path(dist, p, "wxml"), wxml_build),
Asset(file_path(src, p, "less"), file_path(dist, p, "wxss"), less_build) ]
}
fn pages_assets() -> List(Asset) {
bundle.pages()
|> list.map(fn(p) { p.0 })
|> list.flat_map(fn(p) { page_assets(p) })
}
fn fold_result(r0: Result(Nil, String), r: Result(Nil, String)) -> Result(Nil, String) {
case r {
Ok(Nil) -> r0
Error(_) -> r
}
}
fn build(ass: List(Asset)) -> Promise(Result(Nil, String)) {
ass
|> list.map(fn(a) { a.builder(a.src, a.dist) })
|> promise.await_list
|> promise.map(fn(ls) {
ls
|> list.fold(Ok(Nil), fold_result)
})
}
pub fn main() {
use r0 <- promise.await(build(bundle_asset()))
use r1 <- promise.await(build(app_assets()))
use r2 <- promise.await(build(pages_assets()))
[r0, r1, r2]
|> list.fold(Ok(Nil), fold_result)
|> result.map_error(fn (e) { io.println(e) })
|> promise.resolve
}
|
