/etc/zsh/zshrc: check for present directory inside dirstack code before switching...
[grml-etc-core.git] / etc / zsh / zshrc
index 116d35a..6b71d16 100644 (file)
@@ -3,7 +3,7 @@
 # Authors:       grml-team (grml.org), (c) Michael Prokop <mika@grml.org>
 # Bug-Reports:   see http://grml.org/bugs/
 # License:       This file is licensed under the GPL v2.
-# Latest change: Fre Jän 05 00:00:23 CET 2007 [mika]
+# Latest change: Mit Mai 23 10:22:10 CEST 2007 [mika]
 ################################################################################
 # This file is sourced only for interactive shells. It
 # should contain commands to set up aliases, functions,
 # Global Order: zshenv, zprofile, zshrc, zlogin
 ################################################################################
 
+# zsh profiling {{{
+# just execute 'ZSH_PROFILE_RC=1 zsh' and run 'zprof' to get the details
+  if [[ -n $ZSH_PROFILE_RC ]] ; then
+     zmodload zsh/zprof
+  fi
+# }}}
+
 # {{{ check for version/system
 # check for versions (compatibility reasons)
   if autoload is-at-least && is-at-least 2>/dev/null ; then
@@ -51,6 +58,7 @@
   isutfenv() {
     case "$LANG $CHARSET $LANGUAGE" in
       *utf*) return 0 ;;
+      *UTF*) return 0 ;;
       *)     return 1 ;;
     esac
   }
 # check for user, if not running as root set $SUDO to sudo
  (( EUID != 0 )) && SUDO='sudo' || SUDO=''
 
+  function salias() {
+    # creates an alias and precedes the command with
+    # sudo if $EUID is not zero.
+    local only=0 ; local multi=0
+    while [[ ${1} == -* ]] ; do
+      case ${1} in
+        (-o) only=1 ;;
+        (-a) multi=1 ;;
+        (--) shift ; break ;;
+        (-h)
+          printf 'usage: salias [-h|-o|-a] <alias-expression>\n'
+          printf '  -h      shows this help text.\n'
+          printf '  -a      replace '\'' ; '\'' sequences with '\'' ; sudo '\''.\n'
+          printf '          be careful using this option.\n'
+          printf '  -o      only sets an alias if a preceding sudo would be needed.\n'
+          return 0
+          ;;
+        (*) printf "unkown option: '%s'\n" "${1}" ; return 1 ;;
+      esac
+      shift
+    done
+    if (( ${#argv} > 1 )) ; then
+      printf 'Too many arguments %s\n' "${#argv}"
+      return 1
+    fi
+    key="${1%%\=*}" ;  val="${1#*\=}"
+    if (( EUID == 0 )) && (( only == 0 )); then
+      alias -- "${key}=${val}"
+    elif (( EUID > 0 )) ; then
+      (( multi > 0 )) && val="${val// ; / ; sudo }"
+      alias -- "${key}=sudo ${val}"
+    fi
+    return 0
+  }
+
 # change directory to home on first invocation of zsh
 # important for rungetty -> autologin
 # Thanks go to Bart Schaefer!
 # {{{ set some variables
   export EDITOR=${EDITOR:-vim}
   export MAIL=${MAIL:-/var/mail/$USER}
+  # if we don't set $SHELL then aterm, rxvt,.. will use /bin/sh or /bin/bash :-/
+  export SHELL='/bin/zsh'
   [[ -f ~/.terminfo/m/mostlike ]] && MYLESS='LESS=C TERMINFO=~/.terminfo TERM=mostlike less' || MYLESS='less'
   [[ -x /usr/bin/dircolors ]] && eval `dircolors -b`
 
 # Search path for the cd comman
 #  cdpath=(.. ~)
 
-# Support our own site-functions
-  [ -d /etc/zsh/site-functions ] && FPATH=/etc/zsh/site-functions:$FPATH
+# completion functions go to /etc/zsh/completion.d
+# function files may be put into /etc/zsh/functions.d, from where they
+# will be automatically autoloaded.
+  [[ -d /etc/zsh/completion.d ]] && fpath+=( /etc/zsh/completion.d )
+  if [[ -d /etc/zsh/functions.d ]] ; then
+    fpath+=( /etc/zsh/functions.d )
+    for func in /etc/zsh/functions.d/[^_]*[^~] ; do
+      autoload -U ${func:t}
+    done
+  fi
 
 # automatically remove duplicates from these arrays
   typeset -U path cdpath fpath manpath
@@ -129,6 +182,24 @@ fi
   bindkey '\e[8~' end-of-line             # end
 #fi
 
+# insert unicode character
+# usage example: 'ctrl-x i' 00A7 'ctrl-x i' will give you an §
+# See for example http://unicode.org/charts/ for unicode characters code
+  autoload insert-unicode-char
+  zle -N insert-unicode-char
+  bindkey '^Xi' insert-unicode-char
+
+# just type 'cd ...' to get 'cd ../..'
+#  rationalise-dot() {
+#  if [[ $LBUFFER = *.. ]]; then
+#    LBUFFER+=/..
+#  else
+#    LBUFFER+=.
+#  fi
+#  }
+#  zle -N rationalise-dot
+#  bindkey . rationalise-dot
+
 #  bindkey '\eq' push-line-or-edit
 # }}}
 
@@ -146,18 +217,18 @@ fi
    '...' '../..'
    '....' '../../..'
    'BG' '& exit'
-   'C' '|wc -l'
+   'C' '| wc -l'
    'G' '|& grep --color=auto'
-   'H' '|head'
+   'H' '| head'
    'Hl' ' --help |& less -r'
-   'L' '|less'
+   'L' '| less'
    'LL' '|& less -r'
-   'M' '|most'
+   'M' '| most'
    'N' '&>/dev/null'
    'R' '| tr A-z N-za-m'
    'SL' '| sort | less'
    'S' '| sort -u'
-   'T' '|tail'
+   'T' '| tail'
    'V' '|& vim -'
    'hide' "echo -en '\033]50;nil2\007'"
    'tiny' 'echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-80-*-*-c-*-iso8859-15\007"'
@@ -199,6 +270,7 @@ fi
    'fbmplayer' 'mplayer -vo -fs -zoom fbdev'
    'fblinks' 'links2 -driver fb'
    'insecssh' 'ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
+   'insecscp' 'scp -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
    'fori' 'for i ({..}) { }'
    'cx' 'chmod +x'
    'e'  'print -l'
@@ -227,13 +299,13 @@ fi
   autoload history-search-end
 
   # we don't want to quote/espace URLs on our own...
-  # avoid 'url-quote-magic: function definition file not found' on some older boxes
-  if [ -f "/usr/share/zsh/$ZSH_VERSION/functions/Zle/url-quote-magic" ] && \
-     autoload -U url-quote-magic && zle -N self-insert url-quote-magic ; then
-     zle -N self-insert url-quote-magic
-  else
-     print 'Notice: no url-quote-magic available :('
-  fi
+  # if autoload -U url-quote-magic ; then
+  #    zle -N self-insert url-quote-magic
+  #    zstyle ':url-quote-magic:*' url-metas '*?[]^()~#{}='
+  # else
+  #    print 'Notice: no url-quote-magic available :('
+  # fi
+  alias url-quote='autoload -U url-quote-magic ; zle -N self-insert url-quote-magic'
 
   alias run-help >&/dev/null && unalias run-help
   autoload run-help # use via 'esc-h'
@@ -256,7 +328,7 @@ fi
 # autoload zsh modules when they are referenced
   is4 && for opt mod in a  stat    \
                         a  zpty    \
-                        a  zprof   \
+                        ap zprof   \
                         ap mapfile ; do
              zmodload -${opt} zsh/${mod} ${mod}
          done ; unset opt mod
@@ -314,8 +386,7 @@ fi
 # }}}
 
 # {{{ set some important options
-  # umask 022
-  umask 002
+  (( EUID != 0 )) && umask 002 || umask 022
 
 # history:
   setopt append_history       # append history list to the history file (important for multiple parallel zsh sessions!)
@@ -377,7 +448,7 @@ fi
   if [[ -f ~/.zdirs ]] && [[ ${#dirstack[*]} -eq 0 ]]; then
      dirstack=( ${(uf)"$(< ~/.zdirs)"} )
      # "cd -" won't work after login by just setting $OLDPWD, so
-     cd $dirstack[0] && cd $OLDPWD
+     [[ -d $dirstack[0] ]] && cd $dirstack[0] && cd $OLDPWD
   fi
   chpwd() {
     builtin dirs -pl >! ~/.zdirs
@@ -386,7 +457,7 @@ fi
 
 # {{{ display battery status on right side of prompt via running 'BATTERY=1 zsh'
   if [ -n "$BATTERY" ] ; then
-     if [ -x =acpi ] ; then
+     if [ -x $(which acpi) ] ; then
         PERCENT="${(C)${(s| |)$(acpi 2>/dev/null)}[4]}"
         [ -z "$PERCENT" ] && PERCENT='acpi not present'
         if [ "${PERCENT%%%}" -lt 20 ] ; then
@@ -397,7 +468,7 @@ fi
 # }}}
 
 # {{{ set prompt
-  if [ -f "/usr/share/zsh/$ZSH_VERSION/functions/Prompts/promptinit" ] && autoload promptinit && promptinit 2>/dev/null ; then
+  if autoload promptinit && promptinit 2>/dev/null ; then
      promptinit # people should be able to use their favourite prompt
   else
      print 'Notice: no promptinit available :('
@@ -408,17 +479,25 @@ fi
 
   # precmd () { setopt promptsubst; [[ -o interactive ]] && jobs -l;
 
+  # make sure to use right prompt only when not running a command
+  is4 && setopt transient_rprompt
+
   is4 && [[ -z $NOPRECMD ]] && precmd () {
       [[ -n $NOPRECMD ]] && return 0
+      # allow manual overwriting of RPROMPT
+      if [[ -n $RPROMPT ]] ; then
+         [[ $TERM == screen* ]] && echo -n $'\ekzsh\e\\'
+         return 0
+      fi
       # just use DONTSETRPROMPT=1 to be able to overwrite RPROMPT
-      if [[ -z ${DONTSETRPROMPT} ]] ; then
-        if [ -n "$BATTERY" ] ; then
-          # RPROMPT="%(?..:()% ${PERCENT}${SCREENTITLE}"
-          RPROMPT="${PERCENT}${SCREENTITLE}"
-        else
-          # RPROMPT="%(?..:()% ${SCREENTITLE}"
-          RPROMPT="${SCREENTITLE}"
-        fi
+      if [[ -z $DONTSETRPROMPT ]] ; then
+         if [[ -n $BATTERY ]] ; then
+            RPROMPT="%(?..:()% ${PERCENT}${SCREENTITLE}"
+            # RPROMPT="${PERCENT}${SCREENTITLE}"
+         else
+            RPROMPT="%(?..:()% ${SCREENTITLE}"
+            # RPROMPT="${SCREENTITLE}"
+         fi
       fi
       # adjust title of xterm
       # see http://www.faqs.org/docs/Linux-mini/Xterm-Title.html
@@ -441,15 +520,15 @@ fi
   # get the name of the program currently running and hostname of local machine
   # set screen window title if running in a screen
       if [[ "$TERM" == screen* ]]; then
-          # local CMD=${1[(wr)^(*=*|sudo|ssh|-*)]}       # dont't use hostname
-          local CMD="${1[(wr)^(*=*|sudo|ssh|-*)]}$NAME" # use hostname
-          echo -ne "\ek$CMD\e\\"
+         # local CMD=${1[(wr)^(*=*|sudo|ssh|-*)]}       # dont't use hostname
+         local CMD="${1[(wr)^(*=*|sudo|ssh|-*)]}$NAME" # use hostname
+         echo -ne "\ek$CMD\e\\"
       fi
   # set the screen title to "zsh" when sitting at the command prompt:
       if [[ "$TERM" == screen* ]]; then
-           SCREENTITLE=$'%{\ekzsh\e\\%}'
+         SCREENTITLE=$'%{\ekzsh\e\\%}'
       else
-           SCREENTITLE=''
+         SCREENTITLE=''
       fi
   # adjust title of xterm
       case $TERM in (xterm*|rxvt)
@@ -487,11 +566,11 @@ fi
 
   # don't use colors on dumb terminals (like emacs):
   if [[ "$TERM" == dumb ]] ; then
-    PROMPT="${EXITCODE}${debian_chroot:+($debian_chroot)}%n@%m %40<...<%B%~%b%<< %# "
+     PROMPT="${EXITCODE}${debian_chroot:+($debian_chroot)}%n@%m %40<...<%B%~%b%<< %# "
   else
     # only if $GRMLPROMPT is set (e.g. via 'GRMLPROMPT=1 zsh') use the extended prompt
     # set variable identifying the chroot you work in (used in the prompt below)
-    if [[ -n "$GRMLPROMPT" ]]; then
+    if [[ -n $GRMLPROMPT ]]; then
       PROMPT="${RED}${EXITCODE}${CYAN}[%j running job(s)] ${GREEN}{history#%!} ${RED}%(3L.+.) ${BLUE}%* %D
 ${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< %# "
     else
@@ -544,6 +623,9 @@ ${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< %# "
      alias l='ls -lF'
   fi
 
+  alias mdstat='cat /proc/mdstat'
+  alias ...='cd ../../'
+
   alias cp='nocorrect cp'         # no spelling correction on cp
   alias mkdir='nocorrect mkdir'   # no spelling correction on mkdir
   alias mv='nocorrect mv'         # no spelling correction on mv
@@ -552,12 +634,41 @@ ${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< %# "
   alias rd='rmdir'
   alias md='mkdir'
 
-  alias swspeak="setopt singlelinezle ; unsetopt prompt_cr ; export PS1='%m%# ' ; speechd-up" # set up software synth.
+  # see http://www.cl.cam.ac.uk/~mgk25/unicode.html#term for details
+  alias term2iso="echo 'Setting terminal to iso mode' ; echo -e '\e%@'"
+  alias term2utf="echo 'Setting terminal to utf-8 mode'; echo -e '\e%G'"
+
+  alias utf2iso='if isutfenv ; then
+   for ENV in `env | grep UTF` ; do
+       eval export "$(echo $ENV | sed 's/UTF-8/iso885915/')"
+   done
+   fi'
+  alias iso2utf='if isutfenv ; then
+   for ENV in `env | grep '\.iso'` ; do
+       eval export "$(echo $ENV | sed 's/iso.*/UTF-8/')"
+   done
+   fi'
+
+# set up software synthesizer via speakup
+  alias swspeak='
+    aumix -w 90 -v 90 -p 90 -m 90
+    if ! [ -r /dev/softsynth ] ; then
+       flite -o play -t "Sorry, software synthesizer not available. Did you boot with swspeak bootoption?"
+       return 1
+    else
+       setopt singlelinezle
+       unsetopt prompt_cr
+       export PS1="%m%# "
+       nice -n -20 speechd-up
+       sleep 2
+       flite -o play -t "Finished setting up software synthesizer"
+    fi
+  '
 
   # I like clean prompt, so provide simple way to get that
   alias 0 &>/dev/null || functions 0 &>/dev/null || alias 0='return 0'
 
-# truecrypt; use e.g. via 'truec /dev/ice' /mnt/ice' or 'truec -i'
+# truecrypt; use e.g. via 'truec /dev/ice /mnt/ice' or 'truec -i'
   if [ -x /usr/sbin/truecrypt ] ; then
      if isutfenv ; then
         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077,utf8" '
@@ -620,10 +731,12 @@ Enjoy your grml system with the zsh!$reset_color"
     alias acs='apt-cache search'
     alias acsh='apt-cache show'
     alias acp='apt-cache policy'
-    alias adg="$SUDO apt-get dist-upgrade"
-    alias agi="$SUDO apt-get install"
-    alias ag="$SUDO apt-get upgrade"
-    alias au="$SUDO apt-get update"
+    salias adg="apt-get dist-upgrade"
+    salias agi="apt-get install"
+    salias ati="aptitude install"
+    salias ag="apt-get upgrade"
+    salias au="apt-get update"
+    salias -a up="aptitude update ; aptitude upgrade"
     alias dbp='dpkg-buildpackage'
     alias ge='grep-excuses'
 
@@ -650,9 +763,15 @@ Enjoy your grml system with the zsh!$reset_color"
     alias zshskel="source /etc/skel/.zshrc" # source skeleton zshrc
   fi
 
+# sort installed Debian-packages by size
+  if [ -x /usr/bin/grep-status ] ; then
+     alias debs-by-size='grep-status -FStatus -sInstalled-Size,Package \
+                -n "install ok installed" | paste -sd "  \n" | sort -rn'
+  fi
+
 # if cdrecord is a symlink (to wodim) or isn't present at all warn:
-  if [ -L /usr/bin/cdrecord -o ! -x =cdrecord ] ; then
-     if [ -x =wodim ] ; then
+  if [ -L /usr/bin/cdrecord -o ! -x $(which cdrecord) ] ; then
+     if [ -x $(which wodim) ] ; then
         alias cdrecord="echo 'cdrecord is not provided under its original name by Debian anymore.
 See #377109 in the BTS of Debian for more details.
 
@@ -660,6 +779,14 @@ Please use the wodim binary instead' ; return 1"
      fi
   fi
 
+# get_tw_cli has been renamed into get_3ware
+  if [ -x /usr/bin/get_3ware ] ; then
+     get_tw_cli() {
+       echo 'Warning: get_tw_cli has been renamed into get_3ware. Invoking get_3ware for you.'>&2
+       get_3ware
+     }
+  fi
+
 # I hate lacking backward compability, so provide an alternative therefore
   if ! [ -x /usr/sbin/apache2-ssl-certificate ] ; then
    function apache2-ssl-certificate(){
@@ -690,12 +817,6 @@ Run "grml-tips ssl-certificate" if you need further instructions.
 
 # {{{ completion stuff
 
-# Where to look for autoloaded function definitions
-  if [ -d /etc/zsh/completion.d ] ; then
-    local comp=/etc/zsh/completion.d
-    for func in $comp/*(N-.:t); . ${comp}/${func}
-  fi
-
 # called later (via is4 && grmlcomp)
 # notice: use 'zstyle' for getting current settings
 #         press ^Xh (control-x h) for getting tags in context; ^X? (control-x ?) to run complete_debug with trace output
@@ -746,20 +867,20 @@ grmlcomp() {
     }
 # some people don't like the automatic correction - so run 'NOCOR=1 zsh' to deactivate it
   if [[ -n "$NOCOR" ]] ; then
-    zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete
+    zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete _files
     setopt nocorrect # do not try to correct the spelling if possible
   else
-#    zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete _correct _approximate
+#    zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete _correct _approximate _files
     setopt correct  # try to correct the spelling if possible
     zstyle -e ':completion:*' completer '
         if [[ $_last_try != "$HISTNO$BUFFER$CURSOR" ]]; then
           _last_try="$HISTNO$BUFFER$CURSOR"
-          reply=(_complete _match _prefix)
+          reply=(_complete _match _prefix _files)
         else
           if [[ $words[1] = (rm|mv) ]]; then
-            reply=(_complete)
+            reply=(_complete _files)
           else
-            reply=(_oldlist _expand _force_rehash _complete _correct _approximate)
+            reply=(_oldlist _expand _force_rehash _complete _correct _approximate _files)
           fi
         fi'
   fi
@@ -784,7 +905,7 @@ grmlcomp() {
   [ -d $ZSHDIR/cache ] && zstyle ':completion:*' use-cache yes && \
                           zstyle ':completion::complete:*' cache-path $ZSHDIR/cache/
 
-# host completion
+# host completion /* add brackets as vim can't parse zsh's complex cmdlines 8-) {{{ */
   if is42 ; then
     [ -r ~/.ssh/known_hosts ] && _ssh_hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[\|]*}%%\ *}%%,*}) || _ssh_hosts=()
     [ -r /etc/hosts ] && : ${(A)_etc_hosts:=${(s: :)${(ps:\t:)${${(f)~~"$(</etc/hosts)"}%%\#*}##[:blank:]#[^[:blank:]]#}}} || _etc_hosts=()
@@ -866,6 +987,10 @@ If you want to use xinit anyway please call \"/usr/bin/xinit\"."
   if [ -x /usr/sbin/rebuildfstab ] ; then
      alias grml-rebuildfstab='rebuildfstab -v -r -config'
   fi
+
+  if [ -x /usr/sbin/grml-debootstrap ] ; then
+     alias debian2hd='print "Installing debian to harddisk is possible via using grml-debootstrap." ; return 1'
+  fi
 }
 # }}}
 
@@ -910,42 +1035,62 @@ If you want to use xinit anyway please call \"/usr/bin/xinit\"."
   }
   compdef _functions reload freload
 
+  # list symlinks in detail (more detailed version of 'readlink -f' and 'whence -s')
+  sll() {
+    [ -z "$1" ] && printf 'Usage: %s <file(s)>\n' "$0" && return 1
+    for i in "$@" ; do
+      file=$i
+      while [ -h "$file" ] ; do
+        ls -l $file
+        file=$(readlink "$file")
+      done
+    done
+  }
+
   # fast manual access
   if type -p qma &>/dev/null ; then
      manzsh()  { qma zshall "$1" }
+     compdef _man qma
   else
      manzsh()  { /usr/bin/man zshall |  vim -c "se ft=man| se hlsearch" +/"$1" - ; }
      # manzsh()  { /usr/bin/man zshall |  most +/"$1" ; }
      # manzsh()  { man zshall | $MYLESS -p $1 ; }
   fi
 
-# use "dchange <package-name>" to view Debian's changelog of the package:
-  dchange() {
-    if [ -r /usr/share/doc/${1}/changelog.Debian.gz ] ; then
-       most /usr/share/doc/${1}/changelog.Debian.gz
-    else
-       if [ -r /usr/share/doc/${1}/changelog.gz ] ; then
-          most /usr/share/doc/${1}/changelog.gz
-       else
-          echo "No changelog for package $1 found, sorry."
-          return 1
-       fi
-    fi
-  }
-  _dchange() { _files -W /usr/share/doc -/ }
-  compdef _dchange dchange
+  if [ -x /usr/bin/most ] ; then
+  # use "dchange <package-name>" to view Debian's changelog of the package:
+    dchange() {
+      if [ -r /usr/share/doc/${1}/changelog.Debian.gz ] ; then
+         most /usr/share/doc/${1}/changelog.Debian.gz
+      else
+         if [ -r /usr/share/doc/${1}/changelog.gz ] ; then
+            most /usr/share/doc/${1}/changelog.gz
+         else
+            echo "No changelog for package $1 found, sorry."
+            return 1
+         fi
+      fi
+    }
+    _dchange() { _files -W /usr/share/doc -/ }
+    compdef _dchange dchange
 
-# use "uchange <package-name>" to view upstream's changelog of the package:
-  uchange() {
-    if [ -r /usr/share/doc/${1}/changelog.gz ] ; then
-       most /usr/share/doc/${1}/changelog.gz
-    else
-       echo "No changelog for package $1 found, sorry."
-       return 1
-    fi
+  # use "uchange <package-name>" to view upstream's changelog of the package:
+    uchange() {
+      if [ -r /usr/share/doc/${1}/changelog.gz ] ; then
+         most /usr/share/doc/${1}/changelog.gz
+      else
+         echo "No changelog for package $1 found, sorry."
+         return 1
+      fi
+    }
+    _uchange() { _files -W /usr/share/doc -/ }
+    compdef _uchange uchange
+  fi
+
+# zsh profiling
+  profile () {
+      ZSH_PROFILE_RC=1 $SHELL "$@"
   }
-  _uchange() { _files -W /usr/share/doc -/ }
-  compdef _uchange uchange
 
 # edit alias via zle:
   edalias() {
@@ -1025,6 +1170,38 @@ If you want to use xinit anyway please call \"/usr/bin/xinit\"."
   fi
   }
 
+  # After resuming from suspend, system is paging heavilly, leading to very bad interactivity.
+  # taken from $LINUX-KERNELSOURCE/Documentation/power/swsusp.txt
+  [ -r /proc/1/maps ] && deswap() {
+     print 'Reading /proc/[0-9]*/maps and sending output to /dev/null, this might take a while.'
+     cat $(sed -ne 's:.* /:/:p' /proc/[0-9]*/maps | sort -u | grep -v '^/dev/')  > /dev/null
+     print 'Finished, running "swapoff -a; swapon -a" may also be useful.'
+  }
+
+  # print hex value of a number
+  hex() {
+    [ -n "$1" ] && printf "%x\n" $1 || { print 'Usage: hex <number-to-convert>' ; return 1 }
+  }
+
+  # calculate (or eval at all ;-)) with perl => p[erl-]eval
+  # hint: also take a look at zcalc -> 'autoload zcalc' -> 'man zshmodules | less -p MATHFUNC'
+  peval() {
+    [ -n "$1" ] && CALC="$*" || print "Usage: calc [expression]"
+    perl -e "print eval($CALC),\"\n\";"
+  }
+  functions peval &>/dev/null && alias calc=peval
+
+  # brltty seems to have problems with utf8 environment and/or font Uni3-Terminus16 under
+  # certain circumstances, so work around it, no matter which environment we have
+  brltty() {
+    if [ -z "$DISPLAY" ] ; then
+       consolechars -f /usr/share/consolefonts/default8x16.psf.gz
+       command brltty "$@"
+    else
+       command brltty "$@"
+    fi
+  }
+
   # Switching shell safely and efficiently? http://www.zsh.org/mla/workers/2001/msg02410.html
   # bash() {
   #  NO_SWITCH="yes" command bash "$@"