git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: expected greek alphabet transliteration
[sheet.git]
/
index.plp
diff --git
a/index.plp
b/index.plp
index 81895192ba172dcd937df77c9980da8794cf214c..022a2981b668cafa1cca8ecfca7a1a871a2351c8 100644
(file)
--- a/
index.plp
+++ b/
index.plp
@@
-2,7
+2,8
@@
Html({
title => 'cheat sheets',
Html({
title => 'cheat sheets',
- version => '1.10',
+ canonical => '/',
+ version => '1.17',
description => [
"Cheat sheets summarising various software programs and standards.",
],
description => [
"Cheat sheets summarising various software programs and standards.",
],
@@
-15,8
+16,8
@@
Html({
' title="RSS feed of repository updates"',
' href="http://git.shiar.nl/sheet.git/rss">',
],
' title="RSS feed of repository updates"',
' href="http://git.shiar.nl/sheet.git/rss">',
],
+ data => ['UPDATE'],
});
});
-
:>
<h1>Shiar's cheat sheets</h1>
:>
<h1>Shiar's cheat sheets</h1>
@@
-28,12
+29,13
@@
Originally created by Mischa <span class="family-name">Poslawsky</span>,
but you're free to use, print, alter, and redistribute under the AGPL license.
</p>
<:
but you're free to use, print, alter, and redistribute under the AGPL license.
</p>
<:
-my @format = ('--date=short', "--pretty=%ad (%ar)\t%s");
-if (open my $log, '-|', git => 'log', -1, @format) {{
+if (open my $log, '<', 'UPDATE') {{
my $line = readline $log;
$line or next; # explicitly ignore empty input
my $line = readline $log;
$line or next; # explicitly ignore empty input
+ EscapeHTML $line;
my ($date, $subject) = split /[\t\n]/, $line;
$date =~ s/ \K/<small>/ and $date .= '</small>';
my ($date, $subject) = split /[\t\n]/, $line;
$date =~ s/ \K/<small>/ and $date .= '</small>';
+ $subject =~ s{\A(\w+)(?=: )}{showlink($1, -e "$1.plp" && "/$1")}e;
say "<p><strong>Last update</strong>: $date $subject</p>";
}}
say "<p><strong>Last update</strong>: $date $subject</p>";
}}
@@
-49,7
+51,9
@@
if (open my $log, '-|', git => 'log', -1, @format) {{
<li><a href="/vimperator">vimperator</a>
<li><a href="/mutt">mutt</a>
<li><a href="/nethack">nethack</a>
<li><a href="/vimperator">vimperator</a>
<li><a href="/mutt">mutt</a>
<li><a href="/nethack">nethack</a>
-<li><a href="/mplayer">mplayer</a>
+<li><a href="/mplayer/mpv">mplayer/mpv</a>
+<li><a href="/keyboard/altgr/windows">altgr</a>
+ <a href="/keyboard/altgr">etc.</a>
</ul>
</div>
</ul>
</div>
@@
-75,9
+79,9
@@
if (open my $log, '-|', git => 'log', -1, @format) {{
<li><a href="/perl">perl versions</a>
<li><a href="/apl">apl symbols</a>
<li><a href="/termcol">terminal colours</a>
<li><a href="/perl">perl versions</a>
<li><a href="/apl">apl symbols</a>
<li><a href="/termcol">terminal colours</a>
-<li><a href="/sc/2">starcraft 2 units</a>
- (<a href="/sc" title="StarCraft: Brood War">bw</a>)
+<li><a href="/sc/lotv">starcraft units</a>
<li><a href="/emoji">emoticons</a>
<li><a href="/emoji">emoticons</a>
+<li><a href="/dieren">dieren (Dutch animals)</a>
</ul>
</div>
</nav>
</ul>
</div>
</nav>