application/octet-stream
•
562 B
•
18 lines
#!/usr/bin/env nujel
[import [serialize :as val->json] :serialization/json]
[def directories '["binlib" "stdlib" "tests" "testsuite" "tools"]]
[def output-file "web/filesystem.json"]
[-> directories
[map directory/read-recursive]
[flatten]
[filter [path/ext?! "nuj"]]
[reduce [fn [a b]
[tree/set! a
[string->keyword b]
@[name: b content: [file/read b]]]]]
[val->json]
[file/write output-file]]
[println [cat [ref ansi-bg 2] "[JSON]" ansi-bg-reset " " output-file]]
