forked from DGNum/liminix
81 lines
2.3 KiB
Text
81 lines
2.3 KiB
Text
|
(local json (require :dkjson))
|
||
|
|
|
||
|
|
(local { : view } (require :fennel))
|
||
|
|
|
||
|
|
(fn headline [name]
|
||
|
|
(let [(_ _ basename) (string.find name ".*/([^/].*)")
|
||
|
|
len (basename:len)]
|
||
|
|
(print basename)
|
||
|
|
(print (string.rep "=" len))))
|
||
|
|
|
||
|
|
(fn strip-newlines [text]
|
||
|
|
(and text
|
||
|
|
(-> text
|
||
|
|
(string.gsub "\n([^\n])" " %1")
|
||
|
|
(string.gsub "\n\n+" "\n"))))
|
||
|
|
|
||
|
|
(fn indent [n text]
|
||
|
|
(let [margin (string.rep " " n)]
|
||
|
|
(.. margin (string.gsub text "\n +" (.. "\n" margin )))))
|
||
|
|
|
||
|
|
(fn extract-text [description]
|
||
|
|
(and description
|
||
|
|
; (do (print (view description)) true)
|
||
|
|
(-> (match description
|
||
|
|
{ :type "literalExpression" : text } text
|
||
|
|
{} nil
|
||
|
|
nil nil
|
||
|
|
t description)
|
||
|
|
strip-newlines)))
|
||
|
|
|
||
|
|
(fn print-option [o offset]
|
||
|
|
(let [i (or offset 0)]
|
||
|
|
(print (indent i (.. " * option ``" o.name "``")))
|
||
|
|
(print (indent (+ 4 i)
|
||
|
|
(or (extract-text o.description) "(no description)")))
|
||
|
|
(print)
|
||
|
|
(print (indent (+ 4 i) (.. "**type** " o.type "\n")))
|
||
|
|
(print (indent (+ 4 i)
|
||
|
|
(.. "**default** "
|
||
|
|
(or (extract-text (?. o :default)) "(none)")
|
||
|
|
"\n"
|
||
|
|
)))
|
||
|
|
(print )))
|
||
|
|
|
||
|
|
(fn print-service [o]
|
||
|
|
(print (.. " * service ``" o.name "``"))
|
||
|
|
(print (indent 4 (or (extract-text o.description) "(no description)")))
|
||
|
|
(print)
|
||
|
|
(print (indent 4 "**Service parameters**\n"))
|
||
|
|
(each [_ param (ipairs o.parameters)]
|
||
|
|
(print-option param 4)))
|
||
|
|
|
||
|
|
(fn sort-options [module]
|
||
|
|
(table.sort module (fn [a b] (< a.name b.name)))
|
||
|
|
module)
|
||
|
|
|
||
|
|
(let [raw (json.decode (io.read "*a"))
|
||
|
|
modules {}]
|
||
|
|
(each [_ option (ipairs raw)]
|
||
|
|
(let [[path] option.declarations
|
||
|
|
e (or (. modules path) [])]
|
||
|
|
(table.insert e option)
|
||
|
|
(tset modules path e)))
|
||
|
|
(each [name module (pairs modules)]
|
||
|
|
(print (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))))))
|
||
|
|
|
||
|
|
;; for each element el, add to table modules keyed on
|
||
|
|
;; el.declarations
|
||
|
|
|
||
|
|
;; for each value in modules
|
||
|
|
;; print title
|
||
|
|
;; elements = (sort elements on el.name)
|
||
|
|
;; for each el in elements
|
||
|
|
;; is option or service? print whichever
|
||
|
|
;;
|