git.plutz.net Git - webpoll/blob - widgets.sh

   1 #!/bin/sh
   2
   3 checked(){
   4   if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
   5     printf 'checked="checked"'
   6   fi 2>/dev/null
   7 }
   8 selected(){
   9   if [ "$1" = "$2" ] || [ "$1" -eq "$2" ]; then
  10     printf 'selected="selected"'
  11   fi 2>/dev/null
  12 }
  13
  14 w_month() {
  15   local month="$1" selected="$2"
  16   local dow dom days n=1 Y m d V w B
  17   if [ $month ]; then
  18     read Y m d V w B<<-EOF
  19         $(date -d "${month}-01" +"%Y %m %d %V %w %B")
  20         EOF
  21   else
  22     read Y m d V w <<-EOF
  23         $(date +"%Y %m %d %V %w")
  24         EOF
  25     month="$Y-$m"
  26     V="$((V - d / 7))"
  27     [ $V -lt 1 ] && V=$((V + 53))
  28   fi
  29
  30   case $m in
  31     0[13578]|10|12)
  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";;
  33     0[469]|11)
  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";
  41       else
  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";
  43       fi;;
  44   esac
  45
  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]]
  49           ][tbody
  50          ' "$month" "$B $Y" Mo Di Mi Do Fr Sa So
  51   for dom in $days; do
  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))
  58   done
  59   printf ']]'
  60 }