shithub: img

ref: e596cb983af53d3a18b484302b53ce8e0f8ec58f
dir: /mkalbumindex.rc/

View raw version 
#!/bin/rc

yflag=()

while(~ $1 -*){
	switch($1){
	case -y
		yflag=1
	}
}

this=`{basename `{pwd}}
year=`{basename `{dirname `{pwd}}}

cat <<EOF
<!DOCTYPE html>
<html>
<head>
<title>$1</title>
<link rel="shortcut icon" href="montage.jpg">
<style>
body{
	background-color: black;
	text-align: center;
}
img{
	height: 96px;
}
a{
	color: white;
}
.disabled{
	color: grey;
}
</style>
</head>
<body>
EOF

fn findnext1{
	for(i in `{9 seq $2 $3 $4 | sed 's/^.$/0&/'}){
		if(test -d ../../$1/^$i){
			echo $1/$i
			exit
		}
	}
}

fn findnext{
	@{
		if(~ $#yflag 0){
			echo 0
			exit
		}

		findnext1 $1 `{echo $2 $3 | bc} $3 $4

		end=1990
		ms=12
		me=1
		if(~ $3 +1){
			end=`{date '+%Y'}
			ms=1
			me=12
		}

		for(y in `{9 seq `{echo $1 $3 | bc} $3 $end}){
			if(test -d ../../^$y)
				findnext1 $y $ms $3 $me
		}
	}
}

fn prnav{
	echo '<p>'
	prev=`{findnext $year $this -1 1}
	if(~ $#prev 0)
		echo '<span class="disabled">prev</span>'
	if not
		echo '<a href="../../'^$"prev^'/index.html">prev</a>'

	if(! ~ $#yflag 0)
		echo ' | <a href="../index.html">'^$year^'</a> | '
	if not
		echo ' | <a href="../index.html">index</a> | '

	next=`{findnext $year $this +1 12}
	if(~ $#next 0)
		echo '<span class="disabled">next</span>'
	if not
		echo '<a href="../../'^$next^'/index.html">next</a>'
	echo '</p>'
}

prnav
ls *.thumb.JPG | awk '{ printf "<a href=\"%d.html\"><img src=\"%s\"/></a>\n", NR, $0 }'
prnav

cat <<EOF
</body>
</html>
EOF