#!/bin/bash

function find-appropriate-file() {
    local files=( $1 )
    echo $(basename "${files[0]}")
}

readonly SCRIPT=$(dirname $(readlink -f "$0"))
export ROOT=${ROOT:-$(readlink -f "$SCRIPT/../../")/}

readonly EMACSVER=$(find-appropriate-file "$ROOT/emacs/share/emacs/*.*")
readonly EMACSLIBEXEC=$(find-appropriate-file "$ROOT/emacs/lin/libexec/emacs/$EMACSVER/*")

export EMACSDATA=$ROOT/emacs/share/emacs/$EMACSVER/etc/
export EMACSDOC=$ROOT/emacs/share/emacs/$EMACSVER/etc/
export EMACSLOADPATH=$ROOT/emacs/share/emacs/$EMACSVER/site-lisp:\
$ROOT/emacs/share/emacs/site-lisp:\
$ROOT/emacs/share/emacs/$EMACSVER/site-lisp:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/calc:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/calendar:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/cedet:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/emacs-lisp:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/emulation:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/erc:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/eshell:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/gnus:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/international:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/language:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/mail:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/mh-e:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/net:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/nxml:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/obsolete:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/org:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/play:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/progmodes:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/term:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/textmodes:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/url:\
$ROOT/emacs/share/emacs/$EMACSVER/lisp/vc:\
$ROOT/config

unset GTK_MODULES
unset GTK2_MODULES
unset GTK3_MODULES
export PATH=$ROOT/lin/libexec/emacs/$EMACSVER/$EMACSLIBEXEC:$PATH
export LD_LIBRARY_PATH=$ROOT/usr/lin/lib/:$LD_LIBRARY_PATH

## We do /not/ want ld-wrap.so here as processes launched by emacs
## likely have to use other libraries outside of our control and
## thus should not be confined to our ld wrapping.
"$ROOT/usr/lin/lib/ld-linux.so" --library-path "$ROOT/usr/lin/lib/" "$SCRIPT/bin/emacs" --name Portacle -T Portacle -q -l "$ROOT/config/emacs-init.el" "$@"