From f317200563bf3b7547cbca6b825fd6bee50a6528 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Thu, 16 Aug 2018 16:51:21 +0200
Subject: Fix warnings evidenced by the groff tests

---
 src/asciideck_to_manpage.erl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/asciideck_to_manpage.erl')

diff --git a/src/asciideck_to_manpage.erl b/src/asciideck_to_manpage.erl
index 23b110c..7f6cbaf 100644
--- a/src/asciideck_to_manpage.erl
+++ b/src/asciideck_to_manpage.erl
@@ -118,7 +118,7 @@ listing_block({listing_block, Attrs, Listing, _}) ->
 		".RS 4\n"
 		".\\}\n"
 		".nf\n",
-		Listing,
+		escape(Listing),
 		"\n"
 		".fi\n"
 		".if n \\{\\\n"
@@ -208,7 +208,7 @@ comment_line({comment_line, _, Text, _}) ->
 %% Inline formatting.
 
 inline(Text) when is_binary(Text) ->
-	Text;
+	escape(Text);
 %% When the link is the text we only print it once.
 inline({link, #{target := Link}, Link, _}) ->
 	Link;
@@ -231,3 +231,6 @@ inline({line_break, _, _, _}) ->
 	"\n.br\n";
 inline(Text) when is_list(Text) ->
 	[inline(T) || T <- Text].
+
+escape(Text) ->
+	binary:replace(iolist_to_binary(Text), <<$\\>>, <<$\\, $\\>>, [global]).
-- 
cgit v1.2.3