managen: accept more markdown-quote-markers

Lines starting with ``` or ~~~ indicate start and end of a quoted
section.

Closes #16685

diff --git a/scripts/managen b/scripts/managen
index 6621b1684c0203148a8d47a0167b8f6a7ffdce99..5e03180144b722f844030655a45ba0a52cf0479e 100755 (executable)
--- a/scripts/managen
+++ b/scripts/managen
@@ -320,7 +320,23 @@ sub render {
             $quote = 1;
             $d = "$word\n";
         }
-        elsif($quote) {
+        elsif($d =~ /^(```|~~~)/) {
+            if(!$quote) {
+                if($manpage) {
+                    push @desc, "\n" if($blankline);
+                    push @desc, ".nf\n";
+                    $blankline = 0;
+                }
+                $quote = 2;
+            }
+            else {
+                # end of quote
+                push @desc, ".fi\n" if($manpage);
+                $quote = 0;
+            }
+            next;
+        }
+        elsif($quote == 1) {
             # end of quote
             push @desc, ".fi\n" if($manpage);
             $quote = 0;