liminix

commit 625146d821a0acee7318d558e05ca7a4d09ee22b
parent 1b8536ff81c32cbf7e1cd3c814ede9d5d99b4c40
Author: Daniel Barlow <dan@telent.net>
Date:   Wed, 16 Aug 2023 19:43:12 +0100

escape backslash in service type

Diffstat:
M
doc/parse-options.fnl
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git 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"))