minor fixes and improvements

[distro-setup] / obs-clip

diff --git a/obs-clip b/obs-clip
new file mode 100755 (executable)
index 0000000..7d075a0
--- /dev/null
+++ b/obs-clip
@@ -0,0 +1,61 @@
+#!/bin/bash
+# I, Ian Kelling, follow the GNU license recommendations at
+# https://www.gnu.org/licenses/license-recommendations.en.html. They
+# recommend that small programs, < 300 lines, be licensed under the
+# Apache License 2.0. This file contains or is part of one or more small
+# programs. If a small program grows beyond 300 lines, I plan to switch
+# its license to GPL.
+
+# Copyright 2024 Ian Kelling
+
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+
+#     http://www.apache.org/licenses/LICENSE-2.0
+
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+set -e; . /usr/local/lib/bash-bear; set +e
+
+type=$1
+
+cd /a/bin/data/clips/$type
+
+if pgrep mpv; then
+  pkill mpv
+  exit 0
+fi
+
+
+case $type in
+  up)
+    if [[ ! -s /tmp/last-up ]]; then
+      find . -type f -printf '%f\n' | shuf > /tmp/last-up
+    fi
+    clip=$(head -n1 /tmp/last-up)
+    tail -n+2 /tmp/last-up | sponge /tmp/last-up
+    ;;
+  *)
+    clip=$(find . -type f -printf '%f\n' | \
+             { if [[ -e /tmp/last-$type ]]; then
+                 sed "/^$(cat /tmp/last-$type)\$/d"
+               else
+                 cat
+               fi ; } | \
+                 shuf | head -n1)
+    echo $clip >/tmp/last-$type
+    ;;
+esac
+
+p=$(cat /p/obs-ws-pass)
+# note, if the desktop audio is already on, this will do the wrong thing.
+# obs-cmd needs more commands. But, I don't use desktop audio for anything
+# else atm.
+obs-cmd -w obsws://localhost:4455/$p toggle-mute 'Desktop Audio'
+mpv --profile=a $clip ||:
+obs-cmd -w obsws://localhost:4455/$p toggle-mute 'Desktop Audio'