mpvc-mpris

#!/usr/bin/env sh
#
# @file mpvc-mpris
# @description mpvc-mpris speaks MPRIS to control mplayer through key-bindings
# @author gmt4 <gmt4 at github.com> (c) Copyright 2022 GPLv2+
# @url github.com/gmt4/mpvc
# SPDX-License-Identifier: GPL-2.0-or-later
#

PROGNAME=${0##*/}
PROGVERSION="v1.6"
PROGAUTHOR=gmt4
PROGURL="https://github.com/gmt4/mpvc"

set -euf

# globals really
mpris_defaults()
{
    DBUS=$(command -v dbus-send)
    PACTL=$(command -v pactl)

    PULSE_SOCKET="/run/user/$(id -u)/pulse/native"
    if [ -z "${PULSE_SERVER:-}" ] && [ -S "$PULSE_SOCKET" ]
    then
        export PULSE_SERVER="unix:$PULSE_SOCKET"
    fi
    playerPath=org.mpris.MediaPlayer2.Player
    MPVC_MPRIS_PLAYERS=${MPVC_MPRIS_PLAYERS:-"mpv mpd vlc"}

    if [ -z "${DBUS:-}" ]; then usage "$PROGNAME: Error no dbus-send found (required)"; fi
    if [ -z "${PACTL:-}" ]; then usage "$PROGNAME: Error no pactl found (required)"; fi
}

mpris_cmd()
{
    $DBUS \
        --print-reply \
        --type=method_call \
        --dest="org.mpris.MediaPlayer2.$mpris_name" /org/mpris/MediaPlayer2 \
        "$@"
}

mpris_method(){ mpris_cmd "org.mpris.MediaPlayer2.Player.$*"; }
mpris_get(){ mpris_cmd org.freedesktop.DBus.Properties.Get string:$playerPath "$@"; }
mpris_set(){ mpris_cmd org.freedesktop.DBus.Properties.Set string:$playerPath "$@"; }

mpris_get_volume()
{
    mpris_get string:Volume | awk '/^   variant/ {print $3}'
}

mpris_set_volume()
{
    cVolume=$(mpris_get_volume)
    pVolume=$cVolume

    case "$1" in
    volmute) pVolume=$(awk "END { print ($pVolume == 0)? 0.5: 0; }" /dev/null );;
    voldown) pVolume=$(awk "END { print $cVolume - 0.02 }" /dev/null );;
    volup)   pVolume=$(awk "END { print $cVolume + 0.02 }" /dev/null );;
    volset)  pVolume=$2;;
    *)       usage;;
    esac

    mpris_set string:Volume "variant:double:$pVolume"
}

mpris_get_status()
{
    #mpris_get string:Volume | awk '/^   variant / {print $3}'
    mpris_get string:PlaybackStatus | awk '/^   variant / {print $3}'
    mpris_get string:Metadata | awk '/^ *variant +/ && ! /\[/ {gsub("^ *"$1" *"$2" ",""); print}'
}

mpris_set_shuffle()
{
    current=$(mpris_get string:Shuffle | awk '/^   variant / {print $3}')
    if [ "$current" = "true" ]; then other=false; else other=false; fi
    mpris_set string:Shuffle variant:boolean:$other
}

mpris_detect_player()
{
    name=""
    for name in $MPVC_MPRIS_PLAYERS "";
    do
        mpris_name="$name"
        if mpris_get string:PlaybackStatus >/dev/null 2>&1;
        then
            break
        fi
    done
    echo "$name"
}

usage()
{
    echo "usage: $PROGNAME [prev|next|stop] # @version $PROGVERSION (c) $PROGAUTHOR $PROGURL"
    if [ $# -gt 0 ]; then echo "$@" 1>&2; fi
    exit
}

main()
{
    mpris_defaults
    if [ $# -lt 1 ]; then usage; fi

    mpris_name=$(mpris_detect_player)
    if [ -z "${mpris_name}" ] && ! [ "$1" = "volstatus" -o "$1" = "volget" -o "$1" = "volset" -o "$1" = "volup" -o "$1" = "voldown" -o "$1" = "volon" -o "$1" = "voloff" -o "$1" = "volmute" ]; then
        usage "$PROGNAME: Error no player found that speaks MPRIS. Check that you started mpv with mpris.so in ~/.config/mpv/scripts/";
    fi

    volincr=0.1
    sink=@DEFAULT_SINK@

    cmd="$1"
    case "$cmd" in
    get)       shift; mpris_get "$@" ;;
    set)       shift; mpris_set "$@" ;;
    method)    shift; mpris_method "$@" ;;

    prev)      shift; mpris_method Previous ;;
    next)      shift; mpris_method Next ;;
    toggle)    shift; mpris_method PlayPause ;;
    stop)      shift; mpris_method Pause ;;
    seek)      shift; mpris_method Seek "int64:$1"; ;;
    status)    shift; mpris_get_status ;;
    vol)       shift; mpris_get_volume ;;
    shuffle)   shift; mpris_set_shuffle "$*" ;;
    open)      shift; mpris_method OpenUri "string:$1" ;;
    #loop)      shift; mpris_get "string:LoopStatus" ;;

    volon)     $PACTL set-sink-mute $sink off ;;
    voloff)    $PACTL set-sink-mute $sink on  ;;
    volmute)   $PACTL set-sink-mute $sink toggle || mpris_set_volume "$cmd" ;;
    voldown)   $PACTL set-sink-volume $sink -${2:-$volincr} || mpris_set_volume "$cmd" ;;
    volup)     $PACTL set-sink-volume $sink +${2:-$volincr} || mpris_set_volume "$cmd" ;;
    volset)    $PACTL set-sink-volume $sink "${2:-}" || mpris_set_volume "$cmd" "${2:-}";;
    volget)    $PACTL list sinks | awk '/^\t+Volume:/{print $5}';;
    volstatus) $PACTL list sinks | awk '/^\t+Mute:/{print "mute:"$2}';;

    *) usage "$PROGNAME: unknown command: $cmd" ;;
    esac
}

main "$@"