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: order index by subpage categories
[sheet.git]
/
tools
/
mksitemap
diff --git
a/tools/mksitemap
b/tools/mksitemap
index 2fd6ee085b052707fa12109fa0516055cca423c0..ce2ce873a59a33745d7fc3f6535a6282c2409a88 100755
(executable)
--- a/
tools/mksitemap
+++ b/
tools/mksitemap
@@
-2,7
+2,7
@@
use 5.014;
use warnings;
use 5.014;
use warnings;
-our $VERSION = '1.0
2
';
+our $VERSION = '1.0
3
';
use File::stat;
use Time::Piece;
use File::stat;
use Time::Piece;
@@
-10,7
+10,7
@@
use Time::Piece;
my @pages = (
[qw( index )],
[qw( vi digraphs charset browser writing sc/lotv termcol dieren )],
my @pages = (
[qw( index )],
[qw( vi digraphs charset browser writing sc/lotv termcol dieren )],
- [qw( readline latin unicode countries emoji perl )],
+ [qw( readline latin unicode countries emoji perl
keyboard/altgr
)],
[qw(
vimperator mutt nethack mplayer/mpv font codec
keyboard/altgr/windows keyboard/altgr/macos
[qw(
vimperator mutt nethack mplayer/mpv font codec
keyboard/altgr/windows keyboard/altgr/macos
@@
-18,6
+18,9
@@
my @pages = (
)],
[qw(
apl less screen digits sc/bw sc/hots termcol/legacy mplayer
)],
[qw(
apl less screen digits sc/bw sc/hots termcol/legacy mplayer
+ keyboard/altgr/macos-abc keyboard/altgr/msx keyboard/altgr/ukext
+ keyboard/altgr/eurkey keyboard/altgr/apl keyboard/altgr/spacecadet
+ keyboard/altgr/ipa
)],
[qw( chars/table/html sample source plan )],
);
)],
[qw( chars/table/html sample source plan )],
);
@@
-37,8
+40,13
@@
for my $group (@pages) {
state $prio = 1;
for my $file (@{$group}) {
(my $page = $file) =~ s/\Aindex\z//;
state $prio = 1;
for my $file (@{$group}) {
(my $page = $file) =~ s/\Aindex\z//;
- $file =~ s{/.*}{};
- $file .= '.plp';
+ if (-e "$file.eng.inc.pl") {
+ $file .= '.eng.inc.pl';
+ }
+ else {
+ $file =~ s{/.*}{};
+ $file .= '.plp';
+ }
my $stat = stat $file or do {
warn "missing file $file\n";
next;
my $stat = stat $file or do {
warn "missing file $file\n";
next;