shell function sending messages to sauron using dbus

sauron_msg

# -*- sh -*-
sauron () {
	local opt_f=zsh opt_S=3 action=AddMsgEvent
	local myname=${(%):-%N}
	local -a extra_args
	
	while getopts "S:f:u:" opt; do
		if [[ $opt = "?" ]]; then
			print -r -- "$myname: unrecognized option: -$OPTARG" >&2
			return 1
		fi
		eval "opt_$opt=\${OPTARG:--\$opt}"
	done
	(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))

	if [[ -n $opt_u ]] ; then
		action=AddUrlEvent
		extra_args=( "string:$opt_u" )
	fi
	
	dbus-send --session --dest="org.gnu.Emacs" \
			  --type=method_call "/org/gnu/Emacs/Sauron" \
			  "org.gnu.Emacs.Sauron.${action}" \
			  string:"$opt_f" uint32:${opt_S} string:"$*" "${extra_args[@]}"
}

sauron "$@"