From c690c55e707ee7fd1e5ad4592fec490f7fbd3304 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Thu, 6 May 2021 21:58:34 +0200 Subject: Various changes --- gen.pl | 32 ++++++++------- src/index.html | 124 ++++++++++++++++++++++++++++++++++++++++++--------------- src/style.css | 100 +++++++++++++++++++++++++++++++++++++++++----- 3 files changed, 200 insertions(+), 56 deletions(-) diff --git a/gen.pl b/gen.pl index fe9a786..d1d5d5f 100644 --- a/gen.pl +++ b/gen.pl @@ -2,24 +2,36 @@ # gen.pl -- generate static files for perlisdead.org -package App::PerlIsDead; -our $VERSION = '0.1'; +use 5.010; use strict; use warnings; use experimental 'switch'; + use File::Copy; use FindBin '$Bin'; use Getopt::Std; +# Parse command-line options + my %opt; $Getopt::Std::STANDARD_HELP_VERSION = 1; getopts('d', \%opt); +sub main::HELP_MESSAGE { + print <', 'out/index.html.tmp' or die "Could not open > out/index.html.tmp: $!"; @@ -59,7 +71,7 @@ for (<$src>) { select STDOUT; warn $@ if $@; } - # I guess you could just shell out instead... + # I guess you *could* just run the script in a separate process... } default { print $out $_; @@ -69,9 +81,11 @@ close $out; close $src; # Rename temporary file + move 'out/index.html.tmp' => 'out/index.html'; # Copy modified static files + opendir $src, 'src' or die "Could not open directory src: $!"; opendir $out, 'out' or die "Could not open directory src: $!"; my %src = map { ($_, (stat "src/$_")[9]||0) } grep { not /^\./ or /^index\.html$/ } readdir $src; @@ -86,15 +100,3 @@ closedir $out; closedir $src; print STDERR "DONE\n" if $opt{d}; - -# Definitions - -sub main::HELP_MESSAGE { - print < -Perl is Dead +Perl Is Dead -

Perl is Dead?

+ + + + + + -
-

Latest messages on the perl5-porters mailing list

+
+ + + + + + + + + + -
-

Latest articles on blogs.perl.org

+
-
-

Latest posts on the /r/perl subreddit

+
+ + + + + -
-

Latest activity on the #perl IRC channel

+
+ + + + + -
-

Latest nodes on PerlMonks

-.run perlmonks -
+ -
-

Latest uploads to CPAN

-.run cpan -
+ + + + + + +

"Perl is dead" is an urban legend and conspiracy theory alleging that famous programming language Perl, created by Larry Wall, died @@ -20,17 +27,11 @@ speeches and Perl book covers. Clue-hunting proved infectious, and within a few weeks had become an international phenomenon. (paraphrased from Wikipedia…) -

-
-.run benchmark
-
-
-

Jokes aside, Perl is alive and well. -It is an excellent choice for new applications, and -it has – by far – the fastest startup time among -all its competitors, as you can see in the figure to the right. +It is an excellent choice for new applications. +As you can see on the right, it has the fastest startup time by +far among its competitors. Every millisecond counts if you're building a command-line utility.

@@ -38,36 +39,97 @@ Every millisecond counts if you're building a command-line utility. into the 2020s. Below is a summary of the recent activity of various Perl forums as of .eval print scalar localtime, ".\n"; +

 +
+.run benchmark
+
+
+

Overview of the Perl community

+
+

Latest messages on the perl5-porters list

.run p5p - +		 +

Latest articles on blogs.perl.org

.run blogs - +
+

Latest nodes on PerlMonks

+.run perlmonks +		 +

Latest posts on the /r/perl subreddit

.run reddit - +
+

Latest uploads to CPAN

+.run cpan +		 +

Recent activity on the #perl IRC channel

.run irc - +
+
diff --git a/src/style.css b/src/style.css index c150661..74e0a75 100644 --- a/src/style.css +++ b/src/style.css @@ -1,8 +1,10 @@ body { font: 16px/1.4 Arial, Helvetica, sans-serif; - width: 600px; - margin: 0 auto; - padding: 0 1em; + min-width: 800px; + max-width: 1300px; + margin: 0 auto 1em auto; + background: #fff; + color: #111; } h1, h2, h3, h4, h5, h6 { @@ -13,15 +15,48 @@ pre, code, tt { font-size: 14px; } +td pre { + margin-top: 0; +} + h1#title { text-align: center; + border-top: 8px solid #d00; + padding-top: 0.5em; + font-size: 2.4em; + margin-top: 0; + margin-bottom: 1em; +} + +h2.heading { + font-size: 1.5em; + text-align: center; + border-top: 6px solid #5F5ABF; + padding-top: 0.5em; + margin-top: 2em; + margin-bottom: 1.3em; +} + +p#footer { + text-align: center; + font-size: smaller; + color: #666; + border-top: 1px solid #ccc; + padding-top: 0.6em; +} + +p { + text-align: justify; + hyphens: auto; + -o-hyphens: auto; + -webkit-hyphens: auto; + -moz-hyphens: auto; } p.intro { font-size: 18px; color: #d00; margin: 0 1.8em; - text-align: justify; } p.intro cite { font-size: 14px; @@ -30,18 +65,63 @@ p.intro cite { font-style: normal; } -.box { - border: 1px dashed #ccc; - padding: 0 1em; - margin: 1em 0; +table { + border-collapse: collapse; +} + +td { + padding: 0em 2em; + width: 50%; + vertical-align: top; +} + +td.heading-cell { + padding: 0; +} + +tr + tr { + //border-top: 1px dashed #ccc; +} + +tr.heading-row, tr.heading-row + tr { + border-top: 0; } -.box h2 { + +td + td { + //border-left: 1px dashed #ccc; +} + +td h3 { + width: 100%; font-size: 18px; + font-family: Arial, Helvetica, sans-serif; + font-weight: normal; } .entry .date, .entry .from { - font-size: smaller; + font-size: 12px; +} +.entry .subject { + font-size: 14px; } .entry { margin-bottom: 1em; } + +#p5p h3 { border-bottom: 3px solid #34A630; } +#p5p a { color: #2F722F; } + +#blogs h3 { border-bottom: 3px solid #3075A6; } +#blogs a { color: #253174; } + +#reddit h3 { border-bottom: 3px solid #33CBCD; } +#reddit a { color: #177A7C; } + +#perlmonks h3 { border-bottom: 3px solid #000066; } +#perlmonks a { color: #111169; } + +#cpan h3 { border-bottom: 3px solid #CC3333; } +#cpan a { color: #A33C3C; } + +#irc h3 { border-bottom: 3px solid #CCC433; } +#irc a { color: #8F8A2D; } -- cgit v1.2.3