iankelling.org Git - distro-setup/blob - obs-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 if pgrep mpv; then
  30   pkill mpv
  31   exit 0
  32 fi
  33
  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     clip=$(find . -type f -printf '%f\n' | \
  45              { if [[ -e /tmp/last-$type ]]; then
  46                  sed "/^$(cat /tmp/last-$type)\$/d"
  47                else
  48                  cat
  49                fi ; } | \
  50                  shuf | head -n1)
  51     echo $clip >/tmp/last-$type
  52     ;;
  53 esac
  54
  55 found=false
  56
  57 p=$(cat /p/obs-ws-pass)
  58 # note, if the desktop audio is already on, this will do the wrong thing.
  59 # obs-cmd needs more commands. But, I don't use desktop audio for anything
  60 # else atm.
  61 if pgrep '^obs$' &>/dev/null; then
  62   # this is so the script keeps working when obs is not running, but
  63   # also doesn't ignore errors.
  64   found=true
  65   obs-cmd -w obsws://localhost:4455/$p toggle-mute 'Desktop Audio'
  66 fi
  67 mpv --profile=a $clip ||:
  68
  69 if $found; then
  70   obs-cmd -w obsws://localhost:4455/$p toggle-mute 'Desktop Audio'
  71 fi