-w_month() {
- local month="$1" selected="$2"
- local dow dom days n=1 Y m d V w B
- if [ $month ]; then
- read Y m d V w B<<-EOF
- $(date -d "${month}-01" +"%Y %m %d %V %w %B")
- EOF
- else
- read Y m d V w <<-EOF
- $(date +"%Y %m %d %V %w")
- EOF
- month="$Y-$m"
- V="$((V - d / 7))"
- [ $V -lt 1 ] && V=$((V + 53))
- fi
-
- case $m in
- 0[13578]|10|12)
- 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";;
- 0[469]|11)
- 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";;
- 02) if [ $(( Y / 400 )) = 0 ]; then
- 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";
- elif [ $(( Y / 100 )) = 0 ]; then
- 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";
- elif [ $(( Y / 4 )) = 0 ]; then
- 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";
- else
- 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";
- fi;;
- esac
-
- printf '[table .calendar month=%s [thead
- [tr .monthname [th colspan=8 . %s]]
- [tr .weekday [th][th . %s][th . %s][th . %s][th . %s][th . %s][th . %s][th . %s]]
- ][tbody
- ' "$month" "$B $Y" Mo Di Mi Do Fr Sa So
- for dom in $days; do
- dow=$(( (w - d + 35 + dom ) % 7))
- [ $dow = 1 -o $dom = 1 ] && printf '[tr [th .weekno . %i]' $V
- [ $dom = 1 ] && while [ $n -lt $(( ($dow + 6) % 7 + 1)) ]; do printf '[td ]'; n=$((n + 1)); done
- printf '[td [label [input type=radio name=date value="%04i-%02i-%02i" %s] %i]]' $Y $m $dom "$(checked $dom $selected)" $dom
- [ $dow = 0 ] && printf ']\n'
- [ $dow = 0 ] && V=$(( V % 53 + 1))
- done
- printf ']]'
-}
-