change punctuation stripping

1 files changed, 18 insertions, 10 deletions

diff --git a/rf b/rf
index 338409d..c1de63a 100755
--- a/rf
+++ b/rf
@@ -6,7 +6,7 @@ use warnings;
 # Default configuration
 
 my %fmt;
-$fmt{r} = '%a (%y).  {\fI%t\fR}.  {\*Q%q\*U}.  %n, %d.  %c: %p.  {Available: %w.}';
+$fmt{r} = '%a {(%y)}.  {\fI%t\fR}.  {\*Q%q\*U}.  %n, %d.  %c: %p.  {Available: %w.}';
 $fmt{f} = "\n(%A %y)";
 $fmt{x} = "\n(%y)";
 
@@ -169,22 +169,30 @@ sub fmt {
 			my $val = $ref{lc $fld};
 			$val = join '; ', @$val if lc $fld eq 'a';
 			$val = fmtl($val) if $fld eq 'A';
-			if ($val =~ /\.$/) {
-				$fmt =~ s/\{([^{}%]*)%\Q$fld\E([^{}]*)}\.?/$1$val$2/g;
-				$fmt =~ s/%\Q$fld\E\.?/$val/g;
+			if ($val =~ /[.,?!]$/) { # fix double punctuation
+				next if $fmt =~ s/\{([^{}%]*)%\Q$fld\E[.,?!]?([^{}]*)}/$1$val$2/g;
+				$fmt =~ s/%\Q$fld\E[.,?!]?/$val/g
 			} else {
-				$fmt =~ s/\{([^{}%]*)%\Q$fld\E([^{}]*)}/$1$val$2/g;
-				$fmt =~ s/%\Q$fld\E/$val/g;
+				next if $fmt =~ s/\{([^{}%]*)%\Q$fld\E([^{}]*)}/$1$val$2/g;
+				$fmt =~ s/%\Q$fld\E/$val/g
 			}
-		} else {
+		} else { # remove escape syntax after failed interpolation
 			no warnings;
-			$fmt =~ s/[.([]?\{([^{}%]*)%\Q$fld\E([^{}]*)}[.,?!:;\])]?//g;
-			$fmt =~ s/[.([]?%\Q$fld\E[.,?!:;\])]?//g;
+			next if $fmt =~ s/\{([^{}%]*)%\Q$fld\E([^{}]*)}[.,?!:;]?//g;
+			$fmt =~ s/%\Q$fld\E[.,?!:;]?//g;
 		}
 	}
-	$fmt =~ s/([^.]) +/$1 /g;
+
+	# strip superfluous spaces
 	$fmt =~ s/^ *//;
 	$fmt =~ s/ *$//;
+	$fmt =~ s/([^.]) +/$1 /g;
+	$fmt =~ s/([[(]) /$1/g;
+	$fmt =~ s/ ([\])])/$1/g;
+	$fmt =~ s/ ([.,])/$1/g;
+	# fix superfluous period after quote
+	$fmt =~ s/([.,?!]")\./$1/g;
+	$fmt =~ s/([.,?!]\\\*U)\./$1/g;
 	return $fmt;
 }