Initial commit

1 files changed, 227 insertions, 0 deletions

diff --git a/heutigeBachkantaten b/heutigeBachkantaten
new file mode 100755
index 0000000..faabb7e
--- /dev/null
+++ b/heutigeBachkantaten
@@ -0,0 +1,227 @@
+#!/bin/bash
+
+Y=$(date +%Y)
+G=$((Y%19 + 1))
+C=$((Y/100 +1))
+X=$(((3*C)/4 - 12))
+Z=$(((8*C+5)/25 - 5))
+D=$(((5*Y)/4-X-10))
+E=$(((11*G+50+Z-(X%30))%30))
+if [ ${E} -eq 25 ] && [ ${G} -gt 11 ] || [ ${E} -eq 24 ]; then
+  E=$((E+1))
+fi
+N=$((44-E))
+if [ ${N} -lt 21 ]; then
+  N=$((N+30))
+fi
+N=$((N+7-((D+N)%7)))
+Ostern=$((
+  $(date +%s -d"${Y}-03-01") + (N-1)*24*60*60
+))
+
+# $1. Sonntag nach $2
+sonntag_nach() {
+  echo $((
+    $(date +%s -d@$2) + 24*60*60*(7*$1 + 1 - $(date +%u -d@$(($2+24*60*60))))
+  ))
+}
+
+curl -Ss 'https://de.wikipedia.org/wiki/Liste_der_Bachkantaten' \
+  | sed -n '
+    \#^<h2><span class="mw-headline" id="Liste_der_Kantaten">Liste der Kantaten</span>#,\#^<h2># p
+  ' \
+  | tr -d '\n' \
+  | sed '
+    s#<th[^>]*>[^<>]*</th>##g
+    s#<span style="\(visibility:hidden;"\|display:none"\( class="sortkey"\)\?\)>[^<>]*</span>##g
+    s#<a [^>]*>##g
+    s#</a>##g
+  ' \
+  | sed '
+    s#<\(h2\|tr\|tbody\)#\n\0#g
+    s#</\(h2\|tr\|tbody\)>#\0\n#g
+  ' \
+  | grep -vxF '' \
+  | sed -n '
+    \#<th># d
+    \#<tbody>#,\#</tbody># p
+  ' \
+  | sed -n '
+    1 d
+    $ d
+    s#^.*<tr\( [^>]\+\)\?><td>\([^<>]\+\)</td><td>[^<>]\+</td><td>\([^<>]*\)</td>\(.*\)</tr>.*#\2 \3#
+    T err
+    s/^\(\S\+\) \([0-9]\+\)\( \|$\)/\1_\2\3/
+    p
+    b
+    :err
+      s/.*/passt nicht: "\0"/
+      w /dev/stderr
+  ' \
+  | sed '
+    /^\S\+ $/d
+    s/^\(\S\+ \).*(\([^()]\+\)).*$/\1real:\2/
+    t
+    s/^\(\S\+ \)\(Sonntag nach \)/\11. \2/
+    s/^\(\S\+ \)\([0-9]\+\)\. Sonntag nach \(\S\+\)$/\1\2+ \3/
+  ' \
+  | sed '
+    / Dramma per musica$/d
+    / Huldigungskantate$/d
+    / Ratswechsel$/d
+    / Trauerfeier$/d
+    / Unbekannter Anlass$/d
+    / Weltliche Kantate$/d
+  ' \
+  | while read -r bwv plus sonntag; do
+    if [ -z "${plus##*+}" ]; then
+      plus="${plus%+}"
+    else
+      if [ -z "${sonntag}" ]; then
+        sonntag="${plus}"
+      else
+        sonntag="${plus} ${sonntag}"
+      fi
+      plus=''
+    fi
+    if [ -z "${sonntag##real:*}" ]; then
+      sonntag="${sonntag#real:}"
+      tag="${sonntag%%. *}"
+      sonntag="${sonntag#*. }"
+      for monat in {01..13}; do
+        if [ ${monat} -eq 13 ]; then
+          >&2 printf 'unbekannter Monat "%s"\n' "${sonntag}"
+          exit 1
+        fi
+        if [ "$(date +%B -d"${Y}-${monat}-01")" = "${sonntag}" ]; then
+          break
+        fi
+      done
+      ausgabe=$(
+        date +%s -d"${Y}-${monat}-${tag}"
+      )
+    elif [ -z "${sonntag%%*. Adventsonntag}" ]; then
+      ausgabe=$(
+        sonntag_nach "$((${sonntag%. Adventsonntag}-4))" "$(date +%s -d"${Y}-12-24")"
+      )
+    elif [ "${sonntag}" = 'Weihnachten' ]; then
+      ausgabe=$(
+        date +%s -d"${Y}-12-24"
+      )
+    elif [ -z "${sonntag%?. Weihnachtstag}" ]; then
+      ausgabe=$((
+        $(date +%s -d"${Y}-12-24") + ${sonntag%. Weihnachtstag}*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Neujahr' ]; then
+      ausgabe=$(
+        date +%s -d"${Y}-01-01"
+      )
+    elif [ "${sonntag}" = 'Epiphanias' ]; then
+      ausgabe=$(
+        date +%s -d"${Y}-01-06"
+      )
+    elif [ "${sonntag}" = 'Septuagesimae' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*9*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Sexagesimae' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*8*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Estomihi' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*7*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Invocabit' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*6*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Reminiscere' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*5*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Oculi' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*4*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Laetare' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*3*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Judica' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*2*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Palmsonntag' ]; then
+      ausgabe=$((
+        "${Ostern}" - 7*24*60*60
+      ))
+    elif [ -z "${sonntag%?. Osterfesttag}" ]; then
+      ausgabe=$((
+        Ostern + (${sonntag%. Osterfesttag}-1)*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Quasimodogeniti' ]; then
+      ausgabe=$((
+        "${Ostern}" + 7*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Misericordias Domini' ]; then
+      ausgabe=$((
+        "${Ostern}" + 7*2*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Jubilate' ]; then
+      ausgabe=$((
+        "${Ostern}" + 7*3*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Cantate' ]; then
+      ausgabe=$((
+        "${Ostern}" + 7*4*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Rogate' ]; then
+      ausgabe=$((
+        "${Ostern}" + 7*5*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Christi Himmelfahrt' ]; then
+      ausgabe=$((
+        "${Ostern}" + (7*6-3)*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Exaudi' ]; then
+      ausgabe=$((
+        "${Ostern}" + 7*6*24*60*60
+      ))
+    elif [ -z "${sonntag%?. Pfingstfesttag}" ]; then
+      ausgabe=$((
+        Ostern + (${sonntag%. Pfingstfesttag}-1 + 7*7)*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Trinitatis' ]; then
+      ausgabe=$((
+        "${Ostern}" + 7*8*24*60*60
+      ))
+    elif [ "${sonntag}" = 'Gratulationskantate' ] || \
+      [ "${sonntag}" = 'Geburtstagskantate' ]; then
+      ausgabe=$(
+        date +%s -d"${Y}-07-25"
+      )
+    elif [ "${sonntag}" = 'Hochzeit' ] || \
+      [ "${sonntag}" = 'Trauung' ]; then
+      ausgabe=$(
+        date +%s -d"${Y}-09-15"
+      )
+    else
+      >&2 printf '%s >>%s<<\n' "${bwv}" "${sonntag}"
+      continue
+    fi
+    if [ -n "${plus}" ]; then
+      ausgabe=$(
+        sonntag_nach "${plus}" "${ausgabe}"
+      )
+    fi
+    printf '%s %s\n' \
+      "${bwv}" \
+      "$(date +%F -d@"${ausgabe}")"
+  done \
+  | grep " $(date +%F)$" \
+  | cut -d' ' -f1 \
+  | tr '\n' ' ' \
+  | sed '
+    s/ $/\n/
+  '