mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

mk/orgcard2txt.pl: Escape { to remove deprecation warnings

This commit is contained in:
Bastien 2022-11-19 14:41:27 +01:00
parent ab3d49c8b0
commit 0737112852
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mk/orgcard2txt.pl
View File

@ -24,13 +24,13 @@ use warnings;
sub rep_esc{ sub rep_esc{
my $s = shift @_; my $s = shift @_;
$s =~ s/\\kbd{([^}]+)}/$1/g; $s =~ s/\\kbd\{([^}]+)\}/$1/g;
$s =~ s/\$\^([0-9])\$/[$1]/g; $s =~ s/\$\^([0-9])\$/[$1]/g;
$s =~ s/\\rm //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; $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/\\\$/\$/g;
$s =~ s/\$\\leftrightarrow\$/<->/g; $s =~ s/\$\\leftrightarrow\$/<->/g;
$s =~ s/\$\\pm 1\$/±1/g; $s =~ s/\$\\pm 1\$/±1/g;
$s =~ s/``{\\tt ([^}]+)}''/`$1'/g; $s =~ s/``\{\\tt ([^}]+)}''/`$1'/g;
return $s; return $s;
} }
my $page=0; my $page=0;
@ -48,7 +48,7 @@ my $orgversionnumber;
open(IN,"org-version.tex"); open(IN,"org-version.tex");
while(<IN>){ while(<IN>){
last if(/\f/); last if(/\f/);
$orgversionnumber = $1 if /\\def\\orgversionnumber{([^}]+)}/; $orgversionnumber = $1 if /\\def\\orgversionnumber\{([^}]+)}/;
} }
close(IN); close(IN);
@ -75,17 +75,17 @@ while(<IN>){
next if($page != 1); next if($page != 1);
next if(/^%/); next if(/^%/);
next if /Org Mode Reference Card \([12]\/2\)/; 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 /\(for version \)/;
next if /\\newcolumn/; next if /\\newcolumn/;
next if /\\copyrightnotice/; next if /\\copyrightnotice/;
next if /\\bye/; next if /\\bye/;
next if /\\title{([^}]+)}/; next if /\\title\{([^}]+)}/;
chomp; chomp;
# print "b:$_\n"; # print "b:$_\n";
s/([^\\])\%.+$/$1/; s/([^\\])\%.+$/$1/;
# print "a:$_\n"; # print "a:$_\n";
if (/\\section{(.+)}/){ if (/\\section\{(.+)}/){
my $sec = rep_esc($1); my $sec = rep_esc($1);
print "================================================================================\n"; print "================================================================================\n";
print "$sec\n"; print "$sec\n";
@ -106,8 +106,8 @@ while(<IN>){
print "--------------------------------------------------------------------------------\n"; print "--------------------------------------------------------------------------------\n";
next; next;
} }
if(/^\\key{(.+)}\s*$/||/^\\metax{(.+)}\s*$/){ if(/^\\key\{(.+)}\s*$/||/^\\metax\{(.+)}\s*$/){
my ($k,$v) = split(/}{/,$1); my ($k,$v) = split(/}\{/,$1);
my $k2 = &rep_esc($k); my $k2 = &rep_esc($k);
my $v2 = &rep_esc($v); my $v2 = &rep_esc($v);
# print "$k2\t$v2\n"; # print "$k2\t$v2\n";