git.plutz.net Git - shellwiki/blob - macros/calendar

   1 #!/bin/sh
   2
   3 # Copyright 2024 Paul Hänsch
   4 #
   5 # Permission to use, copy, modify, and/or distribute this software for any
   6 # purpose with or without fee is hereby granted, provided that the above
   7 # copyright notice and this permission notice appear in all copies.
   8 #
   9 # THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  10 # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  11 # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
  12 # SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  13 # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  14 # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
  15 # IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  16
  17 . "$_EXEC/cgilite/cgilite.sh"
  18 . "$_EXEC/acl.sh"
  19 . "$_EXEC/tools.sh"
  20 . "$_EXEC/datetime.sh"
  21
  22 tags='' ntags='' dir='' depth='' glob_system_pages=false
  23 label='' labeltype='' altlabel='' cnt=0
  24
  25 set -- "$@" --
  26 while [ $# -gt 0 ]; do case $1 in
  27   --system) glob_system_pages=true; shift 1;;
  28   --depth)  depth="$2" shift 2;;
  29   \#*) tags="${tags}${tags:+ }${1###}"; shift 1;;
  30   \!*) ntags="${ntags}${ntags:+ }${1##!}"; shift 1;;
  31   --h1|--h2|--h3|--h4|--h5|--h6|--label)
  32     labeltype="${1#--}" label="$2"; shift 2;;
  33   --alt-label)
  34     altlabel="$2"; shift 2;;
  35   --) shift 1; break;;
  36   *) if [ ! "$dir" ]; then
  37       dir="$1"
  38       set -- "$@" "$1"; shift 1;
  39     elif [ ! "$depth" ]; then
  40       depth="$1"; shift 1;
  41     else
  42       set -- "$@" "$1"; shift 1;
  43     fi;;
  44 esac; done
  45
  46 [ "$*" ] || set -- "*"
  47 [ "$depth" -ge 0 -o "$depth" -le 0 ] 2>&- || depth=0
  48
  49 read DY DM DD <<-EOF
  50         $(date +"%Y %m %d")
  51         EOF
  52
  53 dstart="$(date -d "${DY}-${DM}-01" +%s)"
  54 [ "$DM" -lt 12 ] \
  55 && dend="$(date -d "${DY}-$(( ${DM#0} + 1))-01" +%s)" \
  56 || dend="$(date -d "$(( ${DY#0} + 1))-01-01" +%s)"
  57
  58 expand() {
  59   local start="$1" end="$2" rrfreq="$3" rrint="$4" rrend="$5" evtitle="$6" evlink="$7"
  60   local dstart dend
  61   local nstart nend
  62
  63   [ "$rrend" -eq -1 ] && rrend=9999999999
  64
  65   case $rrint in
  66     day)
  67       nend=$(( rrfreq * 86400 - (dstart - end) % (rrfreq * 86400) + dstart ))
  68       nstart=$(( start - end + nend))
  69       debug "[ $nend -lt $dend -a $nstart -lt $rrend ]"
  70       while [ "$nend" -lt "$dend" -a "$nstart" -lt "$rrend" ]; do
  71         printf '%i      %i      %s      %s\n' "$nstart" "$nend" "$evtitle" "$evlink"
  72         # printf '%i    %i      %s\n' "$nstart" "$nend" "$evlink"
  73         nstart="$((nstart + rrfreq * 86400))"
  74           nend="$((nstart - start + end))"
  75       done
  76       ;;
  77     week)
  78       nend=$(( rrfreq * 604800 - (dstart - end) % (rrfreq * 604800) + dstart ))
  79       nstart=$(( start - end + nend))
  80       while [ "$nend" -lt "$dend" -a "$nstart" -lt "$rrend" ]; do
  81         printf '%i      %i      %s      %s\n' "$nstart" "$nend" "$evtitle" "$evlink"
  82         nstart="$((nstart + rrfreq * 7 * 86400))"
  83           nend="$((nstart - start + end))"
  84       done
  85       ;;
  86     month)
  87       { read _y _m _d; read y m d; } <<-EOF
  88         $(date -d @$dstart +"%Y %_m %_d"
  89           date -d @$start  +"%Y %_m %_d"
  90         )
  91         EOF
  92       _m=$((_y * 12 + _m)) m=$((y * 12 + m))
  93       while :; do
  94         m=$(( rrfreq - ((_m - m - 1) % rrfreq + 1) + _m ))
  95         nstart="$(printf '%04i-%02i-%02i' "$(( (m - 1) / 12 ))" "$(( (m - 1) % 12 + 1 ))" "$d")"
  96         if isdate "$nstart" && [ "$(date -d "$nstart" +%s)" -ge "$dstart" ]; then
  97           break
  98         fi >/dev/null
  99         _m="$((_m + rrfreq))"
 100       done
 101       nstart="$(date -d "$nstart $start_time" +%s)"
 102         nend="$((end - start + nstart))"
 103       while [ "$nend" -lt "$dend" -a "$nstart" -lt "$rrend" ]; do
 104         printf '%i      %i      %s      %s\n' "$nstart" "$nend" "$evtitle" "$evlink"
 105         m="$((m + rrfreq))"
 106         nstart="$(printf '%04i-%02i-%02i' "$(( (m - 1) / 12 ))" "$(( (m - 1) % 12 + 1 ))" "$d")"
 107         nstart="$(date -d "$nstart $start_time" +%s)"
 108           nend="$((nstart - start + end))"
 109       done
 110       ;;
 111     year)
 112       { read _y _m _d; read y m d; } <<-EOF
 113         $(date -d @$dstart +"%Y %_m %_d"
 114           date -d @$start  +"%Y %_m %_d"
 115         )
 116         EOF
 117       while :; do
 118         y=$(( rrfreq - ((_y - y - 1) % rrfreq + 1) + _y ))
 119         nstart="$(printf '%04i-%02i-%02i' "$y" "$m" "$d")"
 120         if isdate "$nstart" && [ "$(date -d "$nstart" +%s)" -ge "$dstart" ]; then
 121           break
 122         fi >/dev/null
 123         _y="$((_y + rrfreq))"
 124       done
 125       nstart="$(date -d "$nstart $start_time" +%s)"
 126         nend="$((end - start + nstart))"
 127       while [ "$nend" -lt "$dend" -a "$nstart" -lt "$rrend" ]; do
 128         printf '%i      %i      %s      %s\n' "$nstart" "$nend" "$evtitle" "$evlink"
 129         y="$((y + rrfreq))"
 130         nstart="$(printf '%04i-%02i-%02i' "$y" "$m" "$d")"
 131         nstart="$(date -d "$nstart $start_time" +%s)"
 132           nend="$((nstart - start + end))"
 133       done
 134       ;;
 135     *):
 136       printf '%i        %i      %s      %s\n' "$start" "$end" "$evtitle" "$evlink"
 137       ;;
 138   esac
 139 }
 140
 141 events="$(
 142   for dir in "$@"; do
 143     page_glob "$dir" "$depth"
 144   done \
 145   | sort -u \
 146   | while read -r page; do
 147     pagedir="$(page_abs "$page")"
 148     if [ -f "$_DATA/pages/${pagedir}/#events" ] \
 149        && acl_read "$pagedir" \
 150        && has_tags "$pagedir" $tags \
 151        && ! has_tag "$pagedir" $ntags
 152     then
 153       cat "$_DATA/pages/${pagedir}/#events"
 154     fi
 155   done \
 156   | while read -r junk1 tstart tend rrfreq rrint rrend evtitle evlink junk2; do
 157     if [ "$tend" -gt "$dstart" -a "$tstart" -lt "$dend" ] \
 158        || [ "$rrend" -gt "$dstart" -o "$rrend" -eq -1 ]; then
 159       expand "$tstart" "$tend" "$rrfreq" "$rrint" "$rrend" "$evtitle" "$evlink"
 160     fi
 161   done \
 162   | debug \
 163   | sort -n
 164 )"
 165
 166 lday=''
 167
 168 printf '<ul class="macro calendar">\n'
 169 printf '%s\n' "${events}" \
 170 | while read start end name link; do
 171   day="$((start / 86400))"
 172   if [ "$day" != "$lday" ]; then
 173     [ "$lday" ] && printf '</ul></li>'
 174     date -d "@$start" +'<li><label>%A, %F</label><ul class="day">'
 175     lday="$day"
 176   fi
 177   printf '<li>%s: <a href="%s">%s</a></li>' \
 178          "$(date -d "@$start" +"%T")" "$(URL "${link%%#*}")#$(URL "${link#*#}")" "$(HTML "${name}")"
 179 done
 180 printf '</ul></li></ul>'