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
|
require 'mmm'
import get_path from require 'build.util'
import tohtml from require 'mmm.component'
import Browser from require 'mmm.mmmfs.browser'
import get_meta, header, footer from require 'build.layout'
export BROWSER
-- usage:
-- moon render.moon <path_to_root>
{ path_to_root } = arg
assert path_to_root, "please specify the relative root path"
path = get_path path_to_root
do
seed = (str) ->
len = #str
rnd = -> math.ceil math.random! * len
math.randomseed len
return if len == 0
upper, lower = 0, 0
for i=1,4
upper += str\byte rnd!
upper *= 0x100
lower += str\byte rnd!
lower *= 0x100
math.randomseed upper, lower
seed path
root = dofile '$bundle.lua'
assert root, "couldn't load $bundle.lua"
root\mount path, true
BROWSER = Browser root, path
with io.open 'index.html', 'w'
\write [[
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="/main.css" />
<!--
<link rel="preload" as="fetch" href="/mmm/dom/init.lua" />
<link rel="preload" as="fetch" href="/mmm/component/init.lua" />
<link rel="preload" as="fetch" href="/mmm/mmmfs/init.lua" />
<link rel="preload" as="fetch" href="/mmm/mmmfs/fileder.lua" />
<link rel="preload" as="fetch" href="/mmm/mmmfs/browser.lua" />
-->
<link href="https://fonts.googleapis.com/css?family=Source+Sans+Pro:200,400" rel="stylesheet">
]]
\write "
#{get_meta root}
</head>
<body>
#{header}
#{assert (tohtml BROWSER), "couldn't render BROWSER"}
#{footer}
"
\write [[
<script src="/highlight.pack.js"></script>
<script src="//cdnjs.cloudflare.com/ajax/libs/marked/0.5.1/marked.min.js"></script>
<script src="//cdnjs.cloudflare.com/ajax/libs/svg.js/2.6.6/svg.min.js"></script>
<script src="//platform.twitter.com/widgets.js" charset="utf-8"></script>
<script src="/fengari-web.js"></script>
<script type="application/lua" src="/mmm.bundle.lua"></script>
<script type="application/lua">require 'mmm'</script>
]]
\write "
<script type=\"application/lua\">
on_load = on_load or {}
table.insert(on_load, function()
local path = #{string.format '%q', path}
local browser = require 'mmm.mmmfs.browser'
local root = dofile '/$bundle.lua'
root:mount('', true)
BROWSER = browser.Browser(root, path, true)
end)
</script>
</body>
</html>
"
\close!
|
