mpane

#!/bin/ksh

# mpane [-nh] [-mloop_options] [cmd_args]

# set MpaneLines in ~/.mblaze/profile to change
# the default size of the pane we create in tmux

MBLAZE=${MBLAZE-${HOME}/.mblaze}

cfglook () {
	mhdr -h $* | envsubst
}

editor_cmd=$(cfglook Editor "$MBLAZE/profile")
[ -z "${editor_cmd}" ] && editor_cmd=${EDITOR-${VISUAL-vi}}
EDITOR=${EDITOR-$editor_cmd}

# collect varname ...
collect () {
	typeset var val
	var=$1
	shift
	for arg in $*; do
		val=$(eval '$'$var)
		if [ -z "$val" ]; then
			val=$arg
		else
			val="${val} ${arg}"
		fi
		eval $var="$val"
	done
}

horiz=
args=
opts=

for arg in $*; do
	case $arg in
		-h)	horiz=-h ;;
		-*)	collect opts ${arg} ;;
		*)	collect args ${arg} ;;
	esac
done

lines=$(cfglook MpaneLines "$MBLAZE/profile")
[ -z "$lines" ] && lines=20
tmux split-window ${horiz} -l ${lines} "env EDITOR=$EDITOR mloop ${opts} ${args}"