[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 0737112852 2/2: mk/orgcard2txt.pl: Escape { to remo
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 0737112852 2/2: mk/orgcard2txt.pl: Escape { to remove deprecation warnings |
Date: |
Sat, 19 Nov 2022 08:57:57 -0500 (EST) |
branch: externals/org
commit 0737112852afe835a5a5833a2dd0a6852c04e0f0
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>
mk/orgcard2txt.pl: Escape { to remove deprecation warnings
---
mk/orgcard2txt.pl | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/mk/orgcard2txt.pl b/mk/orgcard2txt.pl
index d8438649a9..c753a81dc9 100755
--- a/mk/orgcard2txt.pl
+++ b/mk/orgcard2txt.pl
@@ -24,13 +24,13 @@ use warnings;
sub rep_esc{
my $s = shift @_;
- $s =~ s/\\kbd{([^}]+)}/$1/g;
+ $s =~ s/\\kbd\{([^}]+)\}/$1/g;
$s =~ s/\$\^([0-9])\$/[$1]/g;
$s =~ s/\\rm //g;
$s =~ s/\\\///g;
- $s =~ s/\\\^{}/^/g;
+ $s =~ s/\\\^\{\}/^/g;
$s =~ s/\\}/}/g;
- $s =~ s/\\{/{/g;
+ $s =~ s/\\\{/{/g;
$s =~ s/\\\#/#/g;
$s =~ s/\\\^/^/g;
$s =~ s/\\\%/%/g;
@@ -39,7 +39,7 @@ sub rep_esc{
$s =~ s/\\\$/\$/g;
$s =~ s/\$\\leftrightarrow\$/<->/g;
$s =~ s/\$\\pm 1\$/±1/g;
- $s =~ s/``{\\tt ([^}]+)}''/`$1'/g;
+ $s =~ s/``\{\\tt ([^}]+)}''/`$1'/g;
return $s;
}
my $page=0;
@@ -48,7 +48,7 @@ my $orgversionnumber;
open(IN,"org-version.tex");
while(<IN>){
last if(/\f/);
- $orgversionnumber = $1 if /\\def\\orgversionnumber{([^}]+)}/;
+ $orgversionnumber = $1 if /\\def\\orgversionnumber\{([^}]+)}/;
}
close(IN);
@@ -75,17 +75,17 @@ while(<IN>){
next if($page != 1);
next if(/^%/);
next if /Org Mode Reference Card \([12]\/2\)/;
- next if /\\centerline{\(for version \\orgversionnumber\)}/;
+ next if /\\centerline\{\(for version \\orgversionnumber\)}/;
next if /\(for version \)/;
next if /\\newcolumn/;
next if /\\copyrightnotice/;
next if /\\bye/;
- next if /\\title{([^}]+)}/;
+ next if /\\title\{([^}]+)}/;
chomp;
# print "b:$_\n";
s/([^\\])\%.+$/$1/;
# print "a:$_\n";
- if (/\\section{(.+)}/){
+ if (/\\section\{(.+)}/){
my $sec = rep_esc($1);
print
"================================================================================\n";
print "$sec\n";
@@ -106,8 +106,8 @@ while(<IN>){
print
"--------------------------------------------------------------------------------\n";
next;
}
- if(/^\\key{(.+)}\s*$/||/^\\metax{(.+)}\s*$/){
- my ($k,$v) = split(/}{/,$1);
+ if(/^\\key\{(.+)}\s*$/||/^\\metax\{(.+)}\s*$/){
+ my ($k,$v) = split(/}\{/,$1);
my $k2 = &rep_esc($k);
my $v2 = &rep_esc($v);
# print "$k2\t$v2\n";