File: add-css.pl

package info (click to toggle)
emacspeak 24-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 9,092 kB
  • ctags: 4,597
  • sloc: xml: 54,699; lisp: 42,103; tcl: 1,799; makefile: 810; cpp: 603; sh: 566; ansic: 153; perl: 124
file content (14 lines) | stat: -rwxr-xr-x 425 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl-w  -i 
my $css='
<link rel="http://www.w3.org/StyleSheets/Core/Modernist" type="text/css"> ';
my $logo=qq(
 <table summary="logo"><tr><td>
><a href="http://emacspeak.sf.net"><img width="150" height="216" src="emacspeak.jpg" alt= "EMACSPEAK --Complete Audio Desktop"></a> 
</td></tr></table>);
while ( <>) {
  s@<head>@<head>$css@igo;
s@<body>@<body>$logo@igo;
s/^\s*\@title.*$//;
s/^\s*\@kindex.*//;
print;
}