index: list latest git commits
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 13 Dec 2010 20:35:56 +0000 (21:35 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Wed, 15 Dec 2010 21:40:44 +0000 (22:40 +0100)
base.css
index.plp

index c4c36d4..54c1e1a 100644 (file)
--- a/base.css
+++ b/base.css
@@ -79,6 +79,17 @@ ul {
        text-align: left;
 }
 
+dl > dt {
+       float: left;
+       width: 50%;
+       text-align: right;
+}
+dl > dd {
+       text-align: left;
+       padding-left: 1em;
+       overflow: hidden;
+}
+
 /* "keyboard" (list of keys) */
 
 ul#rows {margin-top: -5ex} /* top (esc) row fits besides header */
@@ -527,9 +538,11 @@ dl.legend dt {
        margin: 0 0 1px; /* distinct keys */
        height: auto; /* not key-height */
        padding: 2px 0;
+       width: auto; /* not center-aligned */
 }
 dl.legend dd {
        margin: 3px 0.4em 0; /* align text (add dt border+padding height) */
+       padding: 0;
 }
 
 dl.legend-options dt {
index e8b3a0f..22f13df 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -56,3 +56,16 @@ but you're free to use, print, alter, and redistribute under the AGPL license.
 </ul>
 </div>
 
+<:
+if (open my $log, '-|', 'git log -20 --since=2\ week\ ago --pretty=%ai%x00%s%x00%h') {
+       print "<h1>Recent updates</h1>\n\n";
+       print "<dl>\n";
+       while (readline $log) {
+               chomp;
+               my ($date, $subject, $commit) = split /\0/, $_;
+               $date =~ s{( .+)}{<small>$1</small>};
+               printf '<dt>%s</dt><dd>%s</dd>'."\n", $date, $subject;
+       }
+       print "</dl>\n\n";
+}
+