# You can install this as .Qrc in your home directory.

:Host = if env'HOST == MISSING => "" || env'HOST

env'PATH := "$(env'PATH):/usr/bin/X11"

:(prompter_X :n)=
  sprintf "Q%d> " n
  stderr printf "\e]2;%s [%s@%s] %s \a" "Q" env'USER Host PWD
  stderr flush

:(prompter_emacs :n)=
  stderr printf "\032/%s\n" PWD
  sprintf "Q[%s:%s]%d> " Host PWD n

:(prompter_not_X :n)=
  sprintf "Q[%s:%s]%d> " Host PWD n

:(prompter :n)=
  if (env'TERM = "xterm") => prompter_X n
  || (env'TERM = "emacs-terminal") => prompter_emacs n
  || prompter_not_X n

# Aliases

:(macro t :args@)=parse "run less -meq " args@
