From 625146d821a0acee7318d558e05ca7a4d09ee22b Mon Sep 17 00:00:00 2001 From: Daniel Barlow Date: Wed, 16 Aug 2023 19:43:12 +0100 Subject: [PATCH] escape backslash in service type --- doc/parse-options.fnl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/doc/parse-options.fnl b/doc/parse-options.fnl index 56d305a9..8f2eb213 100644 --- a/doc/parse-options.fnl +++ b/doc/parse-options.fnl @@ -44,13 +44,16 @@ (where s (= (type s) "string")) description _ nil)) +(fn escape-backslash [s] + (string.gsub s "\\" "\\\\")) + (fn print-option [o offset] (let [i (or offset 0)] (print (indent i (.. " * option ``" o.name "``"))) (case (-?> o.description extract-text strip-newlines) descr (print (indent (+ 4 i) descr))) (print) - (print (indent (+ 4 i) (.. "**type** " o.type "\n"))) + (print (indent (+ 4 i) (.. "**type** " (escape-backslash o.type) "\n"))) (when o.example (print (indent (+ 4 i) "**example**")) (print) (print (indent (+ 4 i) ".. code-block:: nix"))