4 if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
5 printf 'checked="checked"'
9 if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
10 printf 'selected="selected"'
15 local month="$1" selected="$2"
16 local dow dom days n=1 Y m d V w B
18 read Y m d V w B<<-EOF
19 $(date -d "${month}-01" +"%Y %m %d %V %w %B")
23 $(date +"%Y %m %d %V %w")
27 [ $V -lt 1 ] && V=$((V + 53))
32 days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31";;
34 days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30";;
35 02) if [ $(( Y / 400 )) = 0 ]; then
36 days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29";
37 elif [ $(( Y / 100 )) = 0 ]; then
38 days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28";
39 elif [ $(( Y / 4 )) = 0 ]; then
40 days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29";
42 days="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28";
46 printf '[table .calendar month=%s [thead
47 [tr .monthname [th colspan=8 . %s]]
48 [tr .weekday [th][th . %s][th . %s][th . %s][th . %s][th . %s][th . %s][th . %s]]
50 ' "$month" "$B $Y" Mo Di Mi Do Fr Sa So
52 dow=$(( (w - d + 35 + dom ) % 7))
53 [ $dow = 1 -o $dom = 1 ] && printf '[tr [th .weekno . %i]' $V
54 [ $dom = 1 ] && while [ $n -lt $(( ($dow + 6) % 7 + 1)) ]; do printf '[td ]'; n=$((n + 1)); done
55 printf '[td [label [input type=radio name=date value="%04i-%02i-%02i" %s] %i]]' $Y $m $dom "$(checked $dom $selected)" $dom
56 [ $dow = 0 ] && printf ']\n'
57 [ $dow = 0 ] && V=$(( V % 53 + 1))