#!/hint/bash

if [[ $TERM == eterm* ]]; then
	## Primatives for interacting with Emacs ###############################

	# _emacs_run LISP
	_emacs_run() {
		emacsclient -a false -e "$*" 2>/dev/null
	}
	# _emacs_quote UNQUOTED_STRING
	_emacs_quote() {
		local str="$*"
		str="${str//\\/\\\\}" # \ -> \\
		str="${str//\"/\\\"}" # " -> \"
		str="\"${str}\""      # wrap it in quotes
		printf '%s' "$str"
	}
	# _emacs_unquote QUOTED_STRING
	_emacs_unquote() {
		local str="$*"
		if [[ $str =~ ^\"(.*)\"$ ]]; then
			str=${BASH_REMATCH[1]} # un-quote it
			str="${str//\\\\/\\}" # \\ -> \
			str="${str//\\\"/\"}" # \" -> "
		fi
		printf '%s' "$str"
	}

	## High-level tasks ####################################################

	# Set the TRAMP directory for remote hosts (shell -> emacs)
	_emacs_set_remote_dir() {
		# Because (term-handle-ansi-terminal-messages) is run
		# after each item is set, the user should be set
		# before the hostname is set, otherwise it will set
		# (default-directory) to an invalid TRAMP string.
		#
		# Because the hostname is compared to (system-name) to
		# check if it is localhost, "$(hostname -f)" may need
		# to be used instead of $HOSTNAME, if
		# $HOSTNAME/$(hostname) doesn't return a qualified
		# domain.
		local hostname=$HOSTNAME
		[[ $hostname = *.* ]] || hostname="$(hostname -f)"
		printf '\eAnSiT%s %s\n' \
		       u "$USER" \
		       c "$PWD" \
		       h "$hostname"
	}
	# Set the shell's X11 display (emacs -> shell)
	_emacs_set_shell_DISPLAY() {
		export DISPLAY=$(_emacs_unquote "$(_emacs_run "(cdr (assoc 'display (frame-parameters)))")")
		[[ $DISPLAY != nil ]] || unset DISPLAY
	}

	## Install the hooks ###################################################

	export SELECTED_EDITOR='emacsclient'
	export EDITOR=$SELECTED_EDITOR
	export VISUAL=$SELECTED_EDITOR
	export PAGER=cat
	if _emacs_run '()' >/dev/null; then
		PROMPT_COMMAND+='_emacs_set_shell_DISPLAY;'
	fi
	# Remember, the $() strips the trailing newline, so add it back in
	PS1_EXTRA+='\[$(_emacs_set_remote_dir)'$'\n\\]'
fi