### -*-rc-*-
### rc profile

###--------------------------------------------------------------------------
### Prompt machinery.

host = `{hostname}

if (~ $TERM linux* screen* xterm* vt100* eterm*) {
  bold = `{tput bold} unbold = `{tput sgr0}
}; if not {
  bold = '' unbold = ''
}

if (~ `{id -u} 0) {
  left = `{echo « | iconv -f utf8 -t //translit}
  right = `{echo » | iconv -f utf8 -t //translit}
}; if not {
  u = `{id -un}
  if (~ $u mdw mwooding) {
    u = '' left = '[' right = ']'
  }; if not {
    u = $u^@ left = '{' right = '}'
  }
  if (~ $__mdw_tty `{tty}) {
    left = '<' right = '>'
  }; if not {
    __mdw_tty = `{tty}
  }
}

if (~ $#SSH_CLIENT 0 && ! ~ $__mdw_sechost $host) {
  sec_l = '(' sec_r = ')'
}; if not {
  sec_l = '' sec_r = ''
}

fn prompt {
  cwd = `{pwd}
  if (~ $cwd $home $home/*) {
    cwd = `{echo $cwd | sed 's:^' ^ $home ^':~:'}
  }
  prompt = ($bold$left$sec_l$u$host$sec_r^' '^$cwd$right$unbold '')
}
prompt

###--------------------------------------------------------------------------
### Convenient aliases.

fn rootly { ~ $#* 0 && * = $SHELL; $__MDW_ROOTLY $* }
fn r { rootly $* }
fn re { rootly $EDITOR $* }
fn pstree { builtin pstree -hl }
fn e { $EDITOR $* }
fn @ { ssh $* }

fn ls {
  if (test -t 1) {
    builtin ls $LS_OPTIONS '--color=auto' $*
  }; if not {
    builtin ls $*
  }
}

fn greplike {
  grep = $1; shift
  if (test -t 1) {
    builtin $grep '--color=always' $* | mdw-pager
  }; if not {
    builtin grep $*
  }
}
fn grep { greplike grep $* }
fn egrep { greplike egrep $* }
fn fgrep { greplike fgrep $* }
fn zgrep { greplike zgrep $* }

if (~ $INSIDE_EMACS 22.*,comint) PAGER = cat

###----- That's all, folks --------------------------------------------------