From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 1 Feb 2023 14:58:01 +0000 (+0300)
Subject: Perl->zsh, anyway I use it
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=fe7515cf907df728f98986bb5fa6b841d8db6242;p=dotfiles.git

Perl->zsh, anyway I use it
---

diff --git a/mpv/bin/mp b/mpv/bin/mp
index 9f03422..bdefc0a 100755
--- a/mpv/bin/mp
+++ b/mpv/bin/mp
@@ -1,3 +1,8 @@
-#!/usr/bin/env perl
+#!/usr/bin/env zsh
 
-exec "mpv", map { s/^([A-Z][A-Z])$/--profile=$1/ ; $_ } @ARGV;
+args=()
+for arg ($@) {
+    [[ $arg =~ "^[A-Z][A-Z]$" ]] && arg="--profile=$arg"
+    args=($args $arg)
+}
+exec mpv $args