Move markdown escaping to Misc.pm6

Because this way we will be able to reuse this terrible hack later.

Author: AlexDaniel

Greppable.p6

@@ -49,8 +49,7 @@ sub process-line($line) { # 🙈
         $path # not a module
     }
     $text = shorten $text, 300; # do not print too long lines
-    $text .= trans: (｢<｣,   ｢>｣,  ｢&｣,  ｢\｣,  ｢`｣,  ｢*｣,  ｢_｣,  ｢~｣) =>
-                    (｢\<｣, ｢\>｣, ｢\&｣, ｢\\｣, ｢\`｣, ｢\*｣, ｢\_｣, ｢\~｣); # ｣; # TODO is it correct? No, that's an ugly hack…
+    $text = markdown-escape($text);
     $text ~~ s:g/ “\c[ESC][1;31m” (.*?) [ “\c[ESC][m” | $ ] /<b>{$0}<\/b>/; # TODO get rid of \/ ?
 
     “$start <code>{$text}</code>” ~ ‘<br>’

Misc.pm6

@@ -36,3 +36,9 @@ sub fuzzy-nick($nick, $distance) is export {
 sub signal-to-text($signal) is export {
     “$signal ({Signal($signal) // ‘None’})”
 }
+
+sub markdown-escape($text) is export {
+    # TODO is it correct? No, that's an ugly hack…
+    $text.trans: (｢<｣,   ｢>｣,  ｢&｣,  ｢\｣,  ｢`｣,  ｢*｣,  ｢_｣,  ｢~｣) =>
+                 (｢\<｣, ｢\>｣, ｢\&｣, ｢\\｣, ｢\`｣, ｢\*｣, ｢\_｣, ｢\~｣); # ｣);
+}