iankelling.org Git - distro-setup/blob - stream-clip

   1 #!/bin/bash
   2 # I, Ian Kelling, follow the GNU license recommendations at
   3 # https://www.gnu.org/licenses/license-recommendations.en.html. They
   4 # recommend that small programs, < 300 lines, be licensed under the
   5 # Apache License 2.0. This file contains or is part of one or more small
   6 # programs. If a small program grows beyond 300 lines, I plan to switch
   7 # its license to GPL.
   8
   9 # Copyright 2024 Ian Kelling
  10
  11 # Licensed under the Apache License, Version 2.0 (the "License");
  12 # you may not use this file except in compliance with the License.
  13 # You may obtain a copy of the License at
  14
  15 #     http://www.apache.org/licenses/LICENSE-2.0
  16
  17 # Unless required by applicable law or agreed to in writing, software
  18 # distributed under the License is distributed on an "AS IS" BASIS,
  19 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  20 # See the License for the specific language governing permissions and
  21 # limitations under the License.
  22
  23 set -e; . /usr/local/lib/bash-bear; set +e
  24
  25 type=$1
  26
  27 cd /a/bin/data/clips/$type
  28
  29 pregex='^mpv --profile=a [^/]+$'
  30 if pgrep -fc "$pregex" >/dev/null; then
  31   pkill -f "$pregex"
  32   exit 0
  33 fi
  34
  35 case $type in
  36   up)
  37     if [[ ! -s /tmp/last-up ]]; then
  38       find . -type f -printf '%f\n' | shuf > /tmp/last-up
  39     fi
  40     clip=$(head -n1 /tmp/last-up)
  41     tail -n+2 /tmp/last-up | sponge /tmp/last-up
  42     ;;
  43   *)
  44     # don't listen to the very last clip, but otherwise we don't mind
  45     # recent repeats.
  46     count=$(find . -type f -printf '%f\n' | wc -l)
  47     if (( count > 1 )); then
  48       clip=$(find . -type f -printf '%f\n' | \
  49                { if [[ -e /tmp/last-$type ]]; then
  50                    sed "/^$(cat /tmp/last-$type)\$/d"
  51                  else
  52                    cat
  53                  fi ; } | \
  54                    shuf | head -n1)
  55       echo $clip >/tmp/last-$type
  56     else
  57       clip=./*
  58     fi
  59     ;;
  60 esac
  61
  62 found=false
  63
  64 # When I was using obs. Incorporate if I try it again.
  65 # unmute() {
  66 #   p=$(cat /p/obs-ws-pass)
  67 #   # note, if the desktop audio is already on, this will do the wrong thing.
  68 #   # obs-cmd needs more commands. But, I don't use desktop audio for anything
  69 #   # else atm.
  70 #   if pgrep '^obs$' &>/dev/null; then
  71 #     # this is so the script keeps working when obs is not running, but
  72 #     # also doesn't ignore errors.
  73 #     found=true
  74 #     obs-cmd -w obsws://localhost:4455/$p toggle-mute 'Desktop Audio'
  75 #   fi
  76 # }
  77 # mute() {
  78 #   if $found; then
  79 #     obs-cmd -w obsws://localhost:4455/$p toggle-mute 'Desktop Audio'
  80 #   fi
  81 # }
  82
  83
  84 # note: condition duplicated in stream-clip, myi3status
  85 if pgrep -fc '^ffmpeg.*icecast://source.*/fsf' >/dev/null; then
  86   found=true
  87   toggle-mute mute
  88   echo Parsed_volume_3 volume 1 | zmqsend -b tcp://127.0.0.1:5556
  89 fi
  90
  91 mpv --profile=a $clip ||:
  92
  93 if $found; then
  94   # I dunno if this is needed, but I think it is theoretically possible
  95   # for us to mute ffmpeg before it finishes processing the mpv
  96   # output. It would probably only need a few miliseconds, but whatever.
  97   sleep 1
  98   echo Parsed_volume_3 volume 0 | zmqsend -b tcp://127.0.0.1:5556
  99 fi