HackENS/liminix-fork
5
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

escape backslash in service type

Browse source
This commit is contained in:
Daniel Barlow 2023-08-16 19:43:12 +01:00
parent 1b8536ff81
commit 625146d821
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/parse-options.fnl
View file

@ -44,13 +44,16 @@
(where s (= (type s) "string")) description (where s (= (type s) "string")) description
_ nil)) _ nil))
(fn escape-backslash [s]
(string.gsub s "\\" "\\\\"))
(fn print-option [o offset] (fn print-option [o offset]
(let [i (or offset 0)] (let [i (or offset 0)]
(print (indent i (.. " * option ``" o.name "``"))) (print (indent i (.. " * option ``" o.name "``")))
(case (-?> o.description extract-text strip-newlines) (case (-?> o.description extract-text strip-newlines)
descr (print (indent (+ 4 i) descr))) descr (print (indent (+ 4 i) descr)))
(print) (print)
(print (indent (+ 4 i) (.. "**type** " o.type "\n"))) (print (indent (+ 4 i) (.. "**type** " (escape-backslash o.type) "\n")))
(when o.example (when o.example
(print (indent (+ 4 i) "**example**")) (print) (print (indent (+ 4 i) "**example**")) (print)
(print (indent (+ 4 i) ".. code-block:: nix")) (print (indent (+ 4 i) ".. code-block:: nix"))