mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 09:27:53 +00:00
af58a6dbf7
* lisp/ob-core.el (org-babel-result-to-file): * lisp/ob-picolisp.el: * lisp/org-agenda.el (org-check-for-org-mode): (org-search-view): (org-tags-view): (org-agenda-cleanup-fancy-diary): (org-agenda-get-day-entries): * lisp/org-table.el (orgtbl-mode): * lisp/org-w3m.el (org-w3m-copy-for-org-mode): * lisp/org.el (org-modules): (org-startup-options): (org-fontify-meta-lines-and-blocks): * mk/default.mk: * mk/manfull.pl: * mk/org-fixup.el (org-make-org-version): (org-make-org-loaddefs): * mk/orgcard2txt.pl (rep_esc): * mk/targets.mk ($(info): * testing/README: (Example): * testing/examples/no-heading.org: * testing/examples/normal.org: Change Org-mode into Org mode
29 lines
908 B
Perl
Executable file
29 lines
908 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
while ($page = shift) {
|
|
system "mv $page $page.orig";
|
|
open IN,"<$page.orig" or die "Cannot read from $page.orig\n";
|
|
open OUT,">$page" or die "Cannot write to $page\n";
|
|
|
|
while (<IN>) {
|
|
if (/<meta http-equiv="Content-Style-Type" content="text\/css">/) {
|
|
print OUT;
|
|
print OUT '<link rel="stylesheet" href="http://orgmode.org/org-manual.css" type="text/css" />';
|
|
} elsif (/<div class="contents">/) {
|
|
print OUT;
|
|
print OUT '<p>This is the official manual for the latest <a href="http://orgmode.org">Org mode</a> release.</p><div id="table-of-contents">';
|
|
} elsif (/<h2>Table of Contents<\/h2>/) {
|
|
print OUT;
|
|
print OUT '<a href="http://orgmode.org">http://orgmode.org</a><br/><div id="text-table-of-contents">';
|
|
$toc = 1;
|
|
} elsif (/<\/div>/ and $toc) {
|
|
print OUT "</div></div></div>";
|
|
$toc = 0;
|
|
} else {
|
|
print OUT;
|
|
}
|
|
}
|
|
system "rm $page.orig";
|
|
}
|