dynamically delete hlwm tags with dmenu

dmenu_hlwm_del_tags

#!/bin/bash

### License: GPL3+
#
# Author: Kyle Andrews
#
# This script enables dynamic creation of new tags in hlwm.
#
###

hc() {
    herbstclient "$@"
}

# return the first integer index of the value in the array
index_of() {
    local x="$1"
    local -n xs="${2}"
    for i in "${!xs[@]}"; do
	if [[ "${xs[$i]}" = "${x}" ]]; then
	    echo "${i}";
	    break
	fi
    done
}

print_array() {
    local -n xs="${1}"
    printf '%s\n' "${xs[@]}"    
}

eval $(hc tag_status | txr -B -c '	@(coll)@{status /[#:.]/}@{tag /[^\t]+/}@(end)')

fidx=$(index_of '#' status)
focused=${tag[$fidx]}

del=$(print_array tag | dmenu -i -p "delete tag:")
Mod=Mod4
idx=$(index_of "$del" tag)
len=${#tag[@]}
keys=({1..9} 0)
if [[ ! -z $idx ]];
then
    if [[ $len -gt 1 ]];
    then
	ntag=("${tag[@]}");
	nlen=${#ntag[@]}
	unset ntag[$idx]
	hc merge_tag "${tag[$idx]}" "${ntag[0]}"

	# unset existing keybindings
	for i in ${!tag[@]} ; do
	      key="${keys[$i]}"
	      hc keyunbind "$Mod-$key"
	      hc keyunbind "$Mod-Shift-$key"
	done

	# update keybindings to reflect new tags
	for i in ${!ntag[@]} ; do
	      key="${keys[$i]}"
	      hc keybind "$Mod-$key" use_index "$i"
	      hc keybind "$Mod-Shift-$key" use_index "$i"
	done
    fi
fi