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

   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 cd /a/bin/data/clips/up
  25
  26 if pgrep mpv; then
  27   pkill mpv
  28   exit 0
  29 fi
  30
  31 if [[ ! -s /tmp/last-up ]]; then
  32   find . -type f -printf '%f\n' | shuf > /tmp/last-up
  33 fi
  34 clip=$(head -n1 /tmp/last-up)
  35 tail -n+2 /tmp/last-up | sponge /tmp/last-up
  36
  37 # clip=$(ls -1 . | \
  38   #          { if [[ -e /tmp/last-up ]]; then
  39 #              sed "/^$(cat /tmp/last-up)\$/d"
  40 #            else
  41 #              cat
  42 #            fi ; } | \
  43   #              shuf | head -n1)
  44 # echo $clip >/tmp/last-up
  45
  46 mpv --profile=a $clip