unicode: group spaces and dashes

[sheet.git] / index.plp

diff --git a/index.plp b/index.plp
index e8b3a0f97d7a70f1be521424340606603d94de23..22f13df4a9273f1e0220493c3a869949939dec84 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";
+}
+