DGNum/liminix
14
0
Fork 2
Code Issues 15 Pull requests 7 Projects Releases Packages Wiki Activity Actions

print modules in consistent (alphabetical) order

Browse source
This commit is contained in:
Daniel Barlow 2023-08-09 22:26:50 +01:00
parent be044cb59e
commit f7b507587d
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
doc/parse-options.fnl
View file

@ -72,13 +72,17 @@
(let [e (or (. modules path) [])]
(table.insert e option)
(tset modules path e))))
(each [name module (pairs modules)]
(print (or (read-preamble name) (headline name)))
(let [options (sort-options module)]
(each [_ o (ipairs options)]
(if (= o.type "parametrisable s6-rc service definition")
(print-service o)
(print-option o))))))
(tset modules "lib/modules.nix" nil)
(let [module-names (doto (icollect [n _ (pairs modules)] n) table.sort)]
(io.stderr:write (view module-names))
(each [_ name (ipairs module-names)]
(let [module (. modules name)
options (sort-options module)]
(print (or (read-preamble name) (headline name)))
(each [_ o (ipairs options)]
(if (= o.type "parametrisable s6-rc service definition")
(print-service o)
(print-option o)))))))
;; for each element el, add to table modules keyed on
;; el.declarations