]> gitweb.pimeys.fr Git - config-20-100.git/commitdiff
Ajout du zshrc, même s'il manque encore de commentaires etc.
authorPierre-Elliott Bécue <becue@crans.org>
Tue, 20 Oct 2015 18:36:55 +0000 (20:36 +0200)
committerPierre-Elliott Bécue <becue@crans.org>
Tue, 20 Oct 2015 18:37:12 +0000 (20:37 +0200)
25 files changed:
.zsh/completion/README [new file with mode: 0644]
.zsh/rc/base/00_profiling [new file with mode: 0644]
.zsh/rc/base/05_early_functions [new file with mode: 0644]
.zsh/rc/base/10_options [new file with mode: 0644]
.zsh/rc/base/15_functions [new file with mode: 0644]
.zsh/rc/base/20_env [new file with mode: 0644]
.zsh/rc/base/30_completion [new file with mode: 0644]
.zsh/rc/extra/01_vcs [new file with mode: 0644]
.zsh/rc/extra/01_vcs_functions [new file with mode: 0644]
.zsh/rc/extra/02_mercurial [new file with mode: 0644]
.zsh/rc/extra/03_profiling [new file with mode: 0644]
.zsh/rc/extra/05_useful_functions [new file with mode: 0644]
.zsh/rc/extra/15_misc_functions [new file with mode: 0644]
.zsh/rc/extra/20_search_engines_tools [new file with mode: 0644]
.zsh/rc/extra/20_ssl_tools [new file with mode: 0644]
.zsh/rc/extra/30_misc [new file with mode: 0644]
.zsh/rc/extra/98_useless [new file with mode: 0644]
.zsh/rc/local/03_profiling [new file with mode: 0644]
.zsh/rc/local/20_env [new file with mode: 0644]
.zsh/rc/local/25_bindkey [new file with mode: 0644]
.zsh/rc/local/30_debian_tools [new file with mode: 0644]
.zsh/rc/local/80_aliases [new file with mode: 0644]
.zsh/rc/local/99_final_com [new file with mode: 0644]
.zsh/rc/readme [new file with mode: 0644]
.zshrc [new file with mode: 0644]

diff --git a/.zsh/completion/README b/.zsh/completion/README
new file mode 100644 (file)
index 0000000..9a5ba60
--- /dev/null
@@ -0,0 +1 @@
+Put your completion files here.
diff --git a/.zsh/rc/base/00_profiling b/.zsh/rc/base/00_profiling
new file mode 100644 (file)
index 0000000..69dda34
--- /dev/null
@@ -0,0 +1,9 @@
+#!/bin/zsh
+
+# zsh profiling {{{
+# just execute 'ZSH_PROFILE_RC=1 zsh' and run 'zprof' to get the details
+if [[ $ZSH_PROFILE_RC -gt 0 ]] ; then
+    zmodload zsh/zprof
+fi
+# }}}
+
diff --git a/.zsh/rc/base/05_early_functions b/.zsh/rc/base/05_early_functions
new file mode 100644 (file)
index 0000000..04e9a89
--- /dev/null
@@ -0,0 +1,48 @@
+# Zshrc function definitions
+
+
+# {{{ check for version/system
+# check for versions (compatibility reasons)
+is439(){
+    [[ $ZSH_VERSION == 4.3.<9->* || $ZSH_VERSION == 4.<4->* || $ZSH_VERSION == <5->* ]] && return 0
+    return 1
+}
+
+#f1# are we running within an utf environment?
+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=''
+
+# autoload wrapper - use this one instead of autoload directly
+# We need to define this function as early as this, because autoloading
+# 'is-at-least()' needs it.
+function zrcautoload() {
+    emulate -L zsh
+    setopt extended_glob
+    local fdir ffile
+    local -i ffound
+
+    ffile=$1
+    (( found = 0 ))
+    for fdir in ${fpath} ; do
+        [[ -e ${fdir}/${ffile} ]] && (( ffound = 1 ))
+    done
+
+    (( ffound == 0 )) && return 1
+    autoload -U ${ffile} || return 1
+    return 0
+}
+
+# Load is-at-least() for more precise version checks
+# Note that this test will *always* fail, if the is-at-least
+# function could not be marked for autoloading.
+zrcautoload is-at-least || is-at-least() { return 1 }
+
+# }}}
diff --git a/.zsh/rc/base/10_options b/.zsh/rc/base/10_options
new file mode 100644 (file)
index 0000000..b0b4fa8
--- /dev/null
@@ -0,0 +1,36 @@
+# {{{ set some important options (as early as possible)
+# Please update these tags, if you change the umask settings below.
+#o# r_umask     002
+#o# r_umaskstr  rwxrwxr-x
+#o# umask       022
+#o# umaskstr    rwxr-xr-x
+umask 022
+
+setopt append_history       # append history list to the history file (important for multiple parallel zsh sessions!)
+setopt SHARE_HISTORY        # import new commands from the history file also in other zsh-session
+setopt extended_history     # save each command's beginning timestamp and the duration to the history file
+#setopt histignorealldups    # If  a  new  command  line being added to the history
+                            # list duplicates an older one, the older command is removed from the list
+setopt histignorespace      # remove command lines from the history list when
+                            # the first character on the line is a space
+setopt auto_cd              # if a command is issued that can't be executed as a normal command,
+                            # and the command is the name of a directory, perform the cd command to that directory
+setopt extended_glob        # in order to use #, ~ and ^ for filename generation
+                            # grep word *~(*.gz|*.bz|*.bz2|*.zip|*.Z) ->
+                            # -> searches for word not in compressed files
+                            # don't forget to quote '^', '~' and '#'!
+setopt longlistjobs         # display PID when suspending processes as well
+setopt notify               # report the status of backgrounds jobs immediately
+setopt hash_list_all        # Whenever a command completion is attempted, make sure \
+                            # the entire command path is hashed first.
+setopt completeinword       # not just at the end
+setopt nohup                # and don't kill them, either
+setopt auto_pushd           # make cd push the old directory onto the directory stack.
+setopt nonomatch            # try to avoid the 'zsh: no matches found...'
+setopt nobeep               # avoid "beep"ing
+setopt pushd_ignore_dups    # don't push the same dir twice.
+setopt noglobdots           # * shouldn't match dotfiles. ever.
+setopt noshwordsplit        # use zsh style word splitting
+setopt unset                # don't error out when unset parameters are used
+
+# }}}
diff --git a/.zsh/rc/base/15_functions b/.zsh/rc/base/15_functions
new file mode 100644 (file)
index 0000000..98c9797
--- /dev/null
@@ -0,0 +1,167 @@
+#!/bin/zsh
+
+# utility functions {{{
+# this function checks if a command exists and returns either true
+# or false. This avoids using 'which' and 'whence', which will
+# avoid problems with aliases for which on certain weird systems. :-)
+# Usage: check_com [-c|-g] word
+#   -c  only checks for external commands
+#   -g  does the usual tests and also checks for global aliases
+check_com() {
+    emulate -L zsh
+    local -i comonly gatoo
+
+    if [[ $1 == '-c' ]] ; then
+        (( comonly = 1 ))
+        shift
+    elif [[ $1 == '-g' ]] ; then
+        (( gatoo = 1 ))
+    else
+        (( comonly = 0 ))
+        (( gatoo = 0 ))
+    fi
+
+    if (( ${#argv} != 1 )) ; then
+        printf 'usage: check_com [-cg] <command>\n' >&2
+        return 1
+    fi
+
+    if (( comonly > 0 )) ; then
+        [[ -n ${commands[$1]}  ]] && return 0
+        return 1
+    fi
+
+    if   [[ -n ${commands[$1]}    ]] \
+      || [[ -n ${functions[$1]}   ]] \
+      || [[ -n ${aliases[$1]}     ]] \
+      || [[ -n ${reswords[(r)$1]} ]] ; then
+
+        return 0
+    fi
+
+    if (( gatoo > 0 )) && [[ -n ${galiases[$1]} ]] ; then
+        return 0
+    fi
+
+    return 1
+}
+
+# creates an alias and precedes the command with
+# sudo if $EUID is not zero.
+salias() {
+    emulate -L zsh
+    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
+}
+
+# Check if we can read given files and source those we can.
+xsource() {
+    emulate -L zsh
+    if (( ${#argv} < 1 )) ; then
+        printf 'usage: xsource FILE(s)...\n' >&2
+        return 1
+    fi
+
+    while (( ${#argv} > 0 )) ; do
+        [[ -r $1 ]] && source $1
+        shift
+    done
+    return 0
+}
+
+# Check if we can read a given file and 'cat(1)' it.
+xcat() {
+    emulate -L zsh
+    if (( ${#argv} != 1 )) ; then
+        printf 'usage: xcat FILE\n' >&2
+        return 1
+    fi
+
+    [[ -r $1 ]] && cat $1
+    return 0
+}
+
+# Remove these functions again, they are of use only in these
+# setup files. This should be called at the end of .zshrc.
+xunfunction() {
+    emulate -L zsh
+    local -a funcs
+    funcs=(salias xcat xsource xunfunction zrcautoload)
+
+    for func in $funcs ; do
+        [[ -n ${functions[$func]} ]] \
+            && unfunction $func
+    done
+    return 0
+}
+
+#}}}
+
+# Handles command not fount error
+function command_not_found_handler() {
+    emulate -L zsh
+    if [[ -x /usr/share/command-not-found/command-not-found ]] ; then
+        /usr/share/command-not-found/command-not-found $1
+    fi
+    return 1
+}
+
+# Gets battery percentage.
+battery() {
+    PERCENT="${${"$(acpi 2>/dev/null)"}/(#b)[[:space:]]#Battery <->: [^0-9]##, (<->)%*/${match[1]}}"
+}
+
+# Sets color in BATTCOLOR, designed to be used with RPROMPT.
+batcolor() {
+    battery
+    if [ ! -z $PERCENT ]; then
+        if (acpi | head -n 1 | grep "Charging") 2> /dev/null 1>&2; then
+            BATTCOLOR="%F{cyan}"
+        else
+            if [ $PERCENT -gt 65 ]; then
+            BATTCOLOR="%F{green}"
+            else
+                if [ $PERCENT -gt 32 ]; then
+                    BATTCOLOR="%F{yellow}"
+                else
+                    BATTCOLOR="%F{red}"
+                fi
+            fi
+        fi
+        BATTERY="${BATTCOLOR} ${PERCENT} %%"
+    else
+        BATTERY=""
+    fi
+}
+
diff --git a/.zsh/rc/base/20_env b/.zsh/rc/base/20_env
new file mode 100644 (file)
index 0000000..6a630d7
--- /dev/null
@@ -0,0 +1,83 @@
+#x compatibility
+xsource "/etc/default/locale"
+
+for var in LANG LC_ALL LC_MESSAGES ; do
+    [[ -n ${(P)var} ]] && export $var
+done
+
+xsource "/etc/sysconfig/keyboard"
+
+#Sets timezone
+TZ=$(xcat /etc/timezone)
+
+# color setup for ls:
+check_com -c dircolors && eval $(dircolors -b)
+
+# Pager
+export PAGER=less
+
+# While in doubt.
+export SHELL='/bin/zsh'
+
+# Colors in less...
+export LESS_TERMCAP_mb=$'\E[01;31m'       # begin blinking
+export LESS_TERMCAP_md=$'\E[01;38;5;74m'  # begin bold
+export LESS_TERMCAP_me=$'\E[0m'           # end mode
+export LESS_TERMCAP_se=$'\E[0m'           # end standout-mode
+export LESS_TERMCAP_so=$'\E[38;5;246m'    # begin standout-mode - info box
+export LESS_TERMCAP_ue=$'\E[0m'           # end underline
+export LESS_TERMCAP_us=$'\E[04;38;5;146m' # begin underline
+export LESS="-SR"
+
+# does not need export
+MAILCHECK=30       # mailchecks
+REPORTTIME=5       # report about cpu-/system-/user-time of command if running longer than 5 seconds
+watch=(notme root) # watch for everyone but me and root
+
+# automatically remove duplicates from these arrays
+typeset -U path cdpath fpath manpath
+# adding personnal completion files in fpath
+fpath=(~/.zsh/completion $fpath)
+
+if [ $TERM = "rxvt-unicode-256color" ]; then
+   export TERM=rxvt-unicode
+fi
+
+#+---------------------------------------+
+#|         HISTORY                       |
+#+---------------------------------------+
+h=$(hostname --fqdn)
+
+#v#
+HISTFILE=$ZSHDIR/history-$h
+HISTSIZE=100000
+SAVEHIST=100000
+export HISTFILE HISTSIZE SAVEHIST
+
+############ MISC ##################
+# set terminal property (used e.g. by msgid-chooser)
+export COLORTERM="yes"
+
+# set default browser
+if [[ -z "$BROWSER" ]] ; then
+    if [[ -n "$DISPLAY" ]] ; then
+        #v# If X11 is running
+        check_com -c firefox && export BROWSER=firefox
+    else
+        #v# If no X11 is running
+        check_com -c w3m && export BROWSER=w3m
+    fi
+fi
+
+#m# v QTDIR \kbd{/usr/share/qt[34]}\quad [for non-root only]
+[[ -d /usr/share/qt3 ]] && export QTDIR=/usr/share/qt3
+[[ -d /usr/share/qt4 ]] && export QTDIR=/usr/share/qt4
+
+# support running 'jikes *.java && jamvm HelloWorld' OOTB:
+#v# [for non-root only]
+[[ -f /usr/share/classpath/glibj.zip ]] && export JIKESPATH=/usr/share/classpath/glibj.zip
+# }}}
+
+# umask personnal config file
+# used to set specific umask
+UMASKFILE=~/.umask
diff --git a/.zsh/rc/base/30_completion b/.zsh/rc/base/30_completion
new file mode 100644 (file)
index 0000000..881d34d
--- /dev/null
@@ -0,0 +1,193 @@
+
+# a generic accept-line wrapper {{{
+
+# This widget can prevent unwanted autocorrections from command-name
+# to _command-name, rehash automatically on enter and call any number
+# of builtin and user-defined widgets in different contexts.
+#
+# For a broader description, see:
+# <http://bewatermyfriend.org/posts/2007/12-26.11-50-38-tooltime.html>
+#
+# The code is imported from the file 'zsh/functions/accept-line' from
+# <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>, which
+# distributed under the same terms as zsh itself.
+
+# A newly added command will may not be found or will cause false
+# correction attempts, if you got auto-correction set. By setting the
+# following style, we force accept-line() to rehash, if it cannot
+# find the first word on the command line in the $command[] hash.
+zstyle ':acceptline:*' rehash true
+
+function Accept-Line() {
+    emulate -L zsh
+    local -a subs
+    local -xi aldone
+    local sub
+
+    zstyle -a ":acceptline:${alcontext}" actions subs
+
+    (( ${#subs} < 1 )) && return 0
+
+    (( aldone = 0 ))
+    for sub in ${subs} ; do
+        [[ ${sub} == 'accept-line' ]] && sub='.accept-line'
+        zle ${sub}
+
+        (( aldone > 0 )) && break
+    done
+}
+
+function Accept-Line-getdefault() {
+    emulate -L zsh
+    local default_action
+
+    zstyle -s ":acceptline:${alcontext}" default_action default_action
+    case ${default_action} in
+        ((accept-line|))
+            printf ".accept-line"
+            ;;
+        (*)
+            printf ${default_action}
+            ;;
+    esac
+}
+
+function accept-line() {
+    emulate -L zsh
+    local -a cmdline
+    local -x alcontext
+    local buf com fname format msg default_action
+
+    alcontext='default'
+    buf="${BUFFER}"
+    cmdline=(${(z)BUFFER})
+    com="${cmdline[1]}"
+    fname="_${com}"
+
+    zstyle -t ":acceptline:${alcontext}" rehash \
+        && [[ -z ${commands[$com]} ]]           \
+        && rehash
+
+    if    [[ -n ${reswords[(r)$com]} ]] \
+       || [[ -n ${aliases[$com]}     ]] \
+       || [[ -n ${functions[$com]}   ]] \
+       || [[ -n ${builtins[$com]}    ]] \
+       || [[ -n ${commands[$com]}    ]] ; then
+
+        # there is something sensible to execute, just do it.
+        alcontext='normal'
+        zle Accept-Line
+
+        default_action=$(Accept-Line-getdefault)
+        zstyle -T ":acceptline:${alcontext}" call_default \
+            && zle ${default_action}
+        return
+    fi
+
+    if    [[ -o correct              ]] \
+       || [[ -o correctall           ]] \
+       && [[ -n ${functions[$fname]} ]] ; then
+
+        # nothing there to execute but there is a function called
+        # _command_name; a completion widget. Makes no sense to
+        # call it on the commandline, but the correct{,all} options
+        # will ask for it nevertheless, so warn the user.
+        if [[ ${LASTWIDGET} == 'accept-line' ]] ; then
+            # Okay, we warned the user before, he called us again,
+            # so have it his way.
+            alcontext='force'
+            zle Accept-Line
+
+            default_action=$(Accept-Line-getdefault)
+            zstyle -T ":acceptline:${alcontext}" call_default \
+                && zle ${default_action}
+            return
+        fi
+
+        # prepare warning message for the user, configurable via zstyle.
+        zstyle -s ":acceptline:${alcontext}" compwarnfmt msg
+
+        if [[ -z ${msg} ]] ; then
+            msg="%c will not execute and completion %f exists."
+        fi
+
+        zformat -f msg "${msg}" "c:${com}" "f:${fname}"
+
+        zle -M -- "${msg}"
+        return
+    elif [[ -n ${buf//[$' \t\n']##/} ]] ; then
+        # If we are here, the commandline contains something that is not
+        # executable, which is neither subject to _command_name correction
+        # and is not empty. might be a variable assignment
+        alcontext='misc'
+        zle Accept-Line
+
+        default_action=$(Accept-Line-getdefault)
+        zstyle -T ":acceptline:${alcontext}" call_default \
+            && zle ${default_action}
+        return
+    fi
+
+    # If we got this far, the commandline only contains whitespace, or is empty.
+    alcontext='empty'
+    zle Accept-Line
+
+    default_action=$(Accept-Line-getdefault)
+    zstyle -T ":acceptline:${alcontext}" call_default \
+        && zle ${default_action}
+}
+
+zle -N accept-line
+zle -N Accept-Line
+
+# }}}
+
+# power completion - abbreviation expansion {{{
+# power completion / abbreviation expansion / buffer expansion
+# see http://zshwiki.org/home/examples/zleiab for details
+# less risky than the global aliases but powerful as well
+# just type the abbreviation key and afterwards ',.' to expand it
+declare -A abk
+setopt extendedglob
+setopt interactivecomments
+abk=(
+#   key   # value                  (#d additional doc string)
+#A# start
+    '...'  '../..'
+    '....' '../../..'
+    'BG'   '& exit'
+    'C'    '| wc -l'
+    'G'    '|& grep --color=auto '
+    'H'    '| head'
+    'Hl'   ' --help |& less -r'    #d (Display help in pager)
+    'L'    '| less'
+    'LL'   '|& less -r'
+    'M'    '| most'
+    'N'    '&>/dev/null'           #d (No Output)
+    'R'    '| tr A-z N-za-m'       #d (ROT13)
+    'SL'   '| sort | less'
+    'S'    '| sort -u'
+    'T'    '| tail'
+    'V'    '|& vim -'
+#A# end
+    'co'   './configure && make && sudo make install'
+)
+
+globalias() {
+    emulate -L zsh
+    setopt extendedglob
+    local MATCH
+
+    if (( NOABBREVIATION > 0 )) ; then
+        LBUFFER="${LBUFFER},."
+        return 0
+    fi
+
+    matched_chars='[.-|_a-zA-Z0-9]#'
+    LBUFFER=${LBUFFER%%(#m)[.-|_a-zA-Z0-9]#}
+    LBUFFER+=${abk[$MATCH]:-$MATCH}
+}
+
+zle -N globalias
+bindkey ",." globalias
+# }}}
diff --git a/.zsh/rc/extra/01_vcs b/.zsh/rc/extra/01_vcs
new file mode 100644 (file)
index 0000000..4db112b
--- /dev/null
@@ -0,0 +1,832 @@
+#!/bin/zsh
+# Fichier contenant les fonctions pour repérer les dépôts VCS
+# (git & co)
+
+# The following code is imported from the file 'zsh/functions/vcs_info'
+# from <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>,
+# which distributed under the same terms as zsh itself.
+
+# we will be using two variables, so let the code know now.
+zstyle ':vcs_info:*' max-exports 2
+zstyle ":vcs_info:init:*" "disable" "bzr" "hg" "svk" "cdv" "cvs" "mtn" "tla"
+
+# vcs_info() documentation:
+#{{{
+# REQUIREMENTS:
+#{{{
+#     This functionality requires zsh version >= 4.1.*.
+#}}}
+#
+# LOADING:
+#{{{
+# To load vcs_info(), copy this file to your $fpath[] and do:
+#   % autoload -Uz vcs_info && vcs_info
+#
+# To work, vcs_info() needs 'setopt prompt_subst' in your setup.
+#}}}
+#
+# QUICKSTART:
+#{{{
+# To get vcs_info() working quickly (including colors), you can do the
+# following (assuming, you loaded vcs_info() properly - see above):
+#
+# % RED=$'%{\e[31m%}'
+# % GR=$'%{\e[32m%}'
+# % MA=$'%{\e[35m%}'
+# % YE=$'%{\e[33m%}'
+# % NC=$'%{\e[0m%}'
+#
+# % zstyle ':vcs_info:*' actionformats \
+#       "${MA}(${NC}%s${MA})${YE}-${MA}[${GR}%b${YE}|${RED}%a${MA}]${NC} "
+#
+# % zstyle ':vcs_info:*' formats       \
+#       "${MA}(${NC}%s${MA})${Y}-${MA}[${GR}%b${MA}]${NC}%} "
+#
+# % zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "%b${RED}:${YE}%r"
+#
+# % precmd () { vcs_info }
+# % PS1='${MA}[${GR}%n${MA}] ${MA}(${RED}%!${MA}) ${YE}%3~ ${VCS_INFO_message_0_}${NC}%# '
+#
+# Obviously, the las two lines are there for demonstration: You need to
+# call vcs_info() from your precmd() function (see 'SPECIAL FUNCTIONS' in
+# 'man zshmisc'). Once that is done you need a *single* quoted
+# '${VCS_INFO_message_0_}' in your prompt.
+#
+# Now call the 'vcs_info_printsys' utility from the command line:
+#
+# % vcs_info_printsys
+# # list of supported version control backends:
+# # disabled systems are prefixed by a hash sign (#)
+# git
+# hg
+# bzr
+# darcs
+# svk
+# mtn
+# svn
+# cvs
+# cdv
+# tla
+# # flavours (cannot be used in the disable style; they
+# # are disabled with their master [git-svn -> git]):
+# git-p4
+# git-svn
+#
+# Ten version control backends as you can see. You may not want all
+# of these. Because there is no point in running the code to detect
+# systems you do not use. ever. So, there is a way to disable some
+# backends altogether:
+#
+# % zstyle ':vcs_info:*' disable bzr cdv darcs mtn svk tla
+#
+# If you rerun 'vcs_info_printsys' now, you will see the backends listed
+# in the 'disable' style marked as diabled by a hash sign. That means the
+# detection of these systems is skipped *completely*. No wasted time there.
+#
+# For more control, read the reference below.
+#}}}
+#
+# CONFIGURATION:
+#{{{
+# The vcs_info() feature can be configured via zstyle.
+#
+# First, the context in which we are working:
+#       :vcs_info:<vcs-string>:<user-context>
+#
+# ...where <vcs-string> is one of:
+#   - git, git-svn, git-p4, hg, darcs, bzr, cdv, mtn, svn, cvs, svk or tla.
+#
+# ...and <user-context> is a freely configurable string, assignable by the
+# user as the first argument to vcs_info() (see its description below).
+#
+# There is are three special values for <vcs-string>: The first is named
+# 'init', that is in effect as long as there was no decision what vcs
+# backend to use. The second is 'preinit; it is used *before* vcs_info()
+# is run, when initializing the data exporting variables. The third
+# special value is 'formats' and is used by the 'vcs_info_lastmsg' for
+# looking up its styles.
+#
+# There are two pre-defined values for <user-context>:
+#   default  - the one used if none is specified
+#   command  - used by vcs_info_lastmsg to lookup its styles.
+#
+# You may *not* use 'print_systems_' as a user-context string, because it
+# is used internally.
+#
+# You can of course use ':vcs_info:*' to match all VCSs in all
+# user-contexts at once.
+#
+# Another special context is 'formats', which is used by the
+# vcs_info_lastmsg() utility function (see below).
+#
+#
+# This is a description of all styles, that are looked up:
+#   formats             - A list of formats, used when actionformats is not
+#                         used (which is most of the time).
+#   actionformats       - A list of formats, used if a there is a special
+#                         action going on in your current repository;
+#                         (like an interactive rebase or a merge conflict)
+#   branchformat        - Some backends replace %b in the formats and
+#                         actionformats styles above, not only by a branch
+#                         name but also by a revision number. This style
+#                         let's you modify how that string should look like.
+#   nvcsformats         - These "formats" are exported, when we didn't detect
+#                         a version control system for the current directory.
+#                         This is useful, if you want vcs_info() to completely
+#                         take over the generation of your prompt.
+#                         You would do something like
+#                           PS1='${VCS_INFO_message_0_}'
+#                         to accomplish that.
+#   max-exports         - Defines the maximum number if VCS_INFO_message_*_
+#                         variables vcs_info() will export.
+#   enable              - Checked in the 'init' context. If set to false,
+#                         vcs_info() will do nothing.
+#   disable             - Provide a list of systems, you don't want
+#                         the vcs_info() to check for repositories
+#                         (checked in the 'init' context, too).
+#   disable-patterns    - A list of patterns that are checked against $PWD.
+#                         If the pattern matches, vcs_info will be disabled.
+#                         Say, ~/.zsh is a directory under version control,
+#                         in which you do not want vcs_info to be active, do:
+#                         zstyle ':vcs_info:*' disable-patterns "$HOME/.zsh+(|/*)"
+#   use-simple          - If there are two different ways of gathering
+#                         information, you can select the simpler one
+#                         by setting this style to true; the default
+#                         is to use the not-that-simple code, which is
+#                         potentially a lot slower but might be more
+#                         accurate in all possible cases.
+#   use-prompt-escapes  - determines if we assume that the assembled
+#                         string from vcs_info() includes prompt escapes.
+#                         (Used by vcs_info_lastmsg().
+#
+# The use-simple style is only available for the bzr backend.
+#
+# The default values for these in all contexts are:
+#   formats             " (%s)-[%b|%a]-"
+#   actionformats       " (%s)-[%b]-"
+#   branchformat        "%b:%r" (for bzr, svn and svk)
+#   nvcsformats         ""
+#   max-exports         2
+#   enable              true
+#   disable             (empty list)
+#   disable-patterns    (empty list)
+#   use-simple          false
+#   use-prompt-escapes  true
+#
+#
+# In normal formats and actionformats, the following replacements
+# are done:
+#   %s  - The vcs in use (git, hg, svn etc.)
+#   %b  - Information about the current branch.
+#   %a  - An identifier, that describes the action.
+#         Only makes sense in actionformats.
+#   %R  - base directory of the repository.
+#   %r  - repository name
+#         If %R is '/foo/bar/repoXY', %r is 'repoXY'.
+#   %S  - subdirectory within a repository. if $PWD is
+#         '/foo/bar/reposXY/beer/tasty', %S is 'beer/tasty'.
+#
+#
+# In branchformat these replacements are done:
+#   %b  - the branch name
+#   %r  - the current revision number
+#
+# Not all vcs backends have to support all replacements.
+# nvcsformat does not perform *any* replacements. It is just a string.
+#}}}
+#
+# ODDITIES:
+#{{{
+# If you want to use the %b (bold off) prompt expansion in 'formats', which
+# expands %b itself, use %%b. That will cause the vcs_info() expansion to
+# replace %%b with %b. So zsh's prompt expansion mechanism can handle it.
+# Similarly, to hand down %b from branchformat, use %%%%b. Sorry for this
+# inconvenience, but it cannot be easily avoided. Luckily we do not clash
+# with a lot of prompt expansions and this only needs to be done for those.
+# See 'man zshmisc' for details about EXPANSION OF PROMPT SEQUENCES.
+#}}}
+#
+# FUNCTION DESCRIPTIONS (public API):
+#{{{
+#   vcs_info()
+#       The main function, that runs all backends and assembles
+#       all data into ${VCS_INFO_message_*_}. This is the function
+#       you want to call from precmd() if you want to include
+#       up-to-date information in your prompt (see VARIABLE
+#       DESCRIPTION below).
+#
+#   vcs_info_printsys()
+#       Prints a list of all supported version control systems.
+#       Useful to find out possible contexts (and which of them are enabled)
+#       or values for the 'disable' style.
+#
+#   vcs_info_lastmsg()
+#       Outputs the last ${VCS_INFO_message_*_} value. Takes into account
+#       the value of the use-prompt-escapes style in ':vcs_info:formats'.
+#       It also only prints max-exports values.
+#
+# All functions named VCS_INFO_* are for internal use only.
+#}}}
+#
+# VARIABLE DESCRIPTION:
+#{{{
+#   ${VCS_INFO_message_N_}    (Note the trailing underscore)
+#       Where 'N' is an integer, eg: VCS_INFO_message_0_
+#       These variables are the storage for the informational message the
+#       last vcs_info() call has assembled. These are strongly connected
+#       to the formats, actionformats and nvcsformats styles described
+#       above. Those styles are lists. the first member of that list gets
+#       expanded into ${VCS_INFO_message_0_}, the second into
+#       ${VCS_INFO_message_1_} and the Nth into ${VCS_INFO_message_N-1_}.
+#       These parameters are exported into the environment.
+#       (See the max-exports style above.)
+#}}}
+#
+# EXAMPLES:
+#{{{
+#   Don't use vcs_info at all (even though it's in your prompt):
+#   % zstyle ':vcs_info:*' enable false
+#
+#   Disable the backends for bzr and svk:
+#   % zstyle ':vcs_info:*' disable bzr svk
+#
+#   Provide a special formats for git:
+#   % zstyle ':vcs_info:git:*' formats       ' GIT, BABY! [%b]'
+#   % zstyle ':vcs_info:git:*' actionformats ' GIT ACTION! [%b|%a]'
+#
+#   Use the quicker bzr backend (if you do, please report if it does
+#   the-right-thing[tm] - thanks):
+#   % zstyle ':vcs_info:bzr:*' use-simple true
+#
+#   Display the revision number in yellow for bzr and svn:
+#   % zstyle ':vcs_info:(svn|bzr):*' branchformat '%b%{'${fg[yellow]}'%}:%r'
+#
+# If you want colors, make sure you enclose the color codes in %{...%},
+# if you want to use the string provided by vcs_info() in prompts.
+#
+# Here is how to print the vcs infomation as a command:
+#   % alias vcsi='vcs_info command; vcs_info_lastmsg'
+#
+#   This way, you can even define different formats for output via
+#   vcs_info_lastmsg() in the ':vcs_info:command:*' namespace.
+#}}}
+#}}}
+VCS_INFO_adjust () { #{{{
+    [[ -n ${vcs_comm[overwrite_name]} ]] && vcs=${vcs_comm[overwrite_name]}
+    return 0
+}
+# }}}
+VCS_INFO_check_com () { #{{{
+    (( ${+commands[$1]} )) && [[ -x ${commands[$1]} ]] && return 0
+    return 1
+}
+# }}}
+VCS_INFO_formats () { # {{{
+    setopt localoptions noksharrays
+    local action=$1 branch=$2 base=$3
+    local msg
+    local -i i
+
+    if [[ -n ${action} ]] ; then
+        zstyle -a ":vcs_info:${vcs}:${usercontext}" actionformats msgs
+        (( ${#msgs} < 1 )) && msgs[1]=' (%s)-[%b|%a]-'
+    else
+        zstyle -a ":vcs_info:${vcs}:${usercontext}" formats msgs
+        (( ${#msgs} < 1 )) && msgs[1]=' (%s)-[%b]-'
+    fi
+
+    (( ${#msgs} > maxexports )) && msgs[$(( maxexports + 1 )),-1]=()
+    for i in {1..${#msgs}} ; do
+        zformat -f msg ${msgs[$i]}                      \
+                        a:${action}                     \
+                        b:${branch}                     \
+                        r:${base:t}                     \
+                        s:${vcs}                        \
+                        R:${base}                       \
+                        S:"$(VCS_INFO_reposub ${base})"
+        msgs[$i]=${msg}
+    done
+    return 0
+}
+# }}}
+VCS_INFO_maxexports () { #{{{
+    zstyle -s ":vcs_info:${vcs}:${usercontext}" "max-exports" maxexports || maxexports=2
+    if [[ ${maxexports} != <-> ]] || (( maxexports < 1 )); then
+        printf 'vcs_info(): expecting numeric arg >= 1 for max-exports (got %s).\n' ${maxexports}
+        printf 'Defaulting to 2.\n'
+        maxexports=2
+    fi
+}
+# }}}
+VCS_INFO_nvcsformats () { #{{{
+    setopt localoptions noksharrays
+    local c v
+
+    if [[ $1 == 'preinit' ]] ; then
+        c=default
+        v=preinit
+    fi
+    zstyle -a ":vcs_info:${v:-$vcs}:${c:-$usercontext}" nvcsformats msgs
+    (( ${#msgs} > maxexports )) && msgs[${maxexports},-1]=()
+}
+# }}}
+VCS_INFO_realpath () { #{{{
+    # a portable 'readlink -f'
+    # forcing a subshell, to ensure chpwd() is not removed
+    # from the calling shell (if VCS_INFO_realpath() is called
+    # manually).
+    (
+        (( ${+functions[chpwd]} )) && unfunction chpwd
+        setopt chaselinks
+        cd $1 2>/dev/null && pwd
+    )
+}
+# }}}
+VCS_INFO_reposub () { #{{{
+    setopt localoptions extendedglob
+    local base=${1%%/##}
+
+    [[ ${PWD} == ${base}/* ]] || {
+        printf '.'
+        return 1
+    }
+    printf '%s' ${PWD#$base/}
+    return 0
+}
+# }}}
+VCS_INFO_set () { #{{{
+    setopt localoptions noksharrays
+    local -i i j
+
+    if [[ $1 == '--clear' ]] ; then
+        for i in {0..9} ; do
+            unset VCS_INFO_message_${i}_
+        done
+    fi
+    if [[ $1 == '--nvcs' ]] ; then
+        [[ $2 == 'preinit' ]] && (( maxexports == 0 )) && (( maxexports = 1 ))
+        for i in {0..$((maxexports - 1))} ; do
+            typeset -gx VCS_INFO_message_${i}_=
+        done
+        VCS_INFO_nvcsformats $2
+    fi
+
+    (( ${#msgs} - 1 < 0 )) && return 0
+    for i in {0..$(( ${#msgs} - 1 ))} ; do
+        (( j = i + 1 ))
+        typeset -gx VCS_INFO_message_${i}_=${msgs[$j]}
+    done
+    return 0
+}
+# }}}
+# information gathering
+VCS_INFO_bzr_get_data () { # {{{
+    setopt localoptions noksharrays
+    local bzrbase bzrbr
+    local -a bzrinfo
+
+    if zstyle -t ":vcs_info:${vcs}:${usercontext}" "use-simple" ; then
+        bzrbase=${vcs_comm[basedir]}
+        bzrinfo[2]=${bzrbase:t}
+        if [[ -f ${bzrbase}/.bzr/branch/last-revision ]] ; then
+            bzrinfo[1]=$(< ${bzrbase}/.bzr/branch/last-revision)
+            bzrinfo[1]=${${bzrinfo[1]}%% *}
+        fi
+    else
+        bzrbase=${${(M)${(f)"$( bzr info )"}:# ##branch\ root:*}/*: ##/}
+        bzrinfo=( ${${${(M)${(f)"$( bzr version-info )"}:#(#s)(revno|branch-nick)*}/*: /}/*\//} )
+        bzrbase="$(VCS_INFO_realpath ${bzrbase})"
+    fi
+
+    zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat bzrbr || bzrbr="%b:%r"
+    zformat -f bzrbr "${bzrbr}" "b:${bzrinfo[2]}" "r:${bzrinfo[1]}"
+    VCS_INFO_formats '' "${bzrbr}" "${bzrbase}"
+    return 0
+}
+# }}}
+VCS_INFO_cdv_get_data () { # {{{
+    local cdvbase
+
+    cdvbase=${vcs_comm[basedir]}
+    VCS_INFO_formats '' "${cdvbase:t}" "${cdvbase}"
+    return 0
+}
+# }}}
+VCS_INFO_cvs_get_data () { # {{{
+    local cvsbranch cvsbase basename
+
+    cvsbase="."
+    while [[ -d "${cvsbase}/../CVS" ]]; do
+        cvsbase="${cvsbase}/.."
+    done
+    cvsbase="$(VCS_INFO_realpath ${cvsbase})"
+    cvsbranch=$(< ./CVS/Repository)
+    basename=${cvsbase:t}
+    cvsbranch=${cvsbranch##${basename}/}
+    [[ -z ${cvsbranch} ]] && cvsbranch=${basename}
+    VCS_INFO_formats '' "${cvsbranch}" "${cvsbase}"
+    return 0
+}
+# }}}
+VCS_INFO_darcs_get_data () { # {{{
+    local darcsbase
+
+    darcsbase=${vcs_comm[basedir]}
+    VCS_INFO_formats '' "${darcsbase:t}" "${darcsbase}"
+    return 0
+}
+# }}}
+VCS_INFO_git_getaction () { #{{{
+    local gitaction='' gitdir=$1
+    local tmp
+
+    for tmp in "${gitdir}/rebase-apply" \
+               "${gitdir}/rebase"       \
+               "${gitdir}/../.dotest" ; do
+        if [[ -d ${tmp} ]] ; then
+            if   [[ -f "${tmp}/rebasing" ]] ; then
+                gitaction="rebase"
+            elif [[ -f "${tmp}/applying" ]] ; then
+                gitaction="am"
+            else
+                gitaction="am/rebase"
+            fi
+            printf '%s' ${gitaction}
+            return 0
+        fi
+    done
+
+    for tmp in "${gitdir}/rebase-merge/interactive" \
+               "${gitdir}/.dotest-merge/interactive" ; do
+        if [[ -f "${tmp}" ]] ; then
+            printf '%s' "rebase-i"
+            return 0
+        fi
+    done
+
+    for tmp in "${gitdir}/rebase-merge" \
+               "${gitdir}/.dotest-merge" ; do
+        if [[ -d "${tmp}" ]] ; then
+            printf '%s' "rebase-m"
+            return 0
+        fi
+    done
+
+    if [[ -f "${gitdir}/MERGE_HEAD" ]] ; then
+        printf '%s' "merge"
+        return 0
+    fi
+
+    if [[ -f "${gitdir}/BISECT_LOG" ]] ; then
+        printf '%s' "bisect"
+        return 0
+    fi
+    return 1
+}
+# }}}
+VCS_INFO_git_getbranch () { #{{{
+    local gitbranch gitdir=$1 tmp actiondir
+    local gitsymref='git symbolic-ref HEAD'
+
+    actiondir=''
+    for tmp in "${gitdir}/rebase-apply" \
+               "${gitdir}/rebase"       \
+               "${gitdir}/../.dotest"; do
+        if [[ -d ${tmp} ]]; then
+            actiondir=${tmp}
+            break
+        fi
+    done
+    if [[ -n ${actiondir} ]]; then
+        gitbranch="$(${(z)gitsymref} 2> /dev/null)"
+        [[ -z ${gitbranch} ]] && [[ -r ${actiondir}/head-name ]] \
+            && gitbranch="$(< ${actiondir}/head-name)"
+
+    elif [[ -f "${gitdir}/MERGE_HEAD" ]] ; then
+        gitbranch="$(${(z)gitsymref} 2> /dev/null)"
+        [[ -z ${gitbranch} ]] && gitbranch="$(< ${gitdir}/MERGE_HEAD)"
+
+    elif [[ -d "${gitdir}/rebase-merge" ]] ; then
+        gitbranch="$(< ${gitdir}/rebase-merge/head-name)"
+
+    elif [[ -d "${gitdir}/.dotest-merge" ]] ; then
+        gitbranch="$(< ${gitdir}/.dotest-merge/head-name)"
+
+    else
+        gitbranch="$(${(z)gitsymref} 2> /dev/null)"
+
+        if [[ $? -ne 0 ]] ; then
+            gitbranch="refs/tags/$(git describe --exact-match HEAD 2>/dev/null)"
+
+            if [[ $? -ne 0 ]] ; then
+                gitbranch="${${"$(< $gitdir/HEAD)"}[1,7]}..."
+            fi
+        fi
+    fi
+
+    printf '%s' "${gitbranch##refs/[^/]##/}"
+    return 0
+}
+# }}}
+VCS_INFO_git_get_data () { # {{{
+    setopt localoptions extendedglob
+    local gitdir gitbase gitbranch gitaction
+
+    gitdir=${vcs_comm[gitdir]}
+    gitbranch="$(VCS_INFO_git_getbranch ${gitdir})"
+
+    if [[ -z ${gitdir} ]] || [[ -z ${gitbranch} ]] ; then
+        return 1
+    fi
+
+    VCS_INFO_adjust
+    gitaction="$(VCS_INFO_git_getaction ${gitdir})"
+    gitbase=${PWD%/${$( git rev-parse --show-prefix )%/##}}
+    VCS_INFO_formats "${gitaction}" "${gitbranch}" "${gitbase}"
+    return 0
+}
+# }}}
+VCS_INFO_hg_get_data () { # {{{
+    local hgbranch hgbase file
+
+    hgbase=${vcs_comm[basedir]}
+
+    file="${hgbase}/.hg/branch"
+    if [[ -r ${file} ]] ; then
+        hgbranch=$(< ${file})
+    else
+        hgbranch='default'
+    fi
+
+    VCS_INFO_formats '' "${hgbranch}" "${hgbase}"
+    return 0
+}
+# }}}
+VCS_INFO_mtn_get_data () { # {{{
+    local mtnbranch mtnbase
+
+    mtnbase=${vcs_comm[basedir]}
+    mtnbranch=${${(M)${(f)"$( mtn status )"}:#(#s)Current branch:*}/*: /}
+    VCS_INFO_formats '' "${mtnbranch}" "${mtnbase}"
+    return 0
+}
+# }}}
+VCS_INFO_svk_get_data () { # {{{
+    local svkbranch svkbase
+
+    svkbase=${vcs_comm[basedir]}
+    zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat svkbranch || svkbranch="%b:%r"
+    zformat -f svkbranch "${svkbranch}" "b:${vcs_comm[branch]}" "r:${vcs_comm[revision]}"
+    VCS_INFO_formats '' "${svkbranch}" "${svkbase}"
+    return 0
+}
+# }}}
+VCS_INFO_svn_get_data () { # {{{
+    setopt localoptions noksharrays
+    local svnbase svnbranch
+    local -a svninfo
+
+    svnbase="."
+    while [[ -d "${svnbase}/../.svn" ]]; do
+        svnbase="${svnbase}/.."
+    done
+    svnbase="$(VCS_INFO_realpath ${svnbase})"
+    svninfo=( ${${${(M)${(f)"$( svn info )"}:#(#s)(URL|Révision)*}/*: /}/*\//} ) # Beware language!
+
+    zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat svnbranch || svnbranch="%b:%r"
+    zformat -f svnbranch "${svnbranch}" "b:${svninfo[1]}" "r:${svninfo[2]}"
+    VCS_INFO_formats '' "${svnbranch}" "${svnbase}"
+    return 0
+}
+# }}}
+VCS_INFO_tla_get_data () { # {{{
+    local tlabase tlabranch
+
+    tlabase="$(VCS_INFO_realpath ${vcs_comm[basedir]})"
+    # tree-id gives us something like 'foo@example.com/demo--1.0--patch-4', so:
+    tlabranch=${${"$( tla tree-id )"}/*\//}
+    VCS_INFO_formats '' "${tlabranch}" "${tlabase}"
+    return 0
+}
+# }}}
+# detection
+VCS_INFO_detect_by_dir() { #{{{
+    local dirname=$1
+    local basedir="." realbasedir
+
+    realbasedir="$(VCS_INFO_realpath ${basedir})"
+    while [[ ${realbasedir} != '/' ]]; do
+        [[ -r ${realbasedir} ]] || return 1
+        if [[ -n ${vcs_comm[detect_need_file]} ]] ; then
+            [[ -d ${basedir}/${dirname} ]] && \
+            [[ -e ${basedir}/${dirname}/${vcs_comm[detect_need_file]} ]] && \
+                break
+        else
+            [[ -d ${basedir}/${dirname} ]] && break
+        fi
+
+        basedir=${basedir}/..
+        realbasedir="$(VCS_INFO_realpath ${basedir})"
+    done
+
+    [[ ${realbasedir} == "/" ]] && return 1
+    vcs_comm[basedir]=${realbasedir}
+    return 0
+}
+# }}}
+VCS_INFO_bzr_detect() { #{{{
+    VCS_INFO_check_com bzr || return 1
+    vcs_comm[detect_need_file]=branch/format
+    VCS_INFO_detect_by_dir '.bzr'
+    return $?
+}
+# }}}
+VCS_INFO_cdv_detect() { #{{{
+    VCS_INFO_check_com cdv || return 1
+    vcs_comm[detect_need_file]=format
+    VCS_INFO_detect_by_dir '.cdv'
+    return $?
+}
+# }}}
+VCS_INFO_cvs_detect() { #{{{
+    VCS_INFO_check_com svn || return 1
+    [[ -d "./CVS" ]] && [[ -r "./CVS/Repository" ]] && return 0
+    return 1
+}
+# }}}
+VCS_INFO_darcs_detect() { #{{{
+    VCS_INFO_check_com darcs || return 1
+    vcs_comm[detect_need_file]=format
+    VCS_INFO_detect_by_dir '_darcs'
+    return $?
+}
+# }}}
+VCS_INFO_git_detect() { #{{{
+    if VCS_INFO_check_com git && git rev-parse --is-inside-work-tree &> /dev/null ; then
+        vcs_comm[gitdir]="$(git rev-parse --git-dir 2> /dev/null)" || return 1
+        if   [[ -d ${vcs_comm[gitdir]}/svn ]]             ; then vcs_comm[overwrite_name]='git-svn'
+        elif [[ -d ${vcs_comm[gitdir]}/refs/remotes/p4 ]] ; then vcs_comm[overwrite_name]='git-p4' ; fi
+        return 0
+    fi
+    return 1
+}
+# }}}
+VCS_INFO_hg_detect() { #{{{
+    VCS_INFO_check_com hg || return 1
+#    vcs_comm[basedir]=$(hg root 2>/dev/null) || return 1
+    vcs_comm[detect_need_file]=store
+    VCS_INFO_detect_by_dir '.hg'
+    return $?
+}
+# }}}
+VCS_INFO_mtn_detect() { #{{{
+    VCS_INFO_check_com mtn || return 1
+    vcs_comm[detect_need_file]=revision
+    VCS_INFO_detect_by_dir '_MTN'
+    return $?
+}
+# }}}
+VCS_INFO_svk_detect() { #{{{
+    setopt localoptions noksharrays extendedglob
+    local -a info
+    local -i fhash
+    fhash=0
+
+    VCS_INFO_check_com svk || return 1
+    [[ -f ~/.svk/config ]] || return 1
+
+    # This detection function is a bit different from the others.
+    # We need to read svk's config file to detect a svk repository
+    # in the first place. Therefore, we'll just proceed and read
+    # the other information, too. This is more then any of the
+    # other detections do but this takes only one file open for
+    # svk at most. VCS_INFO_svk_get_data() get simpler, too. :-)
+    while IFS= read -r line ; do
+        if [[ -n ${vcs_comm[basedir]} ]] ; then
+            line=${line## ##}
+            [[ ${line} == depotpath:* ]] && vcs_comm[branch]=${line##*/}
+            [[ ${line} == revision:* ]] && vcs_comm[revision]=${line##*[[:space:]]##}
+            [[ -n ${vcs_comm[branch]} ]] && [[ -n ${vcs_comm[revision]} ]] && break
+            continue
+        fi
+        (( fhash > 0 )) && [[ ${line} == '  '[^[:space:]]*:* ]] && break
+        [[ ${line} == '  hash:'* ]] && fhash=1 && continue
+        (( fhash == 0 )) && continue
+        [[ ${PWD}/ == ${${line## ##}%:*}/* ]] && vcs_comm[basedir]=${${line## ##}%:*}
+    done < ~/.svk/config
+
+    [[ -n ${vcs_comm[basedir]} ]]  && \
+    [[ -n ${vcs_comm[branch]} ]]   && \
+    [[ -n ${vcs_comm[revision]} ]] && return 0
+    return 1
+}
+# }}}
+VCS_INFO_svn_detect() { #{{{
+    VCS_INFO_check_com svn || return 1
+    [[ -d ".svn" ]] && return 0
+    return 1
+}
+# }}}
+VCS_INFO_tla_detect() { #{{{
+    VCS_INFO_check_com tla || return 1
+    vcs_comm[basedir]="$(tla tree-root 2> /dev/null)" && return 0
+    return 1
+}
+# }}}
+# public API
+vcs_info_printsys () { # {{{
+    vcs_info print_systems_
+}
+# }}}
+vcs_info_lastmsg () { # {{{
+    emulate -L zsh
+    local -i i
+
+    VCS_INFO_maxexports
+    for i in {0..$((maxexports - 1))} ; do
+        printf '$VCS_INFO_message_%d_: "' $i
+        if zstyle -T ':vcs_info:formats:command' use-prompt-escapes ; then
+            print -nP ${(P)${:-VCS_INFO_message_${i}_}}
+        else
+            print -n ${(P)${:-VCS_INFO_message_${i}_}}
+        fi
+        printf '"\n'
+    done
+}
+# }}}
+vcs_info () { # {{{
+    emulate -L zsh
+    setopt extendedglob
+
+    [[ -r . ]] || return 1
+
+    local pat
+    local -i found
+    local -a VCSs disabled dps
+    local -x vcs usercontext
+    local -ix maxexports
+    local -ax msgs
+    local -Ax vcs_comm
+
+    vcs="init"
+    VCSs=(git hg bzr darcs svk mtn svn cvs cdv tla)
+
+    case $1 in
+        (print_systems_)
+            zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable" disabled
+            print -l '# list of supported version control backends:' \
+                     '# disabled systems are prefixed by a hash sign (#)'
+            for vcs in ${VCSs} ; do
+                [[ -n ${(M)disabled:#${vcs}} ]] && printf '#'
+                printf '%s\n' ${vcs}
+            done
+            print -l '# flavours (cannot be used in the disable style; they' \
+                     '# are disabled with their master [git-svn -> git]):'   \
+                     git-{p4,svn}
+            return 0
+            ;;
+        ('')
+            [[ -z ${usercontext} ]] && usercontext=default
+            ;;
+        (*) [[ -z ${usercontext} ]] && usercontext=$1
+            ;;
+    esac
+
+    zstyle -T ":vcs_info:${vcs}:${usercontext}" "enable" || {
+        [[ -n ${VCS_INFO_message_0_} ]] && VCS_INFO_set --clear
+        return 0
+    }
+    zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable" disabled
+
+    zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable-patterns" dps
+    for pat in ${dps} ; do
+        if [[ ${PWD} == ${~pat} ]] ; then
+            [[ -n ${vcs_info_msg_0_} ]] && VCS_INFO_set --clear
+            return 0
+        fi
+    done
+
+    VCS_INFO_maxexports
+
+    (( found = 0 ))
+    for vcs in ${VCSs} ; do
+        [[ -n ${(M)disabled:#${vcs}} ]] && continue
+        vcs_comm=()
+        VCS_INFO_${vcs}_detect && (( found = 1 )) && break
+    done
+
+    (( found == 0 )) && {
+        VCS_INFO_set --nvcs
+        return 0
+    }
+
+    VCS_INFO_${vcs}_get_data || {
+        VCS_INFO_set --nvcs
+        return 1
+    }
+
+    VCS_INFO_set
+    return 0
+}
+
+VCS_INFO_set --nvcs preinit
diff --git a/.zsh/rc/extra/01_vcs_functions b/.zsh/rc/extra/01_vcs_functions
new file mode 100644 (file)
index 0000000..e1ef10a
--- /dev/null
@@ -0,0 +1,80 @@
+#!/bin/zsh
+# Fichier contenant des fonctions "pratiques" de manipulation de
+# VCS comme git ou cvs ou autre
+
+#f5# Cvs add
+cvsa() {
+    emulate -L zsh
+    cvs add $* && cvs com -m 'initial checkin' $*
+}
+#f5# Cvs diff
+cvsd() {
+    emulate -L zsh
+    cvs diff -N $* |& $PAGER
+}
+#f5# Cvs log
+cvsl() {
+    emulate -L zsh
+    cvs log $* |& $PAGER
+}
+#f5# Cvs update
+cvsq() {
+    emulate -L zsh
+    cvs -nq update
+}
+#f5# Rcs2log
+cvsr() {
+    emulate -L zsh
+    rcs2log $* | $PAGER
+}
+#f5# Cvs status
+cvss() {
+    emulate -L zsh
+    cvs status -v $*
+}
+
+#f5# Find all files in \$PATH with setuid bit set
+suidfind() { ls -latg $path | grep '^...s' }
+
+#f5# Get specific git commitdiff
+git-get-diff() {
+    emulate -L zsh
+    if [[ -z $GITTREE ]] ; then
+        GITTREE='linux/kernel/git/torvalds/linux-2.6.git'
+    fi
+    if ! [[ -z $1 ]] ; then
+        ${=BROWSER} "http://kernel.org/git/?p=$GITTREE;a=commitdiff;h=$1"
+    else
+        echo "Usage: git-get-diff <commit>"
+    fi
+}
+
+#f5# Get specific git commit
+git-get-commit() {
+    emulate -L zsh
+    if [[ -z $GITTREE ]] ; then
+        GITTREE='linux/kernel/git/torvalds/linux-2.6.git'
+    fi
+    if ! [[ -z $1 ]] ; then
+        ${=BROWSER} "http://kernel.org/git/?p=$GITTREE;a=commit;h=$1"
+    else
+        echo "Usage: git-get-commit <commit>"
+    fi
+}
+
+#f5# Get specific git diff
+git-get-plaindiff () {
+    emulate -L zsh
+    if [[ -z $GITTREE ]] ; then
+       GITTREE='linux/kernel/git/torvalds/linux-2.6.git'
+    fi
+    if [[ -z $1 ]] ; then
+       echo 'Usage: git-get-plaindiff '
+    else
+       echo -n "Downloading $1.diff ... "
+       # avoid "generating ..." stuff from kernel.org server:
+       wget --quiet "http://kernel.org/git/?p=$GITTREE;a=commitdiff_plain;h=$1" -O /dev/null
+       wget --quiet "http://kernel.org/git/?p=$GITTREE;a=commitdiff_plain;h=$1" -O $1.diff \
+            && echo done || echo failed
+    fi
+}
diff --git a/.zsh/rc/extra/02_mercurial b/.zsh/rc/extra/02_mercurial
new file mode 100644 (file)
index 0000000..7a7e500
--- /dev/null
@@ -0,0 +1,79 @@
+#!/bin/zsh
+
+# mercurial related stuff {{{
+if check_com -c hg ; then
+    # gnu like diff for mercurial
+    # http://www.selenic.com/mercurial/wiki/index.cgi/TipsAndTricks
+    #f5# GNU like diff for mercurial
+    hgdi() {
+        emulate -L zsh
+        for i in $(hg status -marn "$@") ; diff -ubwd <(hg cat "$i") "$i"
+    }
+
+    # build debian package
+    #a2# Alias for \kbd{hg-buildpackage}
+    alias hbp='hg-buildpackage'
+
+    # execute commands on the versioned patch-queue from the current repos
+    alias mq='hg -R $(readlink -f $(hg root)/.hg/patches)'
+
+    # diffstat for specific version of a mercurial repository
+    #   hgstat      => display diffstat between last revision and tip
+    #   hgstat 1234 => display diffstat between revision 1234 and tip
+    #f5# Diffstat for specific version of a mercurial repos
+    hgstat() {
+        emulate -L zsh
+        [[ -n "$1" ]] && hg diff -r $1 -r tip | diffstat || hg export tip | diffstat
+    }
+
+    #f5# Get current mercurial tip via hg itself
+    gethgclone() {
+        emulate -L zsh
+        setopt errreturn
+        if [[ -f mercurial-tree/.hg ]] ; then
+            cd mercurial-tree
+            echo "Running hg pull for retreiving latest version..."
+            hg pull
+            echo "Finished update. Building mercurial"
+            make local
+            echo "Setting \$PATH to $PWD:\$PATH..."
+            export PATH="$PWD:$PATH"
+        else
+            echo "Downloading mercurial via hg"
+            hg clone http://selenic.com/repo/hg mercurial-tree
+            cd mercurial-tree
+            echo "Building mercurial"
+            make local
+            echo "Setting \$PATH to $PWD:\$PATH..."
+            export PATH="$PWD:$PATH"
+            echo "make sure you set it permanent via ~/.zshrc if you plan to use it permanently."
+            # echo "Setting \$PYTHONPATH to PYTHONPATH=\${HOME}/lib/python,"
+            # export PYTHONPATH=${HOME}/lib/python
+        fi
+    }
+
+fi # end of check whether we have the 'hg'-executable
+
+# get current mercurial snapshot
+#f5# Get current mercurial snapshot
+gethgsnap() {
+    emulate -L zsh
+    setopt errreturn
+    if [[ -f mercurial-snapshot.tar.gz ]] ; then
+         echo "mercurial-snapshot.tar.gz exists already, skipping download."
+    else
+        echo "Downloading mercurial snapshot"
+        wget http://www.selenic.com/mercurial/mercurial-snapshot.tar.gz
+    fi
+    echo "Unpacking mercurial-snapshot.tar.gz"
+    tar zxf mercurial-snapshot.tar.gz
+    cd mercurial-snapshot/
+    echo "Installing required build-dependencies"
+    $SUDO apt-get update
+    $SUDO apt-get install python2.4-dev
+    echo "Building mercurial"
+    make local
+    echo "Setting \$PATH to $PWD:\$PATH..."
+    export PATH="$PWD:$PATH"
+    echo "make sure you set it permanent via ~/.zshrc if you plan to use it permanently."
+}
diff --git a/.zsh/rc/extra/03_profiling b/.zsh/rc/extra/03_profiling
new file mode 100644 (file)
index 0000000..f31080a
--- /dev/null
@@ -0,0 +1,86 @@
+#!/bin/zsh
+
+# directory based profiles {{{
+
+CHPWD_PROFILE='default'
+function chpwd_profiles() {
+    # Say you want certain settings to be active in certain directories.
+    # This is what you want.
+    #
+    # zstyle ':chpwd:profiles:/usr/src/grml(|/|/*)'   profile grml
+    # zstyle ':chpwd:profiles:/usr/src/debian(|/|/*)' profile debian
+    #
+    # When that's done and you enter a directory that matches the pattern
+    # in the third part of the context, a function called chpwd_profile_grml,
+    # for example, is called (if it exists).
+    #
+    # If no pattern matches (read: no profile is detected) the profile is
+    # set to 'default', which means chpwd_profile_default is attempted to
+    # be called.
+    #
+    # A word about the context (the ':chpwd:profiles:*' stuff in the zstyle
+    # command) which is used: The third part in the context is matched against
+    # ${PWD}. That's why using a pattern such as /foo/bar(|/|/*) makes sense.
+    # Because that way the profile is detected for all these values of ${PWD}:
+    #   /foo/bar
+    #   /foo/bar/
+    #   /foo/bar/baz
+    # So, if you want to make double damn sure a profile works in /foo/bar
+    # and everywhere deeper in that tree, just use (|/|/*) and be happy.
+    #
+    # The name of the detected profile will be available in a variable called
+    # 'profile' in your functions. You don't need to do anything, it'll just
+    # be there.
+    #
+    # Then there is the parameter $CHPWD_PROFILE is set to the profile, that
+    # was is currently active. That way you can avoid running code for a
+    # profile that is already active, by running code such as the following
+    # at the start of your function:
+    #
+    # function chpwd_profile_grml() {
+    #     [[ ${profile} == ${CHPWD_PROFILE} ]] && return 1
+    #   ...
+    # }
+    #
+    # The initial value for $CHPWD_PROFILE is 'default'.
+    #
+    # Version requirement:
+    #   This feature requires zsh 4.3.3 or newer.
+    #   If you use this feature and need to know whether it is active in your
+    #   current shell, there are several ways to do that. Here are two simple
+    #   ways:
+    #
+    #   a) If knowing if the profiles feature is active when zsh starts is
+    #      good enough for you, you can put the following snippet into your
+    #      .zshrc.local:
+    #
+    #   (( ${+functions[chpwd_profiles]} )) && print "directory profiles active"
+    #
+    #   b) If that is not good enough, and you would prefer to be notified
+    #      whenever a profile changes, you can solve that by making sure you
+    #      start *every* profile function you create like this:
+    #
+    #   function chpwd_profile_myprofilename() {
+    #       [[ ${profile} == ${CHPWD_PROFILE} ]] && return 1
+    #       print "chpwd(): Switching to profile: $profile"
+    #     ...
+    #   }
+    #
+    #      That makes sure you only get notified if a profile is *changed*,
+    #      not everytime you change directory, which would probably piss
+    #      you off fairly quickly. :-)
+    #
+    # There you go. Now have fun with that.
+    local -x profile
+
+    zstyle -s ":chpwd:profiles:${PWD}" profile profile || profile='default'
+    if (( ${+functions[chpwd_profile_$profile]} )) ; then
+        chpwd_profile_${profile}
+    fi
+
+    CHPWD_PROFILE="${profile}"
+    return 0
+}
+# When pwd changes, the functions in this array are
+# executed.
+chpwd_functions=( ${chpwd_functions} chpwd_profiles )
diff --git a/.zsh/rc/extra/05_useful_functions b/.zsh/rc/extra/05_useful_functions
new file mode 100644 (file)
index 0000000..6fcdfc2
--- /dev/null
@@ -0,0 +1,414 @@
+#!/bin/zsh
+
+#f5# Backup \kbd{file {\rm to} file\_timestamp}
+bk() {
+    emulate -L zsh
+    cp -b $1 $1_`date --iso-8601=m`
+}
+
+#f5# cd to directoy and list files
+cl() {
+    emulate -L zsh
+    cd $1 && ls -al
+}
+
+#f5# Create Directoy and \kbd{cd} to it
+mcd() {
+    mkdir -p "$@" && cd "$@"
+}
+
+#f5# Memory overview
+memusage() {
+    ps aux | awk '{if (NR > 1) print $5; if (NR > 2) print "+"} END { print "p" }' | dc
+}
+
+# Function Usage: doc packagename
+#f5# \kbd{cd} to /usr/share/doc/\textit{package}
+doc() {
+    emulate -L zsh
+    cd /usr/share/doc/$1 && ls
+}
+_doc() { _files -W /usr/share/doc -/ }
+check_com compdef && compdef _doc doc
+
+#f5# Grep in history
+greph() {
+    emulate -L zsh
+    history 0 | grep $1
+}
+
+#f5# Watch manpages in a stretched style
+man2() { PAGER='dash -c "sed G | /usr/bin/less"' command man "$@" ; }
+
+#f5# Clean up directory - remove well known tempfiles
+purge() {
+    FILES=(*~(N) .*~(N) \#*\#(N) *.o(N) a.out(N) *.core(N) *.cmo(N) *.cmi(N) .*.swp(N) .*.COMPILED)
+    NBFILES=${#FILES}
+    if [[ $NBFILES > 0 ]] ; then
+        print $FILES
+        local ans
+        echo -n "Remove these files? [y/n] "
+        read -q ans
+        if [[ $ans == "y" ]] ; then
+            rm ${FILES}
+            echo ">> $PWD purged, $NBFILES files removed"
+        else
+            echo "Ok. .. then not.."
+        fi
+    fi
+}
+
+#f5# List all occurrences of programm in current PATH
+plap() {
+    emulate -L zsh
+    if [[ $# = 0 ]] ; then
+        echo "Usage:    $0 program"
+        echo "Example:  $0 zsh"
+        echo "Lists all occurrences of program in the current PATH."
+    else
+        ls -l ${^path}/*$1*(*N)
+    fi
+}
+
+# Usage: simple-extract <file>
+#f5# Smart archive extractor
+simple-extract () {
+    emulate -L zsh
+    if [[ -f $1 ]] ; then
+        case $1 in
+            *.tar.bz2)  bzip2 -v -d $1      ;;
+            *.tar.gz)   tar -xvzf $1        ;;
+            *.rar)      unrar $1            ;;
+            *.deb)      ar -x $1            ;;
+            *.bz2)      bzip2 -d $1         ;;
+            *.lzh)      lha x $1            ;;
+            *.gz)       gunzip -d $1        ;;
+            *.tar)      tar -xvf $1         ;;
+            *.tgz)      gunzip -d $1        ;;
+            *.tbz2)     tar -jxvf $1        ;;
+            *.zip)      unzip $1            ;;
+            *.Z)        uncompress $1       ;;
+            *)          echo "'$1' Error. Please go away" ;;
+        esac
+    else
+        echo "'$1' is not a valid file"
+    fi
+}
+
+# Usage: smartcompress <file> (<type>)
+#f5# Smart archive creator
+smartcompress() {
+    emulate -L zsh
+    if [[ -n $2 ]] ; then
+        case $2 in
+            tgz | tar.gz)   tar -zcvf$1.$2 $1 ;;
+            tbz2 | tar.bz2) tar -jcvf$1.$2 $1 ;;
+            tar.Z)          tar -Zcvf$1.$2 $1 ;;
+            tar)            tar -cvf$1.$2  $1 ;;
+            gz | gzip)      gzip           $1 ;;
+            bz2 | bzip2)    bzip2          $1 ;;
+            *)
+                echo "Error: $2 is not a valid compression type"
+                ;;
+        esac
+    else
+        smartcompress $1 tar.gz
+    fi
+}
+
+# Usage: show-archive <archive>
+#f5# List an archive's content
+show-archive() {
+    emulate -L zsh
+    if [[ -f $1 ]] ; then
+        case $1 in
+            *.tar.gz)      gunzip -c $1 | tar -tf - -- ;;
+            *.tar)         tar -tf $1 ;;
+            *.tgz)         tar -ztf $1 ;;
+            *.zip)         unzip -l $1 ;;
+            *.bz2)         bzless $1 ;;
+            *.deb)         dpkg-deb --fsys-tarfile $1 | tar -tf - -- ;;
+            *)             echo "'$1' Error. Please go away" ;;
+        esac
+    else
+        echo "'$1' is not a valid archive"
+    fi
+}
+
+# It's shameless stolen from <http://www.vim.org/tips/tip.php?tip_id=167>
+#f5# Use \kbd{vim} as your manpage reader
+vman() {
+    emulate -L zsh
+    man $* | col -b | view -c 'set ft=man nomod nolist' -
+}
+
+# TODO: So, this is the third incarnation of this function!?
+#f5# Reload given functions
+refunc() {
+    for func in $argv ; do
+        unfunction $func
+        autoload $func
+    done
+}
+
+# a small check to see which DIR is located on which server/partition.
+# stolen and modified from Sven's zshrc.forall
+#f5# Report diskusage of a directory
+dirspace() {
+    emulate -L zsh
+    if [[ -n "$1" ]] ; then
+        for dir in "$@" ; do
+            if [[ -d "$dir" ]] ; then
+                ( cd $dir; echo "-<$dir>"; du -shx .; echo);
+            else
+                echo "warning: $dir does not exist" >&2
+            fi
+        done
+    else
+        for dir in $path; do
+            if [[ -d "$dir" ]] ; then
+                ( cd $dir; echo "-<$dir>"; du -shx .; echo);
+            else
+                echo "warning: $dir does not exist" >&2
+            fi
+        done
+    fi
+}
+
+#f5# Show some status info
+status() {
+    print
+    print "Date..: "$(date "+%Y-%m-%d %H:%M:%S")
+    print "Shell.: Zsh $ZSH_VERSION (PID = $$, $SHLVL nests)"
+    print "Term..: $TTY ($TERM), ${BAUD:+$BAUD bauds, }$COLUMNS x $LINES chars"
+    print "Login.: $LOGNAME (UID = $EUID) on $HOST"
+    print "Groups: $(groups)"
+    print "System: $(cat /etc/[A-Za-z]*[_-][rv]e[lr]*)"
+    print "Uptime:$(uptime)"
+    print
+}
+
+#f5# RFC 2396 URL encoding in Z-Shell
+urlencode() {
+    emulate -L zsh
+    setopt extendedglob
+    input=( ${(s::)1} )
+    print ${(j::)input/(#b)([^A-Za-z0-9_.!~*\'\(\)-])/%${(l:2::0:)$(([##16]#match))}}
+}
+
+#f5# Indent source code
+smart-indent() {
+    indent -npro -kr -i8 -ts8 -sob -l80 -ss -ncs "$@"
+}
+
+# hl() highlighted less
+# http://ft.bewatermyfriend.org/comp/data/zsh/zfunct.html
+if check_com -c highlight ; then
+    function hl() {
+    emulate -L zsh
+        local theme lang
+        theme=${HL_THEME:-""}
+        case ${1} in
+            (-l|--list)
+                ( printf 'available languages (syntax parameter):\n\n' ;
+                    highlight --list-langs ; ) | less -SMr
+                ;;
+            (-t|--themes)
+                ( printf 'available themes (style parameter):\n\n' ;
+                    highlight --list-themes ; ) | less -SMr
+                ;;
+            (-h|--help)
+                printf 'usage: hl <syntax[:theme]> <file>\n'
+                printf '    available options: --list (-l), --themes (-t), --help (-h)\n\n'
+                printf '  Example: hl c main.c\n'
+                ;;
+            (*)
+                if [[ -z ${2} ]] || (( ${#argv} > 2 )) ; then
+                    printf 'usage: hl <syntax[:theme]> <file>\n'
+                    printf '    available options: --list (-l), --themes (-t), --help (-h)\n'
+                    (( ${#argv} > 2 )) && printf '  Too many arguments.\n'
+                    return 1
+                fi
+                lang=${1%:*}
+                [[ ${1} == *:* ]] && [[ -n ${1#*:} ]] && theme=${1#*:}
+                if [[ -n ${theme} ]] ; then
+                    highlight --xterm256 --syntax ${lang} --style ${theme} ${2} | less -SMr
+                else
+                    highlight --ansi --syntax ${lang} ${2} | less -SMr
+                fi
+                ;;
+        esac
+        return 0
+    }
+    # ... and a proper completion for hl()
+    # needs 'highlight' as well, so it fits fine in here.
+    function _hl_genarg()  {
+        local expl
+        if [[ -prefix 1 *: ]] ; then
+            local themes
+            themes=(${${${(f)"$(LC_ALL=C highlight --list-themes)"}/ #/}:#*(Installed|Use name)*})
+            compset -P 1 '*:'
+            _wanted -C list themes expl theme compadd ${themes}
+        else
+            local langs
+            langs=(${${${(f)"$(LC_ALL=C highlight --list-langs)"}/ #/}:#*(Installed|Use name)*})
+            _wanted -C list languages expl languages compadd -S ':' -q ${langs}
+        fi
+    }
+    function _hl_complete() {
+        _arguments -s '1: :_hl_genarg' '2:files:_path_files'
+    }
+    compdef _hl_complete hl
+fi
+
+# Create small urls via http://tinyurl.com using wget(1).
+function tinyurl() {
+    emulate -L zsh
+    [[ -z $1 ]] && { print "USAGE: tinyurl <URL>" ; return 1 }
+
+    local PN url tiny grabber search result preview
+    PN=$0
+    url=$1
+#   Check existence of given URL with the help of ping(1).
+#   N.B. ping(1) only works without an eventual given protocol.
+    ping -c 1 ${${url#(ftp|http)://}%%/*} >& /dev/null || \
+        read -q "?Given host ${${url#http://*/}%/*} is not reachable by pinging. Proceed anyway? [y|n] "
+
+    if (( $? == 0 )) ; then
+#           Prepend 'http://' to given URL where necessary for later output.
+            [[ ${url} != http(s|)://* ]] && url='http://'${url}
+            tiny='http://tinyurl.com/create.php?url='
+            if check_com -c wget ; then
+                grabber='wget -O- -o/dev/null'
+            else
+                print "wget is not available, but mandatory for ${PN}. Aborting."
+            fi
+#           Looking for i.e.`copy('http://tinyurl.com/7efkze')' in TinyURL's HTML code.
+            search='copy\(?http://tinyurl.com/[[:alnum:]]##*'
+            result=${(M)${${${(f)"$(${=grabber} ${tiny}${url})"}[(fr)${search}*]}//[()\';]/}%%http:*}
+#           TinyURL provides the rather new feature preview for more confidence. <http://tinyurl.com/preview.php>
+            preview='http://preview.'${result#http://}
+
+            printf '%s\n\n' "${PN} - Shrinking long URLs via webservice TinyURL <http://tinyurl.com>."
+            printf '%s\t%s\n\n' 'Given URL:' ${url}
+            printf '%s\t%s\n\t\t%s\n' 'TinyURL:' ${result} ${preview}
+    else
+        return 1
+    fi
+}
+
+#f2# Print a specific line of file(s).
+linenr () {
+# {{{
+    emulate -L zsh
+    if [ $# -lt 2 ] ; then
+       print "Usage: linenr <number>[,<number>] <file>" ; return 1
+    elif [ $# -eq 2 ] ; then
+         local number=$1
+         local file=$2
+         command ed -s $file <<< "${number}n"
+    else
+         local number=$1
+         shift
+         for file in "$@" ; do
+             if [ ! -d $file ] ; then
+                echo "${file}:"
+                command ed -s $file <<< "${number}n" 2> /dev/null
+             else
+                continue
+             fi
+         done | less
+    fi
+# }}}
+}
+
+# use it e.g. via 'Restart apache2'
+#m# f6 Start() \kbd{/etc/init.d/\em{process}}\quad\kbd{start}
+#m# f6 Restart() \kbd{/etc/init.d/\em{process}}\quad\kbd{restart}
+#m# f6 Stop() \kbd{/etc/init.d/\em{process}}\quad\kbd{stop}
+#m# f6 Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{reload}
+#m# f6 Force-Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{force-reload}
+if [[ -d /etc/init.d || -d /etc/service ]] ; then
+    __start_stop() {
+        local action_="${1:l}"  # e.g Start/Stop/Restart
+        local service_="$2"
+        local param_="$3"
+
+        local service_target_="$(readlink /etc/init.d/$service_)"
+        if [[ $service_target_ == "/usr/bin/sv" ]]; then
+            # runit
+            case "${action_}" in
+                start) if [[ ! -e /etc/service/$service_ ]]; then
+                           $SUDO ln -s "/etc/sv/$service_" "/etc/service/"
+                       else
+                           $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
+                       fi ;;
+                # there is no reload in runits sysv emulation
+                reload) $SUDO "/etc/init.d/$service_" "force-reload" "$param_" ;;
+                *) $SUDO "/etc/init.d/$service_" "${action_}" "$param_" ;;
+            esac
+        else
+            # sysvinit
+            $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
+        fi
+    }
+
+    for i in Start Restart Stop Force-Reload Reload ; do
+        eval "$i() { __start_stop $i \"\$1\" \"\$2\" ; }"
+    done
+fi
+
+# grep for running process, like: 'any vim'
+any() {
+    emulate -L zsh
+    if [[ -z "$1" ]] ; then
+        echo "any - grep for process(es) by keyword" >&2
+        echo "Usage: any <keyword>" >&2 ; return 1
+    else
+        local STRING=$1
+        local LENGTH=$(expr length $STRING)
+        local FIRSCHAR=$(echo $(expr substr $STRING 1 1))
+        local REST=$(echo $(expr substr $STRING 2 $LENGTH))
+        ps xauwww| grep "[$FIRSCHAR]$REST"
+    fi
+}
+
+# After resuming from suspend, system is paging heavily, 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() {
+    emulate -L zsh
+    [[ -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
+}
+
+# switches two files
+permute() {
+    F1=${1##*/}
+    cp $1 /tmp/$F1 && cp $2 $1 && mv /tmp/$F1 $2
+}
diff --git a/.zsh/rc/extra/15_misc_functions b/.zsh/rc/extra/15_misc_functions
new file mode 100644 (file)
index 0000000..fd74e70
--- /dev/null
@@ -0,0 +1,551 @@
+#!/bin/zsh
+
+# rename pictures based on information found in exif headers
+#f5# Rename pictures based on information found in exif headers
+exirename() {
+    emulate -L zsh
+    if [[ $# -lt 1 ]] ; then
+        echo 'Usage: jpgrename $FILES' >& 2
+        return 1
+    else
+        echo -n 'Checking for jhead with version newer than 1.9: '
+        jhead_version=`jhead -h | grep 'used by most Digital Cameras.  v.*' | awk '{print $6}' | tr -d v`
+        if [[ $jhead_version > '1.9' ]]; then
+            echo 'success - now running jhead.'
+            jhead -n%Y-%m-%d_%Hh%M_%f $*
+        else
+            echo 'failed - exiting.'
+        fi
+    fi
+}
+
+# get_ic() - queries imap servers for capabilities; real simple. no imaps
+ic_get() {
+    emulate -L zsh
+    local port
+    if [[ ! -z $1 ]] ; then
+        port=${2:-143}
+        print "querying imap server on $1:${port}...\n";
+        print "a1 capability\na2 logout\n" | nc $1 ${port}
+    else
+        print "usage:\n  $0 <imap-server> [port]"
+    fi
+}
+
+# creates a Maildir/ with its {new,cur,tmp} subdirs
+mkmaildir() {
+    emulate -L zsh
+    local root subdir
+    root=${MAILDIR_ROOT:-${HOME}/Mail}
+    if [[ -z ${1} ]] ; then print "Usage:\n $0 <dirname>" ; return 1 ; fi
+    subdir=${1}
+    mkdir -p ${root}/${subdir}/{cur,new,tmp}
+}
+
+#f5# Change the xterm title from within GNU-screen
+xtrename() {
+    emulate -L zsh
+    if [[ $1 != "-f" ]] ; then
+        if [[ -z ${DISPLAY} ]] ; then
+            printf 'xtrename only makes sense in X11.\n'
+            return 1
+        fi
+    else
+        shift
+    fi
+    if [[ -z $1 ]] ; then
+        printf 'usage: xtrename [-f] "title for xterm"\n'
+        printf '  renames the title of xterm from _within_ screen.\n'
+        printf '  also works without screen.\n'
+        printf '  will not work if DISPLAY is unset, use -f to override.\n'
+        return 0
+    fi
+    print -n "\eP\e]0;${1}\C-G\e\\"
+    return 0
+}
+
+#f2# Find history events by search pattern and list them by date.
+whatwhen()  {
+# {{{
+    emulate -L zsh
+    local usage help ident format_l format_s first_char remain first last
+    usage='USAGE: whatwhen [options] <searchstring> <search range>'
+    help='Use' \`'whatwhen -h'\'' for further explanations.'
+    ident=${(l,${#${:-Usage: }},, ,)}
+    format_l="${ident}%s\t\t\t%s\n"
+    format_s="${format_l//(\\t)##/\\t}"
+    # Make the first char of the word to search for case
+    # insensitive; e.g. [aA]
+    first_char=[${(L)1[1]}${(U)1[1]}]
+    remain=${1[2,-1]}
+    # Default search range is `-100'.
+    first=${2:-\-100}
+    # Optional, just used for `<first> <last>' given.
+    last=$3
+    case $1 in
+        ("")
+            printf '%s\n\n' 'ERROR: No search string specified. Aborting.'
+            printf '%s\n%s\n\n' ${usage} ${help} && return 1
+        ;;
+        (-h)
+            printf '%s\n\n' ${usage}
+            print 'OPTIONS:'
+            printf $format_l '-h' 'show help text'
+            print '\f'
+            print 'SEARCH RANGE:'
+            printf $format_l "'0'" 'the whole history,'
+            printf $format_l '-<n>' 'offset to the current history number; (default: -100)'
+            printf $format_s '<[-]first> [<last>]' 'just searching within a give range'
+            printf '\n%s\n' 'EXAMPLES:'
+            printf ${format_l/(\\t)/} 'whatwhen grml' '# Range is set to -100 by default.'
+            printf $format_l 'whatwhen zsh -250'
+            printf $format_l 'whatwhen foo 1 99'
+        ;;
+        (\?)
+            printf '%s\n%s\n\n' ${usage} ${help} && return 1
+        ;;
+        (*)
+            # -l list results on stout rather than invoking $EDITOR.
+            # -i Print dates as in YYYY-MM-DD.
+            # -m Search for a - quoted - pattern within the history.
+            fc -li -m "*${first_char}${remain}*" $first $last
+        ;;
+    esac
+# }}}
+}
+
+# change fluxbox keys from 'Alt-#' to 'Alt-F#' and vice versa
+fluxkey-change() {
+    emulate -L zsh
+    [[ -n "$FLUXKEYS" ]] || local FLUXKEYS="$HOME/.fluxbox/keys"
+    if ! [[ -r "$FLUXKEYS" ]] ; then
+        echo "Sorry, \$FLUXKEYS file $FLUXKEYS could not be read - nothing to be done."
+        return 1
+    else
+        if grep -q 'Mod1 F[0-9] :Workspace [0-9]' $FLUXKEYS ; then
+            echo -n 'Switching to Alt-# mode in ~/.fluxbox/keys: '
+            sed -i -e 's|^\(Mod[0-9]\+[: space :]\+\)F\([0-9]\+[: space :]\+:Workspace.*\)|\1\2|' $FLUXKEYS && echo done || echo failed
+        elif grep -q 'Mod1 [0-9] :Workspace [0-9]' $FLUXKEYS ; then
+            echo -n 'Switching to Alt-F# mode in ~/.fluxbox/keys: '
+            sed -i -e 's|^\(Mod[0-9]\+[: space :]\+\)\([0-9]\+[: space :]\+:Workspace.*\)|\1F\2|' $FLUXKEYS && echo done || echo failed
+        else
+            echo 'Sorry, do not know what to do.'
+            return 1
+        fi
+    fi
+}
+
+# retrieve weather information on the console
+# Usage example: 'weather LOWG'
+weather() {
+    emulate -L zsh
+    [ $1 = "-v" ] && local VERBOSE=1 && shift
+    [[ -n "$1" ]] || {
+        print 'Usage: weather [-v] <station_id>' >&2
+        print 'List of stations: http://en.wikipedia.org/wiki/List_of_airports_by_ICAO_code'>&2
+        print 'With -v, displays everything' >&2
+        return 1
+    }
+
+    local PLACE="${1:u}"
+    local FILE="$HOME/.weather/$PLACE"
+    local LOG="$HOME/.weather/log"
+
+    [[ -d $HOME/.weather ]] || {
+        print -n "Creating $HOME/.weather: "
+        mkdir $HOME/.weather
+        print 'done'
+    }
+
+    print "Retrieving information for ${PLACE}:"
+    print
+    wget -T 10 --no-verbose --output-file=$LOG --output-document=$FILE --timestamping http://weather.noaa.gov/pub/data/observations/metar/decoded/$PLACE.TXT
+
+    if [[ $? -eq 0 ]] ; then
+        if [[ -n "$VERBOSE" ]] ; then
+            cat $FILE
+        else
+            DATE=$(grep 'UTC' $FILE | sed 's#.* /##')
+            TEMPERATURE=$(awk '/Temperature/ { print $4" degree Celcius / " $2" degree Fahrenheit" }' $FILE| tr -d '(')
+            echo "date: $DATE"
+            echo "temp: $TEMPERATURE"
+        fi
+    else
+        print "There was an error retrieving the weather information for $PLACE" >&2
+        cat $LOG
+        return 1
+    fi
+}
+
+# d():Copyright 2005 Nikolai Weibull <nikolai@bitwi.se>
+# note: option AUTO_PUSHD has to be set
+#f5# Jump between directories
+d() {
+    emulate -L zsh
+    autoload -U colors
+    local color=$fg_bold[blue]
+    integer i=0
+    dirs -p | while read dir; do
+        local num="${$(printf "%-4d " $i)/ /.}"
+        printf " %s  $color%s$reset_color\n" $num $dir
+        (( i++ ))
+    done
+    integer dir=-1
+    read -r 'dir?Jump to directory: ' || return
+    (( dir == -1 )) && return
+    if (( dir < 0 || dir >= i )); then
+        echo d: no such directory stack entry: $dir
+        return 1
+    fi
+    cd ~$dir
+}
+
+#f5# Copied diff
+cdiff() {
+    emulate -L zsh
+    diff -crd "$*" | egrep -v "^Only in |^Binary files "
+}
+#f5# Disassemble source files using gcc and as
+disassemble(){
+    emulate -L zsh
+    gcc -pipe -S -o - -O -g $* | as -aldh -o /dev/null
+}
+#f5# Firefox remote control - open given URL
+fir() {
+    if [ -e /etc/debian_version ]; then
+        firefox -a iceweasel -remote "openURL($1)" || firefox ${1}&
+    else
+        firefox -a firefox -remote "openURL($1)" || firefox ${1}&
+    fi
+}
+#f5# Unified diff to timestamped outputfile
+mdiff() {
+    diff -udrP "$1" "$2" > diff.`date "+%Y-%m-%d"`."$1"
+}
+#f5# Show contents of gzipped tar file
+shtar() {
+    emulate -L zsh
+    gunzip -c $1 | tar -tf - -- | $PAGER
+}
+#f5# Show contents of zip file
+shzip() {
+    emulate -L zsh
+    unzip -l $1 | $PAGER
+}
+#f5# Unified diff
+udiff() {
+    emulate -L zsh
+    diff -urd $* | egrep -v "^Only in |^Binary files "
+}
+#f5# (Mis)use \kbd{vim} as \kbd{less}
+viless() {
+    emulate -L zsh
+    vim --cmd 'let no_plugin_maps = 1' -c "so \$VIMRUNTIME/macros/less.vim" "${@:--}"
+}
+
+# Function Usage: uopen $URL/$file
+#f5# Download a file and display it locally
+uopen() {
+    emulate -L zsh
+    if ! [[ -n "$1" ]] ; then
+        print "Usage: uopen \$URL/\$file">&2
+        return 1
+    else
+        FILE=$1
+        MIME=$(curl --head $FILE | grep Content-Type | cut -d ' ' -f 2 | cut -d\; -f 1)
+        MIME=${MIME%$'\r'}
+        curl $FILE | see ${MIME}:-
+    fi
+}
+
+#f5# Make screenshot
+sshot() {
+    [[ ! -d ~/shots  ]] && mkdir ~/shots
+    #cd ~/shots ; sleep 5 ; import -window root -depth 8 -quality 80 `date "+%Y-%m-%d--%H:%M:%S"`.png
+    cd ~/shots ; sleep 5; import -window root shot_`date --iso-8601=m`.jpg
+}
+
+# list images only
+limg() {
+    local -a images
+    images=( *.{jpg,gif,png}(.N) )
+
+    if [[ $#images -eq 0 ]] ; then
+        print "No image files found"
+    else
+        ls "$images[@]"
+    fi
+}
+
+#f5# Create PDF file from source code
+makereadable() {
+    emulate -L zsh
+    output=$1
+    shift
+    a2ps --medium A4dj -E -o $output $*
+    ps2pdf $output
+}
+
+# zsh with perl-regex - use it e.g. via:
+# regcheck '\s\d\.\d{3}\.\d{3} Euro' ' 1.000.000 Euro'
+#f5# Checks whether a regex matches or not.\\&\quad Example: \kbd{regcheck '.\{3\} EUR' '500 EUR'}
+regcheck() {
+    emulate -L zsh
+    zmodload -i zsh/pcre
+    pcre_compile $1 && \
+    pcre_match $2 && echo "regex matches" || echo "regex does not match"
+}
+
+#f5# List files which have been changed within the last {\it n} days, {\it n} defaults to 1
+changed() {
+    emulate -L zsh
+    print -l *(c-${1:1})
+}
+
+#f5# List files which have been modified within the last {\it n} days, {\it n} defaults to 1
+new() {
+    emulate -L zsh
+    print -l *(m-${1:1})
+}
+
+# just press 'asdf' keys to toggle between dvorak and us keyboard layout
+aoeu() {
+    echo -n 'Switching to us keyboard layout: '
+    [[ -z "$DISPLAY" ]] && $SUDO loadkeys us &>/dev/null || setxkbmap us &>/dev/null
+    echo 'Done'
+}
+asdf() {
+    echo -n 'Switching to dvorak keyboard layout: '
+    [[ -z "$DISPLAY" ]] && $SUDO loadkeys dvorak &>/dev/null || setxkbmap dvorak &>/dev/null
+    echo 'Done'
+}
+# just press 'asdf' key to toggle from neon layout to us keyboard layout
+uiae() {
+    echo -n 'Switching to us keyboard layout: '
+    setxkbmap us && echo 'Done' || echo 'Failed'
+}
+
+# set up an ipv6 tunnel
+ipv6-tunnel() {
+    emulate -L zsh
+    case $1 in
+        start)
+            if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
+                print 'ipv6 tunnel already set up, nothing to be done.'
+                print 'execute: "ifconfig sit1 down ; ifconfig sit0 down" to remove ipv6-tunnel.' ; return 1
+            else
+                [[ -n "$PUBLIC_IP" ]] || \
+                    local PUBLIC_IP=$(ifconfig $(route -n | awk '/^0\.0\.0\.0/{print $8; exit}') | \
+                                      awk '/inet addr:/ {print $2}' | tr -d 'addr:')
+
+                [[ -n "$PUBLIC_IP" ]] || { print 'No $PUBLIC_IP set and could not determine default one.' ; return 1 }
+                local IPV6ADDR=$(printf "2002:%02x%02x:%02x%02x:1::1" $(print ${PUBLIC_IP//./ }))
+                print -n "Setting up ipv6 tunnel $IPV6ADDR via ${PUBLIC_IP}: "
+                ifconfig sit0 tunnel ::192.88.99.1 up
+                ifconfig sit1 add "$IPV6ADDR" && print done || print failed
+            fi
+            ;;
+        status)
+            if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
+                print 'ipv6 tunnel available' ; return 0
+            else
+                print 'ipv6 tunnel not available' ; return 1
+            fi
+            ;;
+        stop)
+            if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
+                print -n 'Stopping ipv6 tunnel (sit0 + sit1): '
+                ifconfig sit1 down ; ifconfig sit0 down && print done || print failed
+            else
+                print 'No ipv6 tunnel found, nothing to be done.' ; return 1
+            fi
+            ;;
+        *)
+            print "Usage: ipv6-tunnel [start|stop|status]">&2 ; return 1
+            ;;
+    esac
+}
+
+# run dhclient for wireless device
+iwclient() {
+    salias dhclient "$(wavemon -d | awk '/device/{print $2}')"
+}
+
+# spawn a minimally set up mksh - useful if you want to umount /usr/.
+minimal-shell() {
+    emulate -L zsh
+    local shell="/bin/mksh"
+
+    if [[ ! -x ${shell} ]]; then
+        printf '`%s'\'' not available, giving up.\n' ${shell} >&2
+        return 1
+    fi
+
+    exec env -i ENV="/etc/minimal-shellrc" HOME="$HOME" TERM="$TERM" ${shell}
+}
+
+#f1# grep for patterns in grml's zsh setup
+zg() {
+#{{{
+    LANG=C perl -e '
+
+sub usage {
+    print "usage: zg -[anr] <pattern>\n";
+    print " Search for patterns in grml'\''s zshrc.\n";
+    print " zg takes no or exactly one option plus a non empty pattern.\n\n";
+    print "   options:\n";
+    print "     --  no options (use if your pattern starts in with a dash.\n";
+    print "     -a  search for the pattern in all code regions\n";
+    print "     -n  search for the pattern in non-root code only\n";
+    print "     -r  search in code for everyone (also root) only\n\n";
+    print "   The default is -a for non-root users and -r for root.\n\n";
+    print " If you installed the zshrc to a non-default locations (ie *NOT*\n";
+    print " in /etc/zsh/zshrc) do: export GRML_ZSHRC=\$HOME/.zshrc\n";
+    print " ...in case you copied the file to that location.\n\n";
+    exit 1;
+}
+
+if ($ENV{GRML_ZSHRC} ne "") {
+    $RC = $ENV{GRML_ZSHRC};
+} else {
+    $RC = "/etc/zsh/zshrc";
+}
+
+usage if ($#ARGV < 0 || $#ARGV > 1);
+if ($> == 0) { $mode = "allonly"; }
+else { $mode = "all"; }
+
+$opt = $ARGV[0];
+if ($opt eq "--")     { shift; }
+elsif ($opt eq "-a")  { $mode = "all"; shift; }
+elsif ($opt eq "-n")  { $mode = "nonroot"; shift; }
+elsif ($opt eq "-r" ) { $mode = "allonly"; shift; }
+elsif ($opt =~ m/^-/ || $#ARGV > 0) { usage(); }
+
+$pattern = $ARGV[0];
+usage() if ($pattern eq "");
+
+open FH, "<$RC" or die "zg: Could not open $RC: $!\n";
+while ($line = <FH>) {
+    chomp $line;
+    if ($line =~ m/^#:grep:marker:for:mika:/) { $markerfound = 1; next; }
+    next if ($mode eq "nonroot" && markerfound == 0);
+    break if ($mode eq "allonly" && markerfound == 1);
+    print $line, "\n" if ($line =~ /$pattern/);
+}
+close FH;
+exit 0;
+
+    ' -- "$@"
+#}}}
+    return $?
+}
+
+# {{{ wonderful idea of using "e" glob qualifier by Peter Stephenson
+# You use it as follows:
+# $ NTREF=/reference/file
+# $ ls -l *(e:nt:)
+# This lists all the files in the current directory newer than the reference file.
+# You can also specify the reference file inline; note quotes:
+# $ ls -l *(e:'nt ~/.zshenv':)
+nt() {
+    if [[ -n $1 ]] ; then
+        local NTREF=${~1}
+    fi
+    [[ $REPLY -nt $NTREF ]]
+}
+# }}}
+
+# shell functions {{{
+
+#f1# Provide csh compatibility
+setenv()  { typeset -x "${1}${1:+=}${(@)argv[2,$#]}" }  # csh compatibility
+
+#f1# Reload an autoloadable function
+freload() { while (( $# )); do; unfunction $1; autoload -U $1; shift; done }
+compdef _functions freload
+
+#f1# 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 file in "$@" ; do
+        while [[ -h "$file" ]] ; do
+            ls -l $file
+            file=$(readlink "$file")
+        done
+    done
+}
+
+# fast manual access
+if check_com qma ; then
+    #f1# View the zsh manual
+    manzsh()  { qma zshall "$1" }
+    compdef _man qma
+else
+    manzsh()  { /usr/bin/man zshall |  vim -c "se ft=man| se hlsearch" +/"$1" - ; }
+fi
+
+# zsh profiling
+profile() {
+    ZSH_PROFILE_RC=1 $SHELL "$@"
+}
+
+#f1# Edit an alias via zle
+edalias() {
+    [[ -z "$1" ]] && { echo "Usage: edalias <alias_to_edit>" ; return 1 } || vared aliases'[$1]' ;
+}
+compdef _aliases edalias
+
+#f1# Edit a function via zle
+edfunc() {
+    [[ -z "$1" ]] && { echo "Usage: edfun <function_to_edit>" ; return 1 } || zed -f "$1" ;
+}
+compdef _functions edfunc
+
+#f1# Provides useful information on globbing
+H-Glob() {
+    echo -e "
+    /      directories
+    .      plain files
+    @      symbolic links
+    =      sockets
+    p      named pipes (FIFOs)
+    *      executable plain files (0100)
+    %      device files (character or block special)
+    %b     block special files
+    %c     character special files
+    r      owner-readable files (0400)
+    w      owner-writable files (0200)
+    x      owner-executable files (0100)
+    A      group-readable files (0040)
+    I      group-writable files (0020)
+    E      group-executable files (0010)
+    R      world-readable files (0004)
+    W      world-writable files (0002)
+    X      world-executable files (0001)
+    s      setuid files (04000)
+    S      setgid files (02000)
+    t      files with the sticky bit (01000)
+
+  print *(m-1)          # Files modified up to a day ago
+  print *(a1)           # Files accessed a day ago
+  print *(@)            # Just symlinks
+  print *(Lk+50)        # Files bigger than 50 kilobytes
+  print *(Lk-50)        # Files smaller than 50 kilobytes
+  print **/*.c          # All *.c files recursively starting in \$PWD
+  print **/*.c~file.c   # Same as above, but excluding 'file.c'
+  print (foo|bar).*     # Files starting with 'foo' or 'bar'
+  print *~*.*           # All Files that do not contain a dot
+  chmod 644 *(.^x)      # make all plain non-executable files publically readable
+  print -l *(.c|.h)     # Lists *.c and *.h
+  print **/*(g:users:)  # Recursively match all files that are owned by group 'users'
+  echo /proc/*/cwd(:h:t:s/self//) # Analogous to >ps ax | awk '{print $1}'<"
+}
+alias help-zshglob=H-Glob #dépendant du truc au dessus
+
+function swapfiles(){
+    TMPF="/tmp/tmp.$$"
+    mv -f $1 $TMPF
+    mv -f $2 $1
+    mv -f $TMPF $2
+}
diff --git a/.zsh/rc/extra/20_search_engines_tools b/.zsh/rc/extra/20_search_engines_tools
new file mode 100644 (file)
index 0000000..917927f
--- /dev/null
@@ -0,0 +1,96 @@
+#!/bin/zsh
+
+# searching
+#f4# Search for newspostings from authors
+agoogle() { ${=BROWSER} "http://groups.google.com/groups?as_uauthors=$*" ; }
+#f4# Search Debian Bug Tracking System
+debbug()  {
+    emulate -L zsh
+    setopt extendedglob
+    if [[ $# -eq 1 ]]; then
+        case "$1" in
+            ([0-9]##)
+            ${=BROWSER} "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$1"
+            ;;
+            (*@*)
+            ${=BROWSER} "http://bugs.debian.org/cgi-bin/pkgreport.cgi?submitter=$1"
+            ;;
+            (*)
+            ${=BROWSER} "http://bugs.debian.org/$*"
+            ;;
+        esac
+    else
+        print "$0 needs one argument"
+        return 1
+    fi
+}
+#f4# Search Debian Bug Tracking System in mbox format
+debbugm() {
+    emulate -L zsh
+    bts show --mbox $1
+}
+#f4# Search DMOZ
+dmoz()    {
+    emulate -L zsh
+    ${=BROWSER} http://search.dmoz.org/cgi-bin/search\?search=${1// /_}
+}
+#f4# Search German   Wiktionary
+dwicti()  {
+    emulate -L zsh
+    ${=BROWSER} http://de.wiktionary.org/wiki/${(C)1// /_}
+}
+#f4# Search English  Wiktionary
+ewicti()  {
+    emulate -L zsh
+    ${=BROWSER} http://en.wiktionary.org/wiki/${(C)1// /_}
+}
+#f4# Search Google Groups
+ggogle()  {
+    emulate -L zsh
+    ${=BROWSER} "http://groups.google.com/groups?q=$*"
+}
+#f4# Search Google
+google()  {
+    emulate -L zsh
+    ${=BROWSER} "http://www.google.com/search?&num=100&q=$*"
+}
+#f4# Search Google Groups for MsgID
+mggogle() {
+    emulate -L zsh
+    ${=BROWSER} "http://groups.google.com/groups?selm=$*"
+}
+#f4# Search Netcraft
+netcraft(){
+    emulate -L zsh
+    ${=BROWSER} "http://toolbar.netcraft.com/site_report?url=$1"
+}
+#f4# Use German Wikipedia's full text search
+swiki()   {
+    emulate -L zsh
+    ${=BROWSER} http://de.wikipedia.org/wiki/Spezial:Search/${(C)1}
+}
+#f4# search \kbd{dict.leo.org}
+oleo()    {
+    emulate -L zsh
+    ${=BROWSER} "http://dict.leo.org/?search=$*"
+}
+#f4# Search German   Wikipedia
+wikide()  {
+    emulate -L zsh
+    ${=BROWSER} http://de.wikipedia.org/wiki/"${(C)*}"
+}
+#f4# Search English  Wikipedia
+wikien()  {
+    emulate -L zsh
+    ${=BROWSER} http://en.wikipedia.org/wiki/"${(C)*}"
+}
+#f4# Search official debs
+wodeb()   {
+    emulate -L zsh
+    ${=BROWSER} "http://packages.debian.org/search?keywords=$1&searchon=contents&suite=${2:=unstable}&section=all"
+}
+
+#m# f4 gex() Exact search via Google
+check_com google && gex () {
+    google "\"[ $1]\" $*"
+}
diff --git a/.zsh/rc/extra/20_ssl_tools b/.zsh/rc/extra/20_ssl_tools
new file mode 100644 (file)
index 0000000..1ff51c8
--- /dev/null
@@ -0,0 +1,57 @@
+#!/bin/zsh
+
+ssl_hashes=( sha512 sha256 sha1 md5 )
+
+for sh in ${ssl_hashes}; do
+    ssl-cert-${sh}() {
+        emulate -L zsh
+        if [[ -z $1 ]] ; then
+            printf 'usage: %s <file>\n' "ssh-cert-${sh}"
+            return 1
+        fi
+        openssl x509 -noout -fingerprint -${sh} -in $1
+    }
+done; unset sh
+
+ssl-cert-fingerprints() {
+    emulate -L zsh
+    local i
+    if [[ -z $1 ]] ; then
+        printf 'usage: ssl-cert-fingerprints <file>\n'
+        return 1
+    fi
+    for i in ${ssl_hashes}
+        do ssl-cert-$i $1;
+    done
+}
+
+ssl-cert-info() {
+    emulate -L zsh
+    if [[ -z $1 ]] ; then
+        printf 'usage: ssl-cert-info <file>\n'
+        return 1
+    fi
+    openssl x509 -noout -text -in $1
+    ssl-cert-fingerprints $1
+}
+
+# I hate lacking backward compatibility, so provide an alternative therefore
+if ! check_com -c apache2-ssl-certificate ; then
+
+    apache2-ssl-certificate() {
+
+    print 'Debian does not ship apache2-ssl-certificate anymore (see #398520). :('
+    print 'You might want to take a look at Debian the package ssl-cert as well.'
+    print 'To generate a certificate for use with apache2 follow the instructions:'
+
+    echo '
+
+export RANDFILE=/dev/random
+mkdir /etc/apache2/ssl/
+openssl req $@ -new -x509 -days 365 -nodes -out /etc/apache2/ssl/apache.pem -keyout /etc/apache2/ssl/apache.pem
+chmod 600 /etc/apache2/ssl/apache.pem
+
+Run "grml-tips ssl-certificate" if you need further instructions.
+'
+    }
+fi
diff --git a/.zsh/rc/extra/30_misc b/.zsh/rc/extra/30_misc
new file mode 100644 (file)
index 0000000..742132a
--- /dev/null
@@ -0,0 +1,8 @@
+#!/bin/zsh
+
+# "persistent history" {{{
+# just write important commands you always need to ~/.important_commands
+if [[ -r ~/.important_commands ]] ; then
+    fc -R ~/.important_commands
+fi
+# }}}
diff --git a/.zsh/rc/extra/98_useless b/.zsh/rc/extra/98_useless
new file mode 100644 (file)
index 0000000..373df28
--- /dev/null
@@ -0,0 +1,305 @@
+#!/bin/zsh
+
+# Found in the mailinglistarchive from Zsh (IIRC ~1996)
+#f5# Select items for specific command(s) from history
+selhist() {
+    emulate -L zsh
+    local TAB=$'\t';
+    (( $# < 1 )) && {
+        echo "Usage: $0 command"
+        return 1
+    };
+    cmd=(${(f)"$(grep -w $1 $HISTFILE | sort | uniq | pr -tn)"})
+    print -l $cmd | less -F
+    echo -n "enter number of desired command [1 - $(( ${#cmd[@]} - 1 ))]: "
+    local answer
+    read answer
+    print -z "${cmd[$answer]#*$TAB}"
+}
+
+# Use vim to convert plaintext to HTML
+#f5# Transform files to html with highlighting
+2html() {
+    emulate -L zsh
+    vim -u NONE -n -c ':syntax on' -c ':so $VIMRUNTIME/syntax/2html.vim' -c ':wqa' $1 &>/dev/null
+}
+
+# function readme() { $PAGER -- (#ia3)readme* }
+#f5# View all README-like files in current directory in pager
+readme() {
+    emulate -L zsh
+    local files
+    files=(./(#i)*(read*me|lue*m(in|)ut)*(ND))
+    if (($#files)) ; then
+        $PAGER $files
+    else
+        print 'No README files.'
+    fi
+}
+
+# function ansi-colors()
+#f5# Display ANSI colors
+ansi-colors() {
+    typeset esc="\033[" line1 line2
+    echo " _ _ _40 _ _ _41_ _ _ _42 _ _ 43_ _ _ 44_ _ _45 _ _ _ 46_ _ _ 47_ _ _ 49_ _"
+    for fore in 30 31 32 33 34 35 36 37; do
+        line1="$fore "
+        line2="   "
+        for back in 40 41 42 43 44 45 46 47 49; do
+            line1="${line1}${esc}${back};${fore}m Normal ${esc}0m"
+            line2="${line2}${esc}${back};${fore};1m Bold   ${esc}0m"
+        done
+        echo -e "$line1\n$line2"
+    done
+}
+
+# % slow_print `cat /etc/passwd`
+#f5# Slowly print out parameters
+slow_print() {
+    for argument in "$@" ; do
+        for ((i = 1; i <= ${#1} ;i++)) ; do
+            print -n "${argument[i]}"
+            sleep 0.08
+        done
+        print -n " "
+    done
+    print ""
+}
+
+# Rip an audio CD
+#f5# Rip an audio CD
+audiorip() {
+    mkdir -p ~/ripps
+    cd ~/ripps
+    cdrdao read-cd --device $DEVICE --driver generic-mmc audiocd.toc
+    cdrdao read-cddb --device $DEVICE --driver generic-mmc audiocd.toc
+    echo " * Would you like to burn the cd now? (yes/no)"
+    read input
+    if [[ "$input" = "yes" ]] ; then
+        echo " ! Burning Audio CD"
+        audioburn
+        echo " * done."
+    else
+        echo " ! Invalid response."
+    fi
+}
+
+# and burn it
+#f5# Burn an audio CD (in combination with audiorip)
+audioburn() {
+    cd ~/ripps
+    cdrdao write --device $DEVICE --driver generic-mmc audiocd.toc
+    echo " * Should I remove the temporary files? (yes/no)"
+    read input
+    if [[ "$input" = "yes" ]] ; then
+        echo " ! Removing Temporary Files."
+        cd ~
+        rm -rf ~/ripps
+        echo " * done."
+    else
+        echo " ! Invalid response."
+    fi
+}
+
+#f5# Make an audio CD from all mp3 files
+mkaudiocd() {
+    # TODO: do the renaming more zshish, possibly with zmv()
+    emulate -L zsh
+    cd ~/ripps
+    for i in *.[Mm][Pp]3; do mv "$i" `echo $i | tr '[A-Z]' '[a-z]'`; done
+    for i in *.mp3; do mv "$i" `echo $i | tr ' ' '_'`; done
+    for i in *.mp3; do mpg123 -w `basename $i .mp3`.wav $i; done
+    normalize -m *.wav
+    for i in *.wav; do sox $i.wav -r 44100 $i.wav resample; done
+}
+
+#f5# Create an ISO image. You are prompted for\\&\quad volume name, filename and directory
+mkiso() {
+    emulate -L zsh
+    echo " * Volume name "
+    read volume
+    echo " * ISO Name (ie. tmp.iso)"
+    read iso
+    echo " * Directory or File"
+    read files
+    mkisofs -o ~/$iso -A $volume -allow-multidot -J -R -iso-level 3 -V $volume -R $files
+}
+
+#f5# Simple thumbnails generator
+genthumbs() {
+    rm -rf thumb-* index.html
+    echo "
+<html>
+  <head>
+    <title>Images</title>
+  </head>
+  <body>" > index.html
+    for f in *.(gif|jpeg|jpg|png) ; do
+        convert -size 100x200 "$f" -resize 100x200 thumb-"$f"
+        echo "    <a href=\"$f\"><img src=\"thumb-$f\"></a>" >> index.html
+    done
+    echo "
+  </body>
+</html>" >> index.html
+}
+
+#f5# Set all ulimit parameters to \kbd{unlimited}
+allulimit() {
+    ulimit -c unlimited
+    ulimit -d unlimited
+    ulimit -f unlimited
+    ulimit -l unlimited
+    ulimit -n unlimited
+    ulimit -s unlimited
+    ulimit -t unlimited
+}
+
+# ogg2mp3 with bitrate of 192
+ogg2mp3_192() {
+    emulate -L zsh
+    oggdec -o - $1 | lame -b 192 - ${1:r}.mp3
+}
+
+#f5# Install x-lite (VoIP software)
+getxlite() {
+    emulate -L zsh
+    setopt errreturn
+    [[ -d ~/tmp ]] || mkdir ~/tmp
+    cd ~/tmp
+
+    echo "Downloading http://www.counterpath.com/download/X-Lite_Install.tar.gz and storing it in ~/tmp:"
+    if wget http://www.counterpath.com/download/X-Lite_Install.tar.gz ; then
+        unp X-Lite_Install.tar.gz && echo done || echo failed
+    else
+        echo "Error while downloading." ; return 1
+    fi
+
+    if [[ -x xten-xlite/xtensoftphone ]] ; then
+        echo "Execute xten-xlite/xtensoftphone to start xlite."
+    fi
+}
+
+#f5# Install skype
+getskype() {
+    emulate -L zsh
+    setopt errreturn
+    echo "Downloading debian package of skype."
+    echo "Notice: If you want to use a more recent skype version run 'getskypebeta'."
+    wget http://www.skype.com/go/getskype-linux-deb
+    $SUDO dpkg -i skype*.deb && echo "skype installed."
+}
+
+#f5# Install beta-version of skype
+getskypebeta() {
+    emulate -L zsh
+    setopt errreturn
+    echo "Downloading debian package of skype (beta version)."
+    wget http://www.skype.com/go/getskype-linux-beta-deb
+    $SUDO dpkg -i skype-beta*.deb && echo "skype installed."
+}
+
+#f5# Install gizmo (VoIP software)
+getgizmo() {
+    emulate -L zsh
+    setopt errreturn
+    echo "libgtk2.0-0, gconf2, libstdc++6, libasound2 and zlib1g have to be available. Installing."
+    $SUDO apt-get update
+    $SUDO apt-get install libgtk2.0-0 gconf2 libstdc++6 libasound2 zlib1g
+    wget "$(lynx --dump http://gizmo5.com/pc/download/linux/ | awk '/libstdc\+\+6.*\.deb/ {print $2}')"
+    $SUDO dpkg -i gizmo-project*.deb && echo "gizmo installed."
+}
+
+#f5# Get and run AIR (Automated Image and Restore)
+getair() {
+    emulate -L zsh
+    setopt errreturn
+    [[ -w . ]] || { echo 'Error: you do not have write permissions in this directory. Exiting.' ; return 1 }
+    local VER='1.2.8'
+    wget http://puzzle.dl.sourceforge.net/sourceforge/air-imager/air-$VER.tar.gz
+    tar zxf air-$VER.tar.gz
+    cd air-$VER
+    INTERACTIVE=no $SUDO ./install-air-1.2.8
+    [[ -x /usr/local/bin/air ]] && [[ -n "$DISPLAY" ]] && $SUDO air
+}
+
+# http://strcat.de/blog/index.php?/archives/335-Software-sauber-deinstallieren...html
+#f5# Log 'make install' output
+mmake() {
+    emulate -L zsh
+    [[ ! -d ~/.errorlogs ]] && mkdir ~/.errorlogs
+    make -n install > ~/.errorlogs/${PWD##*/}-makelog
+}
+
+# usage example: 'lcheck strcpy'
+#f5# Find out which libs define a symbol
+lcheck() {
+    if [[ -n "$1" ]] ; then
+        nm -go /usr/lib/lib*.a 2>/dev/null | grep ":[[:xdigit:]]\{8\} . .*$1"
+    else
+        echo "Usage: lcheck <function>" >&2
+    fi
+}
+
+# make sure it is not assigned yet
+[[ -n ${aliases[utf2iso]} ]] && unalias utf2iso
+utf2iso() {
+    if isutfenv ; then
+        for ENV in $(env | command grep -i '.utf') ; do
+            eval export "$(echo $ENV | sed 's/UTF-8/iso885915/ ; s/utf8/iso885915/')"
+        done
+    fi
+}
+
+# make sure it is not assigned yet
+[[ -n ${aliases[iso2utf]} ]] && unalias iso2utf
+iso2utf() {
+    if ! isutfenv ; then
+        for ENV in $(env | command grep -i '\.iso') ; do
+            eval export "$(echo $ENV | sed 's/iso.*/UTF-8/ ; s/ISO.*/UTF-8/')"
+        done
+    fi
+}
+
+# if cdrecord is a symlink (to wodim) or isn't present at all warn:
+if [[ -L /usr/bin/cdrecord ]] || ! check_com -c cdrecord; then
+    if check_com -c wodim; then
+        cdrecord() {
+            cat <<EOMESS
+cdrecord is not provided under its original name by Debian anymore.
+See #377109 in the BTS of Debian for more details.
+
+Please use the wodim binary instead
+EOMESS
+            return 1
+        }
+    fi
+fi
+
+# get_tw_cli has been renamed into get_3ware
+if check_com -c 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
+
+###############################
+#   When I was young…         #
+###############################
+
+stp() {
+    COMMAND=$(tail -n 2 ~/.zsh/history-$h | head -n 1)
+    COMMAND=${COMMAND#*;}
+    COMMAND=$(echo $COMMAND | sed -e "s/^sudo //")
+    echo "sudo ${COMMAND}" | zsh
+}
+
+mytest() {
+    key="${1%\=*}" ;  val="${1#*\=}"
+    strictkey="${1%%\=*}" ; strictval="${1##*\=}"
+    arg="${1%\=}"
+    echo "Key : ${key}"
+    echo "Val : ${val}"
+    echo "Arg : ${arg}"
+}
+
diff --git a/.zsh/rc/local/03_profiling b/.zsh/rc/local/03_profiling
new file mode 100644 (file)
index 0000000..4a9feda
--- /dev/null
@@ -0,0 +1,28 @@
+#!/bin/zsh
+# Ce fichier contient des profils qui peuvent être chargés à la volée quand vous arrivez dans des dossiers
+# spécifiques. Les lignes zstyle ne comprennent pas les variables genre ${HOME}, etc.
+#
+# Attention, si vous êtes dans /usr/scripts, et que vous allez dans lc_ldap, il ne rechargera pas de profil
+# car le nom du profil est le même.
+# Il faut donc créer des sous-profils pour les dépôts git différents.
+
+chpwd_profile_default(){
+    [[ ${profile} == ${CHPWD_PROFILE} ]] && return 1
+    umask 022
+    return 0
+}
+
+chpwd_profile_sharedgit(){
+    [[ ${profile} == ${CHPWD_PROFILE} ]] && return 1
+    umask 002
+    git status 2> /dev/null
+
+    return 0
+}
+
+zstyle ':chpwd:profiles:/home/meh/git/scripts(|/|/*)'                     profile sharedgit
+zstyle ':chpwd:profiles:/home/meh/git/bcfg2(|/|/*)'                       profile sharedgit
+zstyle ':chpwd:profiles:/home/meh/git/lc_ldap(|/|/*)'                     profile sharedgit
+zstyle ':chpwd:profiles:/usr/scripts(|/|/*)'                      profile sharedgit
+zstyle ':chpwd:profiles:/usr/scripts/lc_ldap(|/|/*)'              profile sharedgit
+zstyle ':chpwd:profiles:/usr/scripts/intranet(|/|/*)'             profile sharedgit
diff --git a/.zsh/rc/local/20_env b/.zsh/rc/local/20_env
new file mode 100644 (file)
index 0000000..586828b
--- /dev/null
@@ -0,0 +1,28 @@
+# This is personnal stuff containing emails, etc.
+# personnal mail
+#~# À changer
+export MAIL="user@example.com"
+export DEBEMAIL=$MAIL
+export DEBFULLNAME="My Name"
+
+#~# remplacer meh par votre login
+export PATH=$PATH:/home/meh/bin:/sbin:/usr/sbin
+
+#
+export LC_ALL=fr_FR.UTF-8
+
+# Darcs
+#~# à changer
+export DARCS_EMAIL="I'm so pretty <dude@example.com>"
+
+# for pbuilder
+export BUILD_ROOT="~/pbuilder/custom/"
+
+# set editor
+#~# à changer éventuellement
+if check_com -c vim 2>&1; then
+    export EDITOR='vim'
+else
+    export EDITOR="nano"
+fi
+
diff --git a/.zsh/rc/local/25_bindkey b/.zsh/rc/local/25_bindkey
new file mode 100644 (file)
index 0000000..9ea32f9
--- /dev/null
@@ -0,0 +1,184 @@
+
+# {{{ keybindings
+if [[ "$TERM" != emacs ]] ; then
+    [[ -z "$terminfo[kdch1]" ]] || bindkey -M emacs "$terminfo[kdch1]" delete-char
+    [[ -z "$terminfo[khome]" ]] || bindkey -M emacs "$terminfo[khome]" beginning-of-line
+    [[ -z "$terminfo[kend]"  ]] || bindkey -M emacs "$terminfo[kend]"  end-of-line
+    [[ -z "$terminfo[kdch1]" ]] || bindkey -M vicmd "$terminfo[kdch1]" vi-delete-char
+    [[ -z "$terminfo[khome]" ]] || bindkey -M vicmd "$terminfo[khome]" vi-beginning-of-line
+    [[ -z "$terminfo[kend]"  ]] || bindkey -M vicmd "$terminfo[kend]"  vi-end-of-line
+    [[ -z "$terminfo[cuu1]"  ]] || bindkey -M viins "$terminfo[cuu1]"  vi-up-line-or-history
+    [[ -z "$terminfo[cuf1]"  ]] || bindkey -M viins "$terminfo[cuf1]"  vi-forward-char
+    [[ -z "$terminfo[kcuu1]" ]] || bindkey -M viins "$terminfo[kcuu1]" vi-up-line-or-history
+    [[ -z "$terminfo[kcud1]" ]] || bindkey -M viins "$terminfo[kcud1]" vi-down-line-or-history
+    [[ -z "$terminfo[kcuf1]" ]] || bindkey -M viins "$terminfo[kcuf1]" vi-forward-char
+    [[ -z "$terminfo[kcub1]" ]] || bindkey -M viins "$terminfo[kcub1]" vi-backward-char
+    # ncurses stuff:
+    [[ "$terminfo[kcuu1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcuu1]/O/[}" vi-up-line-or-history
+    [[ "$terminfo[kcud1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcud1]/O/[}" vi-down-line-or-history
+    [[ "$terminfo[kcuf1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcuf1]/O/[}" vi-forward-char
+    [[ "$terminfo[kcub1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcub1]/O/[}" vi-backward-char
+    [[ "$terminfo[khome]" == $'\eO'* ]] && bindkey -M viins "${terminfo[khome]/O/[}" beginning-of-line
+    [[ "$terminfo[kend]"  == $'\eO'* ]] && bindkey -M viins "${terminfo[kend]/O/[}"  end-of-line
+    [[ "$terminfo[khome]" == $'\eO'* ]] && bindkey -M emacs "${terminfo[khome]/O/[}" beginning-of-line
+    [[ "$terminfo[kend]"  == $'\eO'* ]] && bindkey -M emacs "${terminfo[kend]/O/[}"  end-of-line
+fi
+
+## keybindings (run 'bindkeys' for details, more details via man zshzle)
+# use emacs style per default:
+bindkey -e
+# use vi style:
+# bindkey -v
+
+#if [[ "$TERM" == screen ]] ; then
+bindkey '\e[1~' beginning-of-line       # home
+bindkey '\e[4~' end-of-line             # end
+bindkey '\e[A'  up-line-or-search       # cursor up
+bindkey '\e[B'  down-line-or-search     # <ESC>-
+
+bindkey '^xp'   history-beginning-search-backward
+bindkey '^xP'   history-beginning-search-forward
+# bindkey -s '^L' "|less\n"             # ctrl-L pipes to less
+# bindkey -s '^B' " &\n"                # ctrl-B runs it in the background
+# if terminal type is set to 'rxvt':
+bindkey '\e[7~' beginning-of-line       # home
+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
+zrcautoload insert-unicode-char
+zle -N insert-unicode-char
+#k# Insert Unicode character
+bindkey '^Xi' insert-unicode-char
+
+#m# k Shift-tab Perform backwards menu completion
+if [[ -n "$terminfo[kcbt]" ]]; then
+    bindkey "$terminfo[kcbt]" reverse-menu-complete
+elif [[ -n "$terminfo[cbt]" ]]; then # required for GNU screen
+    bindkey "$terminfo[cbt]"  reverse-menu-complete
+fi
+
+## toggle the ,. abbreviation feature on/off
+# NOABBREVIATION: default abbreviation-state
+#                 0 - enabled (default)
+#                 1 - disabled
+NOABBREVIATION=${NOABBREVIATION:-0}
+
+grml_toggle_abbrev() {
+    if (( ${NOABBREVIATION} > 0 )) ; then
+        NOABBREVIATION=0
+    else
+        NOABBREVIATION=1
+    fi
+}
+
+zle -N grml_toggle_abbrev
+bindkey '^xA' grml_toggle_abbrev
+
+# add a command line to the shells history without executing it
+commit-to-history() {
+    print -s ${(z)BUFFER}
+    zle send-break
+}
+zle -N commit-to-history
+bindkey "^x^h" commit-to-history
+
+# only slash should be considered as a word separator:
+slash-backward-kill-word() {
+    local WORDCHARS="${WORDCHARS:s@/@}"
+    # zle backward-word
+    zle backward-kill-word
+}
+zle -N slash-backward-kill-word
+
+#k# Kill everything in a word up to its last \kbd{/}
+bindkey '\ev' slash-backward-kill-word
+
+# use the new *-pattern-* widgets for incremental history search
+if is439 ; then
+    bindkey '^r' history-incremental-pattern-search-backward
+    bindkey '^s' history-incremental-pattern-search-forward
+fi
+
+if zrcautoload insert-files && zle -N insert-files ; then
+    #k# Insert files
+    bindkey "^Xf" insert-files # C-x-f
+fi
+
+bindkey ' '   magic-space    # also do history expansion on space
+#k# Trigger menu-complete
+bindkey '\ei' menu-complete  # menu completion via esc-i
+
+# press esc-e for editing command line in $EDITOR or $VISUAL
+if zrcautoload edit-command-line && zle -N edit-command-line ; then
+    #k# Edit the current line in \kbd{\$EDITOR}
+    bindkey '\ee' edit-command-line
+fi
+
+if [[ -n ${(k)modules[zsh/complist]} ]] ; then
+    #k# menu selection: pick item but stay in the menu
+    bindkey -M menuselect '\e^M' accept-and-menu-complete
+
+    # accept a completion and try to complete again by using menu
+    # completion; very useful with completing directories
+    # by using 'undo' one's got a simple file browser
+    bindkey -M menuselect '^o' accept-and-infer-next-history
+fi
+
+# press "ctrl-e d" to insert the actual date in the form yyyy-mm-dd
+_bkdate() { BUFFER="$BUFFER$(date '+%F')"; CURSOR=$#BUFFER; }
+zle -N _bkdate
+
+#k# Insert a timestamp on the command line (yyyy-mm-dd)
+bindkey '^Ed' _bkdate
+
+# press esc-m for inserting last typed word again (thanks to caphuso!)
+insert-last-typed-word() { zle insert-last-word -- 0 -1 };
+zle -N insert-last-typed-word;
+
+#k# Insert last typed word
+bindkey "\em" insert-last-typed-word
+
+function grml-zsh-fg() {
+  if (( ${#jobstates} )); then
+    zle .push-input
+    [[ -o hist_ignore_space ]] && BUFFER=' ' || BUFFER=''
+    BUFFER="${BUFFER}fg"
+    zle .accept-line
+  else
+    zle -M 'No background jobs. Doing nothing.'
+  fi
+}
+zle -N grml-zsh-fg
+#k# A smart shortcut for \kbd{fg<enter>}
+bindkey '^z' grml-zsh-fg
+
+# run command line as user root via sudo:
+sudo-command-line() {
+    [[ -z $BUFFER ]] && zle up-history
+    [[ $BUFFER != sudo\ * ]] && BUFFER="sudo $BUFFER"
+    CURSOR=$#BUFFER
+}
+zle -N sudo-command-line
+
+#k# Put the current command line into a \kbd{sudo} call
+bindkey "^Os" sudo-command-line
+
+### jump behind the first word on the cmdline.
+### useful to add options.
+function jump_after_first_word() {
+    local words
+    words=(${(z)BUFFER})
+
+    if (( ${#words} <= 1 )) ; then
+        CURSOR=${#BUFFER}
+    else
+        CURSOR=${#${words[1]}}
+    fi
+}
+zle -N jump_after_first_word
+
+bindkey '^x1' jump_after_first_word
+# }}}
diff --git a/.zsh/rc/local/30_debian_tools b/.zsh/rc/local/30_debian_tools
new file mode 100644 (file)
index 0000000..c0daf94
--- /dev/null
@@ -0,0 +1,78 @@
+#!/bin/zsh
+
+# debian stuff
+if [[ -r /etc/debian_version ]] ; then
+    # debian upgrade
+    #f3# Execute \kbd{apt-get update \&\& }\\&\quad \kbd{apt-get dist-upgrade}
+    upgrade() {
+        emulate -L zsh
+        if [[ -z $1 ]] ; then
+            $SUDO apt-get update
+            $SUDO apt-get -u upgrade
+        else
+            ssh $1 $SUDO apt-get update
+            # ask before the upgrade
+            local dummy
+            ssh $1 $SUDO apt-get --no-act upgrade
+            echo -n 'Process the upgrade?'
+            read -q dummy
+            if [[ $dummy == "y" ]] ; then
+                ssh $1 $SUDO apt-get -u upgrade --yes
+            fi
+        fi
+    }
+fi
+
+# TODO: Is it supported to use pager settings like this?
+#   PAGER='less -Mr' - If so, the use of $PAGER here needs fixing
+# with respect to wordsplitting. (ie. ${=PAGER})
+if check_com -c $PAGER ; then
+    #f1# View Debian's changelog of a given package
+    dchange() {
+        emulate -L zsh
+        if [[ -r /usr/share/doc/$1/changelog.Debian.gz ]] ; then
+            zcat /usr/share/doc/$1/changelog.Debian.gz | $PAGER
+        elif [[ -r /usr/share/doc/$1/changelog.gz ]] ; then
+            zcat /usr/share/doc/$1/changelog.gz | $PAGER
+        else
+            if check_com -c aptitude ; then
+                echo "No changelog for package $1 found, using aptitude to retrieve it."
+                aptitude changelog $1
+            else
+                echo "No changelog for package $1 found, sorry."
+                return 1
+            fi
+        fi
+    }
+    _dchange() { _files -W /usr/share/doc -/ }
+    compdef _dchange dchange
+
+    #f1# View Debian's NEWS of a given package
+    dnews() {
+        emulate -L zsh
+        if [[ -r /usr/share/doc/$1/NEWS.Debian.gz ]] ; then
+            zcat /usr/share/doc/$1/NEWS.Debian.gz | $PAGER
+        elif [[ -r /usr/share/doc/$1/NEWS.gz ]] ; then
+            zcat /usr/share/doc/$1/NEWS.gz | $PAGER
+        else
+            echo "No NEWS file for package $1 found, sorry."
+            return 1
+        fi
+    }
+    _dnews() { _files -W /usr/share/doc -/ }
+    compdef _dnews dnews
+
+    #f1# View upstream's changelog of a given package
+    uchange() {
+        emulate -L zsh
+        if [[ -r /usr/share/doc/$1/changelog.gz ]] ; then
+            zcat /usr/share/doc/$1/changelog.gz | $PAGER
+        else
+            echo "No changelog for package $1 found, sorry."
+            return 1
+        fi
+    }
+    _uchange() { _files -W /usr/share/doc -/ }
+    compdef _uchange uchange
+fi
+
diff --git a/.zsh/rc/local/80_aliases b/.zsh/rc/local/80_aliases
new file mode 100644 (file)
index 0000000..6449275
--- /dev/null
@@ -0,0 +1,206 @@
+#/bin/zsh
+# Tous les aliases
+
+# {{{ some aliases
+if check_com -c screen ; then
+    if [[ -r $HOME/.screenrc ]] ; then
+        alias screen="${commands[screen]} -c $HOME/.screenrc"
+    fi
+fi
+
+# do we have GNU ls with color-support?
+if ls --help 2>/dev/null | grep -- --color= >/dev/null && [[ "$TERM" != dumb ]] ; then
+    #a1# execute \kbd{@a@}:\quad ls with colors
+    alias ls='ls -b -CF --color=auto'
+    #a1# execute \kbd{@a@}:\quad list all files, with colors
+    alias la='ls -lA --color=auto'
+    #a1# long colored list, without dotfiles (@a@)
+    alias ll='ls -l --color=auto'
+    #a1# long colored list, human readable sizes (@a@)
+    alias lh='ls -hAl --color=auto'
+    #a1# List files, append qualifier to filenames \\&\quad(\kbd{/} for directories, \kbd{@} for symlinks ...)
+    alias l='ls -lF --color=auto'
+else
+    alias ls='ls -b -CF'
+    alias la='ls -lA'
+    alias ll='ls -l'
+    alias lh='ls -hAl'
+    alias l='ls -lF'
+fi
+
+alias mdstat='cat /proc/mdstat'
+alias ...='cd ../../'
+
+# generate alias named "$KERNELVERSION-reboot" so you can use boot with kexec:
+if [[ -x /sbin/kexec ]] && [[ -r /proc/cmdline ]] ; then
+    alias "$(uname -r)-reboot"="kexec -l --initrd=/boot/initrd.img-"$(uname -r)" --command-line=\"$(cat /proc/cmdline)\" /boot/vmlinuz-"$(uname -r)""
+fi
+
+alias sudo='nocorrect sudo'        # no spelling correction on sudo
+alias cp='nocorrect cp -i'         # no spelling correction on cp
+alias mkdir='nocorrect mkdir'      # no spelling correction on mkdir
+alias mv='nocorrect mv -i'         # no spelling correction on mv
+alias rm='nocorrect rm -i'         # no spelling correction on rm
+
+#a1# Execute \kbd{rmdir}
+alias rd='rmdir'
+#a1# Execute \kbd{mkdir}
+alias md='mkdir'
+
+# see http://www.cl.cam.ac.uk/~mgk25/unicode.html#term for details
+alias term2iso="echo 'Setting terminal to iso mode' ; print -n '\e%@'"
+alias term2utf="echo 'Setting terminal to utf-8 mode'; print -n '\e%G'"
+
+# get top 10 shell commands:
+alias top10='print -l ? ${(o)history%% *} | uniq -c | sort -nr | head -n 10'
+
+if [[ -r /etc/debian_version ]] ; then
+    #a3# Execute \kbd{apt-cache search}
+    alias acs='apt-cache search'
+    #a3# Execute \kbd{apt-cache show}
+    alias acsh='apt-cache show'
+    #a3# Execute \kbd{apt-cache policy}
+    alias acp='apt-cache policy'
+    #a3# Execute \kbd{apt-get dist-upgrade}
+    salias adg="apt-get dist-upgrade"
+    #a3# Execute \kbd{apt-get install}
+    salias agi="apt-get install"
+    #a3# Execute \kbd{aptitude install}
+    salias ati="aptitude install"
+    #a3# Execute \kbd{apt-get upgrade}
+    salias ag="apt-get upgrade"
+    #a3# Execute \kbd{apt-get update}
+    salias au="apt-get update"
+    #a3# Execute \kbd{aptitude update ; aptitude safe-upgrade}
+    salias -a up="aptitude update ; aptitude safe-upgrade"
+    #a3# Execute \kbd{dpkg-buildpackage}
+    alias dbp='dpkg-buildpackage'
+    #a3# Execute \kbd{grep-excuses}
+    alias ge='grep-excuses'
+
+    #a1# Take a look at the syslog: \kbd{\$PAGER /var/log/syslog}
+    salias llog="$PAGER /var/log/syslog"     # take a look at the syslog
+    #a1# Take a look at the syslog: \kbd{tail -f /var/log/syslog}
+    salias tlog="tail -f /var/log/syslog"    # follow the syslog
+fi
+
+# sort installed Debian-packages by size
+if check_com -c grep-status ; then
+    #a3# List installed Debian-packages sorted by size
+    alias debs-by-size='grep-status -FStatus -sInstalled-Size,Package -n "install ok installed" | paste -sd "  \n" | sort -rn'
+fi
+
+# use colors when GNU grep with color-support
+#a2# Execute \kbd{grep -{}-color=auto}
+(grep --help 2>/dev/null |grep -- --color) >/dev/null && alias grep='grep --color=auto'
+#a2# Execute \kbd{grep -i -{}-color=auto}
+alias GREP='grep -i --color=auto'
+
+# highlight important stuff in diff output, usage example: hg diff | hidiff
+#m# a2 hidiff \kbd{histring} oneliner for diffs
+check_com -c histring && \
+    alias hidiff="histring -fE '^Comparing files .*|^diff .*' | histring -c yellow -fE '^\-.*' | histring -c green -fE '^\+.*'"
+
+# Xterm resizing-fu.
+# Based on http://svn.kitenet.net/trunk/home-full/.zshrc?rev=11710&view=log (by Joey Hess)
+alias tiny='echo -en "\033]50;xft:DejaVu Sans Mono-4\007"'
+alias small='echo -en "\033]50;xft:DejaVu Sans Mono-5\007"'
+alias medium='echo -en "\033]50;xft:DejaVu Sans Mono-6\007"'
+alias default='echo -e "\033]50;xft:DejaVu Sans Mono-8\007"'
+alias large='echo -en "\033]50;xft:DejaVu Sans Mono-12\007"'
+alias huge='echo -en "\033]50;xft:DejaVu Sans Mono-16\007"'
+
+# general
+#a2# Execute \kbd{du -sch}
+alias da='du -sch'
+#a2# Execute \kbd{jobs -l}
+alias j='jobs -l'
+
+# compile stuff
+#a2# Execute \kbd{./configure}
+alias CO="./configure"
+#a2# Execute \kbd{./configure --help}
+alias CH="./configure --help"
+
+# listing stuff
+#a2# Execute \kbd{ls -lSrah}
+alias dir="ls -lSrah"
+#a2# Only show dot-directories
+alias lad='ls -d .*(/)'                # only show dot-directories
+#a2# Only show dot-files
+alias lsa='ls -a .*(.)'                # only show dot-files
+#a2# Only files with setgid/setuid/sticky flag
+alias lss='ls -l *(s,S,t)'             # only files with setgid/setuid/sticky flag
+#a2# Only show 1st ten symlinks
+alias lsl='ls -l *(@)'                 # only symlinks
+#a2# Display only executables
+alias lsx='ls -l *(*)'                 # only executables
+#a2# Display world-{readable,writable,executable} files
+alias lsw='ls -ld *(R,W,X.^ND/)'       # world-{readable,writable,executable} files
+#a2# Display the ten biggest files
+alias lsbig="ls -flh *(.OL[1,10])"     # display the biggest files
+#a2# Only show directories
+alias lsd='ls -d *(/)'                 # only show directories
+#a2# Only show empty directories
+alias lse='ls -d *(/^F)'               # only show empty directories
+#a2# Display the ten newest files
+alias lsnew="ls -rl *(D.om[1,10])"     # display the newest files
+#a2# Display the ten oldest files
+alias lsold="ls -rtlh *(D.om[1,10])"   # display the oldest files
+#a2# Display the ten smallest files
+alias lssmall="ls -Srl *(.oL[1,10])"   # display the smallest files
+
+# chmod
+#a2# Execute \kbd{chmod 600}
+alias rw-='chmod 600'
+#a2# Execute \kbd{chmod 700}
+alias rwx='chmod 700'
+#m# a2 r-{}- Execute \kbd{chmod 644}
+alias r--='chmod 644'
+#a2# Execute \kbd{chmod 755}
+alias r-x='chmod 755'
+
+# some useful aliases
+#a2# Execute \kbd{mkdir -o}
+alias md='mkdir -p'
+
+# console stuff
+#a2# Execute \kbd{mplayer -vo fbdev}
+alias cmplayer='mplayer -vo fbdev'
+#a2# Execute \kbd{mplayer -vo fbdev -fs -zoom}
+alias fbmplayer='mplayer -vo fbdev -fs -zoom'
+#a2# Execute \kbd{links2 -driver fb}
+alias fblinks='links2 -driver fb'
+
+#a2# ssh with StrictHostKeyChecking=no \\&\quad and UserKnownHostsFile unset
+alias insecssh='ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
+alias insecscp='scp -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
+
+alias emacs='emacsclient --alternate-editor="" -nw'
+
+# simple webserver
+check_com -c python && alias http="python -m SimpleHTTPServer"
+
+# Use 'g' instead of 'git':
+check_com g || alias g='git'
+
+# work around non utf8 capable software in utf environment via $LANG and luit
+if check_com isutfenv && check_com luit ; then
+    if check_com -c mrxvt ; then
+        isutfenv && [[ -n "$LANG" ]] && \
+            alias mrxvt="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit mrxvt"
+    fi
+
+    if check_com -c aterm ; then
+        isutfenv && [[ -n "$LANG" ]] && \
+            alias aterm="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit aterm"
+    fi
+
+    if check_com -c centericq ; then
+        isutfenv && [[ -n "$LANG" ]] && \
+            alias centericq="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit centericq"
+    fi
+fi
+
+check_com -c qma && alias ?='qma zshall'
+
diff --git a/.zsh/rc/local/99_final_com b/.zsh/rc/local/99_final_com
new file mode 100644 (file)
index 0000000..2c0f7bc
--- /dev/null
@@ -0,0 +1,5 @@
+# Shows who is there
+w
+
+# Show tdl & cie (see pal package in debian)
+# pal
diff --git a/.zsh/rc/readme b/.zsh/rc/readme
new file mode 100644 (file)
index 0000000..c1995b3
--- /dev/null
@@ -0,0 +1,54 @@
+#!/bin/zsh
+# Useful stuff
+
+# some useful commands often hard to remember - let's grep for them {{{
+# actually use our zg() function now. :)
+
+# Work around ion/xterm resize bug.
+#if [[ "$SHLVL" -eq 1 ]]; then
+#       if check_com -c resize ; then
+#               eval `resize </dev/null`
+#       fi
+#fi
+
+# enable jackd:
+#  /usr/bin/jackd -dalsa -dhw:0 -r48000 -p1024 -n2
+# now play audio file:
+#  alsaplayer -o jack foobar.mp3
+
+# send files via netcat
+# on sending side:
+#  send() {j=$*; tar cpz ${j/%${!#}/}|nc -w 1 ${!#} 51330;}
+#  send dir* $HOST
+#  alias receive='nc -vlp 51330 | tar xzvp'
+
+# debian stuff:
+# dh_make -e foo@localhost -f $1
+# dpkg-buildpackage -rfakeroot
+# lintian *.deb
+# dpkg-scanpackages ./ /dev/null | gzip > Packages.gz
+# dpkg-scansources . | gzip > Sources.gz
+# grep-dctrl --field Maintainer $* /var/lib/apt/lists/*
+
+# other stuff:
+# convert -geometry 200x200 -interlace LINE -verbose
+# ldapsearch -x -b "OU=Bedienstete,O=tug" -h ldap.tugraz.at sn=$1
+# ps -ao user,pcpu,start,command
+# gpg --keyserver blackhole.pca.dfn.de --recv-keys
+# xterm -bg black -fg yellow -fn -misc-fixed-medium-r-normal--14-140-75-75-c-90-iso8859-15 -ah
+# nc -vz $1 1-1024   # portscan via netcat
+# wget --mirror --no-parent --convert-links
+# pal -d `date +%d`
+# autoload -U tetris; zle -N tetris; bindkey '...' ; echo "press ... for playing tennis"
+#
+# modify console cursor
+# see http://www.tldp.org/HOWTO/Framebuffer-HOWTO-5.html
+# print $'\e[?96;0;64c'
+# }}}
+
+## END OF FILE #################################################################
+# vim:filetype=zsh foldmethod=marker autoindent expandtab shiftwidth=4
+# Local variables:
+# mode: sh
+# End:
+
diff --git a/.zshrc b/.zshrc
new file mode 100644 (file)
index 0000000..2dda0cb
--- /dev/null
+++ b/.zshrc
@@ -0,0 +1,583 @@
+# Ceci est un zshrc proposé par PEB.
+# Il est issu d'un zshrc pompé allègrement chez une ancienne nounou
+# qui l'avait elle-même pompé chez une ancienne nounou, qui l'avait...
+# Bref.
+#
+# La conf est stockée dans le dossier .zsh, en plusieurs parties, base, extra, et local.
+# local est la conf que vous devriez regarder et éventuellement changer. Cherchez les
+# #~# dans les fichiers, il y aura des mentions de quoi changer.
+#
+# Ce fichier sert à orchestrer tout le bordel.
+#
+# Pour faire marcher ce .zshrc, soit vous copiez .zshrc et .zsh dans votre home, soit
+# vous faites des liens symboliques vers l'endroit de votre home où ils se trouvent.
+#
+###############################################################################
+# This file is sourced only for interactive shells. It
+# should contain commands to set up aliases, functions,
+# options, key bindings, etc.
+#
+# Global Order: zshenv, zprofile, zshrc, zlogin
+################################################################################
+
+ZSHDIR=$HOME/.zsh
+
+# source conf files.
+for file in $ZSHDIR/rc/base/*; do
+    source $file
+done
+# done
+
+# zmv is a zsh massive renaming tool
+# Usage:
+#   zmv [OPTIONS] oldpattern newpattern
+# where oldpattern contains parenthesis surrounding patterns which will
+# be replaced in turn by $1, $2, ... in newpattern.  For example,
+#   zmv '(*).lis' '$1.txt'
+# renames 'foo.lis' to 'foo.txt', 'my.old.stuff.lis' to 'my.old.stuff.txt',
+# and so on.  Something simpler (for basic commands) is the -W option:
+#   zmv -W '*.lis' '*.txt'
+# This does the same thing as the first command, but with automatic conversion
+# of the wildcards into the appropriate syntax.  If you combine this with
+# noglob, you don't even need to quote the arguments.  For example,
+#   alias mmv='noglob zmv -W'
+#   mmv *.c.orig orig/*.c
+zrcautoload zmv
+
+# I'm not pretty sure of what it does. :D
+zrcautoload history-search-end
+
+#m# k ESC-h Call \kbd{run-help} for the 1st word on the command line
+alias run-help >&/dev/null && unalias run-help
+for rh in run-help{,-git,-svk,-svn}; do
+    zrcautoload $rh
+done; unset rh
+
+# loads completion system
+if zrcautoload compinit ; then
+    compinit || print 'Notice: no compinit available :('
+else
+    # creates fake functions
+    print 'Notice: no compinit available :('
+    function zstyle { }
+    function compdef { }
+fi
+
+# zed - /usr/share/zsh/functions/Misc/zed
+#
+# No other shell could do this.
+# Edit small files with the command line editor.
+# Use ^X^W to save, ^C to abort.
+# Option -f: edit shell functions.  (Also if called as fned.)
+zrcautoload zed
+
+# Loads .so modules in /usr/lib/i386-linux-gnu/zsh/${ZSHVERSION}/zsh/
+for mod in complist deltochar mathfunc ; do
+    zmodload -i zsh/${mod} 2>/dev/null || print "Notice: no ${mod} available :("
+done
+
+# autoload zsh modules when they are referenced
+# uses bidimensionnal array to give option to zmodload
+tmpargs=(
+    a   stat
+    a   zpty
+    ap  mapfile
+)
+
+while (( ${#tmpargs} > 0 )) ; do
+    zmodload -${tmpargs[1]} zsh/${tmpargs[2]} ${tmpargs[2]}
+    shift 2 tmpargs
+done
+unset tmpargs
+
+# dirstack handling
+# I wasn't able to find a good .zsh/rc/* file for this
+DIRSTACKSIZE=${DIRSTACKSIZE:-20}
+DIRSTACKFILE=${DIRSTACKFILE:-${HOME}/.zdirs}
+
+if [[ -f ${DIRSTACKFILE} ]] && [[ ${#dirstack[*]} -eq 0 ]] ; then
+    dirstack=( ${(f)"$(< $DIRSTACKFILE)"} )
+    # "cd -" won't work after login by just setting $OLDPWD, so
+    [[ -d $dirstack[0] ]] && cd $dirstack[0] && cd $OLDPWD
+fi
+
+chpwd() {
+    local -ax my_stack
+    my_stack=( ${PWD} ${dirstack} )
+    builtin print -l ${(u)my_stack} >! ${DIRSTACKFILE}
+}
+
+# In order to set prompt, and because we love comfort
+# These files are not mandatory, but removing them
+# would break the PS1 prompt.
+for file in $ZSHDIR/rc/extra/*; do
+    source $file
+done
+
+# {{{ set prompt
+if zrcautoload promptinit && promptinit 2>/dev/null ; then
+    promptinit # people should be able to use their favourite prompt
+else
+    print 'Notice: no promptinit available :('
+fi
+
+setopt prompt_subst
+
+# make sure to use right prompt only when not running a command
+setopt transient_rprompt
+
+function ESC_print () {
+    info_print $'\ek' $'\e\\' "$@"
+}
+function set_title () {
+    info_print  $'\e]0;' $'\a' "$@"
+}
+
+function info_print () {
+    local esc_begin esc_end
+    esc_begin="$1"
+    esc_end="$2"
+    shift 2
+    printf '%s' ${esc_begin}
+    for item in "$@" ; do
+        printf '%s ' "$item"
+    done
+    printf '%s' "${esc_end}"
+}
+
+#+--------------------------------------+
+#|            PROMPT                    |
+#+--------------------------------------+
+
+# set colors for use in prompts (no longer useful, I'll trash it some day) {{{
+if zrcautoload colors 2> /dev/null && colors 2>/dev/null ; then
+    BLUE="${fg[blue]}"
+    RED="${fg_bold[red]}"
+    GREEN="${fg[green]}"
+    CYAN="${fg[cyan]}"
+    MAGENTA="${fg[magenta]}"
+    YELLOW="${fg[yellow]}"
+    WHITE="${fg[white]}"
+    NO_COLOUR="${reset_color}"
+else
+    BLUE=$'\e[1;34m'
+    RED=$'\e[1;31m'
+    GREEN=$'\e[1;32m'
+    CYAN=$'\e[1;36m'
+    WHITE=$'\e[1;37m'
+    MAGENTA=$'\e[1;35m'
+    YELLOW=$'\e[1;33m'
+    NO_COLOUR=$'\e[0m'
+fi
+
+# Change vcs_info formats for the grml prompt. The 2nd format sets up
+# $vcs_info_msg_1_ to contain "zsh: repo-name" used to set our screen title.
+# TODO: The included vcs_info() version still uses $VCS_INFO_message_N_.
+#       That needs to be the use of $VCS_INFO_message_N_ needs to be changed
+#       to $vcs_info_msg_N_ as soon as we use the included version.
+if [[ "$TERM" == dumb ]] ; then
+    zstyle ':vcs_info:*' actionformats "(%s)-[%r/%b|%a]" "(%s)-[%r/%b|%a]"
+    zstyle ':vcs_info:*' formats       "(%s)-[%r/%b]"    "(%s)-[%r/%b]"
+else
+    # these are the same, just with a lot of colours:
+    zstyle ':vcs_info:*' actionformats "%F{magenta}(%F{no}%s%F{magenta})%F{yellow}-%F{magenta}[%F{green}%r%F{yellow}/%F{green}%b%F{yellow}|%F{red}%a%F{magenta}]%F{no}" \
+                                       "(%s)-[%r/%b|%a]" 
+    zstyle ':vcs_info:*' formats       "%F{magenta}(%F{no}%s%F{magenta})%F{yellow}-%F{magenta}[%F{green}%r%F{yellow}/%F{green}%b%F{magenta}]%F{no}" \
+                                       "(%s)-[%r/%b]"
+    zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "%b%F{red}:%F{yellow}%r"
+fi
+
+# Built using /usr/share/zsh/functions/Prompts/prompt_adam2…
+EXITCODE="%(?..[%?]%1v)"
+
+# Set of chars used in prompt
+prompt_tlc='.'
+prompt_mlc='|'
+prompt_blc='\`'
+prompt_hyphen='-'
+
+# Set of colors used in prompt.
+#~# Couleurs du prompt
+prompt_color1='cyan'    # hyphens
+prompt_color2='green'   # current directory
+prompt_color3='yellow'  # user@host
+prompt_color4='cyan'    # user input
+prompt_color5='red'     # date
+
+# see man zshmisc for explanation about %B, %F, %b…
+prompt_tbox="%B%F{$prompt_color1}${prompt_tlc}%b%F{$prompt_color1}${prompt_hyphen}"
+prompt_bbox="%B%F{$prompt_color1}${prompt_blc}${prompt_hyphen}%b%F{$prompt_color1}"
+
+# This is a cute hack. Well I like it, anyway.
+prompt_bbox_to_mbox=$'%{\e[A\r'"%}%B%F{$prompt_color1}${prompt_mlc}%b%F{$prompt_color1}${prompt_hyphen}%{"$'\e[B%}'
+
+# left and right parenthesis
+prompt_l_paren="%B%F{black}("
+prompt_r_paren="%B%F{black})"
+
+# User : %n, host : %M
+prompt_user_host="%b%F{$prompt_color3}%n%B%F{$prompt_color3}@%b%F{$prompt_color3}%M"
+
+# line 1 is pwd, username, host, hour…
+prompt_line_1a="$prompt_tbox$prompt_l_paren%B%F{$prompt_color5}%*$prompt_r_paren%b%F{$prompt_color1}$prompt_hyphen$prompt_l_paren%B%F{$prompt_color2}%~$prompt_r_paren%b%F{$prompt_color1}"
+prompt_line_1b="$prompt_l_paren$prompt_user_host$prompt_r_paren%b%F{$prompt_color1}${prompt_hyphen}"
+
+# line 2 is prompt
+prompt_line_2="$prompt_bbox${prompt_hyphen}%B%F{white}"
+prompt_char="%(!.#.>)"
+prompt_opts=(cr subst percent)
+
+# This function is called before each prompt regenation
+precmd () {
+    setopt noxtrace localoptions extendedglob
+    local prompt_line_1
+    # update VCS information
+    vcs_info
+
+    if [[ $TERM == screen* ]] ; then
+        if [[ -n ${VCS_INFO_message_1_} ]] ; then
+            ESC_print ${VCS_INFO_message_1_}
+        else
+            ESC_print "zsh"
+        fi
+    fi
+
+    RPROMPT="%(?..:()"
+    
+    # Generates battery info
+    batcolor
+    RPROMPT="${BATTERY} ${RPROMPT}"
+    
+    # adjust title of xterm
+    # see http://www.faqs.org/docs/Linux-mini/Xterm-Title.html
+    [[ ${NOTITLE} -gt 0 ]] && return 0
+    case $TERM in
+        (xterm*|rxvt*)
+            set_title ${(%):-"%n@%m: %~"}
+            ;;
+    esac
+
+    local prompt_line_1a_width=${#${(S%%)prompt_line_1a//(\%([KF1]|)\{*\}|\%[Bbkf])}}
+    local prompt_line_1b_width=${#${(S%%)prompt_line_1b//(\%([KF1]|)\{*\}|\%[Bbkf])}}
+    local prompt_vcs_width=${#${(S%%)VCS_INFO_message_0_//(\%([KF1]|)\{*\}|\%[Bbkf])}}
+  
+    local prompt_padding_size=$(( COLUMNS - prompt_line_1a_width - prompt_line_1b_width - prompt_vcs_width - 2 ))
+
+    # Try to fit in long path and user@host, and vcs_info
+    if (( prompt_padding_size > 0 )); then
+      local prompt_padding
+      eval "prompt_padding=\${(l:${prompt_padding_size}::${prompt_hyphen}:)_empty_zz}"
+      prompt_line_1="$prompt_line_1a$prompt_padding$prompt_hyphen$VCS_INFO_message_0_%F{$prompt_color1}$prompt_hyphen$prompt_line_1b"
+    else
+        prompt_padding_size=$(( COLUMNS - prompt_line_1a_width - prompt_vcs_width - 2 ))
+      
+        # Didn't fit; try to fit in long path and vcs_info
+        if (( prompt_padding_size > 0 )); then
+            local prompt_padding
+            eval "prompt_padding=\${(l:${prompt_padding_size}::${prompt_hyphen}:)_empty_zz}"
+            prompt_line_1="$prompt_line_1a$prompt_padding$prompt_hyphen$VCS_INFO_message_0_%F{$prompt_color1}$prompt_hyphen"
+        else
+            prompt_padding_size=$(( COLUMNS - prompt_line_1a_width ))
+
+            # Didn't fit; try to fit in just long path
+            if (( prompt_padding_size > 0 )); then
+                eval "prompt_padding=\${(l:${prompt_padding_size}::${prompt_hyphen}:)_empty_zz}"
+                prompt_line_1="$prompt_line_1a$prompt_padding"
+            else
+                # Still didn't fit; truncate 
+                local prompt_pwd_size=$(( COLUMNS - 5 ))
+                prompt_line_1="$prompt_tbox$prompt_l_paren%B%F{$prompt_color2}%$prompt_pwd_size<...<%~%<<$prompt_r_paren%b%F{$prompt_color1}$prompt_hyphen"
+            fi
+        fi
+    fi
+  
+  
+    # And, makes it good
+    PS1="$prompt_line_1$prompt_newline$prompt_line_2%B%F{red}${EXITCODE}%b%F{$prompt_color1}$prompt_hyphen%B%F{white}$prompt_char %b%f%k"
+    PS2="$prompt_line_2$prompt_bbox_to_mbox%B%F{white}%_> %b%f%k"
+    PS3="$prompt_line_2$prompt_bbox_to_mbox%B%F{white}?# %b%f%k"
+
+    # Text color and style for prompt
+    zle_highlight[(r)default:*]="default:fg=$prompt_color4,bold"
+}
+
+# preexec() => a function running before every command
+preexec () {
+    # set hostname if not running on host with name 'grml'
+    if [[ -n "$HOSTNAME" ]] && [[ "$HOSTNAME" != $(hostname) ]] ; then
+       NAME="@$HOSTNAME"
+    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|-*)]}       # don't use hostname
+        local CMD="${1[(wr)^(*=*|sudo|ssh|-*)]}$NAME" # use hostname
+        ESC_print ${CMD}
+    fi
+    # adjust title of xterm
+    [[ ${NOTITLE} -gt 0 ]] && return 0
+    case $TERM in
+        (xterm*|rxvt*)
+            set_title "${(%):-"%n@%m:"}" "$1"
+            ;;
+    esac
+}
+
+
+# # set variable debian_chroot if running in a chroot with /etc/debian_chroot
+# if [[ -z "$debian_chroot" ]] && [[ -r /etc/debian_chroot ]] ; then
+#     debian_chroot=$(cat /etc/debian_chroot)
+# fi
+# 
+# # don't use colors on dumb terminals (like emacs):
+# if [[ "$TERM" == dumb ]] ; then
+#     PROMPT="${debian_chroot:+($debian_chroot)}%n@%m %# "
+# 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 [[ $GRMLPROMPT -gt 0 ]] ; then
+#         PROMPT="${CYAN}[%j running job(s)] ${GREEN}{history#%!} ${RED}%(3L.+.) ${BLUE}%* %D${BLUE}%n${NO_COLOUR}@%m %# "
+#     else
+#         # This assembles the primary prompt string
+#         if (( EUID != 0 )); then
+#             PROMPT="%{${WHITE}%}${debian_chroot:+($debian_chroot)}%{${BLUE}%}%n%{${NO_COLOUR}%}@%m %# "
+#         else
+#             PROMPT="%{${WHITE}%}${debian_chroot:+($debian_chroot)}%{${RED}%}%n%{${NO_COLOUR}%}@%m %# "
+#         fi
+#     fi
+# fi
+
+# if we are inside a grml-chroot set a specific prompt theme
+# if [[ -n "$GRML_CHROOT" ]] ; then
+#     PROMPT="%{$fg[red]%}(CHROOT) %{$fg_bold[red]%}%n%{$fg_no_bold[white]%}@%m %40<...<%B%~%b%<< %\# "
+# fi
+
+# {{{ 'hash' some often used directories
+#d# start
+hash -d deb=/var/cache/apt/archives
+hash -d doc=/usr/share/doc
+hash -d linux=/lib/modules/$(command uname -r)/build/
+hash -d log=/var/log
+hash -d slog=/var/log/syslog
+hash -d src=/usr/src
+hash -d templ=/usr/share/doc/grml-templates
+hash -d tt=/usr/share/doc/texttools-doc
+hash -d www=/var/www
+#d# end
+# }}}
+
+# I like clean prompt, so provide simple way to get that
+check_com 0 || alias 0='return 0'
+
+unlimit
+limit stack 8192
+limit -s
+
+# called later (via grmlcomp)
+# note: 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
+grmlcomp() {
+    # TODO: This could use some additional information
+
+    # allow one error for every three characters typed in approximate completer
+    zstyle ':completion:*:approximate:'    max-errors 'reply=( $((($#PREFIX+$#SUFFIX)/3 )) numeric )'
+
+    # don't complete backup files as executables
+    zstyle ':completion:*:complete:-command-::commands' ignored-patterns '(aptitude-*|*\~)'
+
+    # start menu completion only if it could find no unambiguous initial string
+    zstyle ':completion:*:correct:*'       insert-unambiguous true
+    zstyle ':completion:*:corrections'     format $'%{\e[0;31m%}%d (errors: %e)%{\e[0m%}'
+    zstyle ':completion:*:correct:*'       original true
+
+    # activate color-completion
+    zstyle ':completion:*:default'         list-colors ${(s.:.)LS_COLORS}
+
+    # format on completion
+    zstyle ':completion:*:descriptions'    format $'%{\e[0;31m%}completing %B%d%b%{\e[0m%}'
+
+    # complete 'cd -<tab>' with menu
+    zstyle ':completion:*:*:cd:*:directory-stack' menu yes select
+
+    # insert all expansions for expand completer
+    zstyle ':completion:*:expand:*'        tag-order all-expansions
+    zstyle ':completion:*:history-words'   list false
+
+    # activate menu
+    zstyle ':completion:*:history-words'   menu yes
+
+    # ignore duplicate entries
+    zstyle ':completion:*:history-words'   remove-all-dups yes
+    zstyle ':completion:*:history-words'   stop yes
+
+    # match uppercase from lowercase
+    zstyle ':completion:*'                 matcher-list 'm:{a-z}={A-Z}'
+
+    # separate matches into groups
+    zstyle ':completion:*:matches'         group 'yes'
+    zstyle ':completion:*'                 group-name ''
+
+    # if there are more than 5 options allow selecting from a menu
+    zstyle ':completion:*'               menu select=5
+
+    zstyle ':completion:*:messages'        format '%d'
+    zstyle ':completion:*:options'         auto-description '%d'
+
+    # describe options in full
+    zstyle ':completion:*:options'         description 'yes'
+
+    # on processes completion complete all user processes
+    zstyle ':completion:*:processes'       command 'ps -au$USER'
+
+    # offer indexes before parameters in subscripts
+    zstyle ':completion:*:*:-subscript-:*' tag-order indexes parameters
+
+    # provide verbose completion information
+    zstyle ':completion:*'                 verbose true
+
+    # recent (as of Dec 2007) zsh versions are able to provide descriptions
+    # for commands (read: 1st word in the line) that it will list for the user
+    # to choose from. The following disables that, because it's not exactly fast.
+    zstyle ':completion:*:-command-:*:'    verbose false
+
+    # set format for warnings
+    zstyle ':completion:*:warnings'        format $'%{\e[0;31m%}No matches for:%{\e[0m%} %d'
+
+    # define files to ignore for zcompile
+    zstyle ':completion:*:*:zcompile:*'    ignored-patterns '(*~|*.zwc)'
+    zstyle ':completion:correct:'          prompt 'correct to: %e'
+
+    # Ignore completion functions for commands you don't have:
+    zstyle ':completion::(^approximate*):*:functions' ignored-patterns '_*'
+
+    # Provide more processes in completion of programs like killall:
+    zstyle ':completion:*:processes-names' command 'ps c -u ${USER} -o command | uniq'
+
+    # complete manual by their section
+    zstyle ':completion:*:manuals'    separate-sections true
+    zstyle ':completion:*:manuals.*'  insert-sections   true
+    zstyle ':completion:*:man:*'      menu yes select
+
+    # provide .. as a completion
+    zstyle ':completion:*' special-dirs ..
+
+    # run rehash on completion so new installed program are found automatically:
+    _force_rehash() {
+        (( CURRENT == 1 )) && rehash
+        return 1
+    }
+
+    ## correction
+    # try to be smart about when to use what completer...
+    setopt correct
+    zstyle -e ':completion:*' completer '
+        if [[ $_last_try != "$HISTNO$BUFFER$CURSOR" ]] ; then
+            _last_try="$HISTNO$BUFFER$CURSOR"
+            reply=(_complete _match _ignored _prefix _files)
+        else
+            if [[ $words[1] == (rm|mv) ]] ; then
+                reply=(_complete _files)
+            else
+                reply=(_oldlist _expand _force_rehash _complete _ignored _correct _approximate _files)
+            fi
+        fi'
+
+    # command for process lists, the local web server details and host completion
+    zstyle ':completion:*:urls' local 'www' '/var/www/' 'public_html'
+
+    # caching
+    [[ -d $ZSHDIR/cache ]] && zstyle ':completion:*' use-cache yes && \
+                            zstyle ':completion::complete:*' cache-path $ZSHDIR/cache/
+
+    # host completion /* add brackets as vim can't parse zsh's complex cmdlines 8-) {{{ */
+    [[ -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=()
+    hosts=(
+        $(hostname)
+        "$_ssh_hosts[@]"
+        "$_etc_hosts[@]"
+        grml.org
+        localhost
+    )
+    zstyle ':completion:*:hosts' hosts $hosts
+    # TODO: so, why is this here?
+    #  zstyle '*' hosts $hosts
+
+    # use generic completion system for programs not yet defined; (_gnu_generic works
+    # with commands that provide a --help option with "standard" gnu-like output.)
+    for compcom in cp deborphan df feh fetchipac head hnb ipacsum mv \
+                   pal stow tail uname ; do
+        [[ -z ${_comps[$compcom]} ]] && compdef _gnu_generic ${compcom}
+    done; unset compcom
+
+    # see upgrade function in this file
+    compdef _hosts upgrade
+}
+
+grmlstuff() {
+# people should use 'grml-x'!
+    startx() {
+        if [[ -e /etc/X11/xorg.conf ]] ; then
+            [[ -x /usr/bin/startx ]] && /usr/bin/startx "$@" || /usr/X11R6/bin/startx "$@"
+        else
+            echo "Please use the script \"grml-x\" for starting the X Window System
+because there does not exist /etc/X11/xorg.conf yet.
+If you want to use startx anyway please call \"/usr/bin/startx\"."
+            return -1
+        fi
+    }
+
+    xinit() {
+        if [[ -e /etc/X11/xorg.conf ]] ; then
+            [[ -x /usr/bin/xinit ]] && /usr/bin/xinit || /usr/X11R6/bin/xinit
+        else
+            echo "Please use the script \"grml-x\" for starting the X Window System.
+because there does not exist /etc/X11/xorg.conf yet.
+If you want to use xinit anyway please call \"/usr/bin/xinit\"."
+            return -1
+        fi
+    }
+
+    if check_com -c 915resolution; then
+        855resolution() {
+            echo "Please use 915resolution as resolution modifying tool for Intel \
+graphic chipset."
+            return -1
+        }
+    fi
+
+    #a1# Output version of running grml
+    alias grml-version='cat /etc/grml_version'
+
+    if check_com -c rebuildfstab ; then
+        #a1# Rebuild /etc/fstab
+        alias grml-rebuildfstab='rebuildfstab -v -r -config'
+    fi
+
+    if check_com -c grml-debootstrap ; then
+        debian2hd() {
+            echo "Installing debian to harddisk is possible by using grml-debootstrap."
+            return 1
+        }
+    fi
+}
+
+grmlcomp
+
+# {{{ keephack
+xsource "/etc/zsh/keephack"
+# }}}
+
+#########################################
+##      YOUR PERSONNAL STUFF HERE      ##
+#########################################
+
+# Loads local files
+for file in $ZSHDIR/rc/local/*; do
+    source $file
+done
+
+# Delete remaining xfunctions
+xunfunction
+
+# }}}