katdown

git clone git://bebou.netlib.re/katdown
Log | Files | Refs | README |

commit 02c4e9dbbb5194c28d625cfccac15234599506e7
parent 0c0e68c658d75f82f79c478bf058dd1bb1aac567
Auteurice: Arthur Pons <arthur.pons@unistra.fr>
Date:   Mon,  3 Mar 2025 19:03:05 +0100

Implémentation correcte (?) des pre avec tab

L'ordre dans lequel les règles apparaissent est important

Diffstat:
M
katdown
 | 
18
+++++++++---------

1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/katdown b/katdown
@@ -3,22 +3,22 @@
 # fork d'un script de Graham Marlow
 # https://mgmarlow.com/
 
-# TITRES
-# <hN>
-/^# /                  { print "<h1>" substr($0, 3) "</h1>"; next }
-/^## /                 { print "<h2>" substr($0, 4) "</h2>"; next }
-/^### /                { print "<h3>" substr($0, 5) "</h3>"; next }
-/^#### /               { print "<h4>" substr($0, 6) "</h4>"; next }
-
 # BLOCS DE CODE
 # <pre>
 /^---+$/               { print "<hr />"; next }
 inqpre && /^```/       { flush(); print "</pre>"; intqre = 0; next }
 /^```/                 { print "<pre>"; inqpre = 1; next }
 intpre && /^	/      { print substr ($0,1); next }
-intpre && /^[^	]/     { flush(); print "</pre>"; intpre = 0; print substr($0,1); next }
+intpre && /^[^	]/     { flush(); print "</pre>"; intpre = 0; }
 /^	/                  { print "<pre>"; intpre = 1; print substr ($0,1); next }
 
+# TITRES
+# <hN>
+/^# /                  { print "<h1>" substr($0, 3) "</h1>"; next }
+/^## /                 { print "<h2>" substr($0, 4) "</h2>"; next }
+/^### /                { print "<h3>" substr($0, 5) "</h3>"; next }
+/^#### /               { print "<h4>" substr($0, 6) "</h4>"; next }
+
 # LISTES
 # <ul>
 /^  [-*] /             { if (!inul) print "<ul>"; inul = 1; print "<li>" substr($0, 5) "</li>"; next }
@@ -85,5 +85,5 @@ function flushtags() {
 	if (inquote) print "</blockquote>"
 	if (inol) print "</ol>"
 	if (inul) print "</ul>"
-	if (inpre) print "</pre>"
+	if (intpre || inqpre) { print "</pre>"; intpre=0; inqpre=0 }
 }