wm: infra

Download patch

ref: 9f833900ad0a9bef9743dccddd01b31fd6dc2fe9
parent: 40b40dac456b77f4b46b2e465931f821c564e26e
author: mkf <mkf@cloud9p.org>
date: Fri Oct 11 15:35:13 EDT 2024

wiki2ms: fix the case where monospaced text would be consumed by directlink and indirectlink

--- a/doc/wiki2ms
+++ b/doc/wiki2ms
@@ -49,7 +49,7 @@
 				echo '.P2'
 			}
 			echo $i
-		}	
+		}
 	}
 	# last line may be a ! line.
 	if(~ $mono t){
@@ -62,12 +62,18 @@
 	ifs=$nl
 	mono=f
 	for(i in `{cat}){
-		if(~ $i .P1)
+		if(~ $i .P1){
 			mono=t
-		if(~ $i .P2)
+			echo $i
+		}
+		if not if(~ $i .P2){
 			mono=f
-		if(~ $mono f)
+			echo $i
+		}
+		if not if(~ $mono f)
 			echo $i | sed 's/\[([^\n]+)\|([^\n]+)\]/\n\.LN \2\n\1\n\.LN\n/g'
+		if not
+			echo $i
 	}	
 }
 
@@ -75,12 +81,18 @@
 	ifs=$nl
 	mono=f
 	for(i in `{cat}){
-		if(~ $i .P1)
+		if(~ $i .P1){
 			mono=t
-		if(~ $i .P2)
+			echo $i
+		}
+		if not if(~ $i .P2){
 			mono=f
-		if(~ $mono f)
+			echo $i
+		}
+		if not if(~ $mono f)
 			echo $i | sed 's/\[([^\n]+)\]/\n\.LN \1\n\1\n\.LN\n/g'
+		if not
+			echo $i
 	}
 }
 
@@ -88,12 +100,18 @@
 	ifs=$nl
 	mono=f
 	for(i in `{cat}){
-		if(~ $i .P1)
+		if(~ $i .P1){
 			mono=t
-		if(~ $i .P2)
+			echo $i
+		}
+		if not if(~ $i .P2){
 			mono=f
-		if(~ $mono f)
+			echo $i
+		}
+		if not if(~ $mono f)
 			echo $i | sed 's/([^ ]+)\(([0-9])\)/\n\.LN '^$url^'\2\/\1\n\1\(\2\)\n\.LN\n/g'
+		if not
+			echo $i
 	}
 }