ref: c2fd0c205a522af67c9dc2eb44ba009f739ab6b6
dir: /mkyearidx.rc/
#!/bin/rc
this=`{basename `{pwd}}
months=(January February March April May June July August September October November December)
cat <<EOF
<!DOCTYPE html>
<html>
<head>
<title>$1</title>
<style>
body{
background-color: black;
text-align: center;
}
div>p, a{
color: white;
}
div{
float: left;
text-align: center;
padding: 0.25cm;
width: 200px;
height: 200px;
}
div.bordered{
float: none;
display: inline-block;
width: 160px;
height: 160px;
padding: 0px;
border: 1px solid white;
}
img{
width: 160px;
height: 160px;
}
.disabled{
color: grey;
}
</style>
</head>
<body>
<p>
EOF
fn findnext{
@{
for(i in `{seq `{echo $1 $2 | bc} $2 $3}){
if(test -d ../^$i){
echo $i
exit
}
}
}
}
prev=`{findnext $this -1 1990}
if(~ $#prev 0)
echo '<span class="disabled">prev</span>'
if not
echo '<a href="../'^$"prev^'/index.html">prev</a>'
echo ' | <a href="../index.html">index</a> | '
next=`{findnext $this +1 `{date '+%Y'}}
if(~ $#next 0)
echo '<span class="disabled">next</span>'
if not
echo '<a href="../'^$next^'/index.html">next</a>'
echo '</p>'
for(m in `{seq -w 1 12}){
if(test -d $m)
echo '<div><a href="'^$m^'/index.html"><img src="'^$m^'/montage.jpg"/><p>'^$months($m)^'</p></a></div>'
if not
echo '<div><div class="bordered"></div><p>'^$months($m)^'</p></div>'
}
cat <<EOF
</body>
</html>
EOF