Skip to content

Commit 558775f

Browse files
pyrmontpyrmont
committed
Update WebAssembly blob
1 parent 282246c commit 558775f

5 files changed

Lines changed: 9 additions & 11 deletions

File tree

‎pages/dingus.js‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
import init from "./janet.714652e4.js";
1+
import init from "./janet.282246c4.js";
22

33
let vm;
44

‎pages/index.html‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
<title>Predoc - A Markdown Flavour for Writing Man Pages</title>
66
<meta name="viewport" content="width=device-width, initial-scale=1.0">
77
<link rel="stylesheet" href="style.css?202509080153">
8-
<script type="module" src="dingus.js?202511060722"></script>
8+
<script type="module" src="dingus.js?202511060732"></script>
99
</head>
1010
<body>
1111
<nav>

pages/janet.714652e4.js renamed to pages/janet.282246c4.js

Lines changed: 1 addition & 1 deletion
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

pages/janet.714652e4.wasm renamed to pages/janet.282246c4.wasm

582 KB
Binary file not shown.

‎res/tools/wasm.janet‎

Lines changed: 6 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -24,17 +24,17 @@
2424
(string/slice js (+ 17 janet-pos)))))
2525

2626
(defn sha
27-
[ver]
27+
[]
2828
(def [r w] (os/pipe))
29-
(def [ok? res] (protect (os/execute ["git" "rev-list" "-n" "1" ver] :px {:out w})))
29+
(def [ok? res] (protect (os/execute ["git" "rev-parse" "HEAD"] :px {:out w})))
3030
(:close w)
3131
(if ok?
3232
(-> (ev/read r :all) (string/trim) (string/slice 0 8))
3333
(error res)))
3434

3535
(defn build
36-
[ver cmd root]
37-
(def name (string "janet." (sha ver)))
36+
[cmd root]
37+
(def name (string "janet." (sha)))
3838
(def pwd (string (os/cwd) "/"))
3939
(def bdir (string root s "res" s "wasm"))
4040
(def pdir (string root s "pages"))
@@ -102,9 +102,7 @@
102102
run as an argument to the script.
103103
```
104104
[& args]
105-
(def ver (get args 1))
106-
(assert ver "provide the git tag")
107-
(def cmd (get args 2 cli-cmd))
105+
(def cmd (get args 1 cli-cmd))
108106
(def threeup (comp util/parent util/parent util/parent))
109107
(def bundle-root (-> (dyn :current-file) util/abspath threeup))
110-
(build ver cmd bundle-root))
108+
(build cmd bundle-root))

0 commit comments

Comments
 (0)