Commit 31dbb072 authored by Zvi Devir's avatar Zvi Devir

minor rule update

parent 45dfad7d
......@@ -63,6 +63,9 @@ s/\n+(?=\=)/\n\n/g;
s/\n *(\((?:תיקון|תיקונים):? .*?\)) *(\n+=+ .*) (=+)\n/$2 $1 $3\n/g;
s/ *(=+)\n+ *(\((תיקון|תיקונים):? .*?\)) *\n/ $2 $1\n/g;
s/ *\(תיקון:? מס' \d+\) (תש.?".)-\d\d\d\d/\n(תיקון: $1)/g;
while (s/(\(תיקון: [^()\n]+)\)[\n ]\(תיקון: ([^()\n]+\))/$1, $2/g) {};
print "##AA############\n$_\n##AA############\n" if ($debug);
s/\n([^\n]+)\n(\d+\S{0,3}\. \([^\n\)]+\)) *\n/\n$2 $1\n/g;
......@@ -73,6 +76,9 @@ s/([א-ת\,A-Za-z])\n([א-תA-Za-z])/$1 $2/gm;
s/ +$//gm;
s/("[א-ת]-)\n(\d{4})/$1$2/gm;
s/(\n\d[\dא-ת]*) (.*)\n([^\.]+)\n(\d*\.) /$1$4 $2 $3\n: /g;
s/(\n\d[\dא-ת]*) (.*)\n(\d*\.) /$1$3 $2\n: /g;
s/\n([\(\[]מס' \d)/ $1/gm;
s/([\(\[](תיקון|תיקונים):?) *\n/$1 /gm;
s/\n(?=[\[\(](תיקון|תיקונים):?\b)/ /gm;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment