etc/zsh/zshrc

   1 # Filename:      zshrc
   2 # Purpose:       config file for zsh (z shell)
   3 # Authors:       grml-team (grml.org), (c) Michael Prokop <mika@grml.org>
   4 # Bug-Reports:   see http://grml.org/bugs/
   5 # License:       This file is licensed under the GPL v2.
   6 ################################################################################
   7 # This file is sourced only for interactive shells. It
   8 # should contain commands to set up aliases, functions,
   9 # options, key bindings, etc.
  10 #
  11 # Global Order: zshenv, zprofile, zshrc, zlogin
  12 ################################################################################
  13
  14 # zsh-refcard-tag documentation: {{{
  15 #   You may notice strange looking comments in this file.
  16 #   These are there for a purpose. grml's zsh-refcard can now be
  17 #   automatically generated from the contents of the actual configuration
  18 #   file. However, we need a little extra information on which comments
  19 #   and what lines of code to take into account (and for what purpose).
  20 #
  21 # Here is what they mean:
  22 #
  23 # List of tags (comment types) used:
  24 #   #a#     Next line contains an important alias, that should
  25 #           be included in the grml-zsh-refcard.
  26 #           (placement tag: @@INSERT-aliases@@)
  27 #   #f#     Next line contains the beginning of an important function.
  28 #           (placement tag: @@INSERT-functions@@)
  29 #   #v#     Next line contains an important variable.
  30 #           (placement tag: @@INSERT-variables@@)
  31 #   #k#     Next line contains an important keybinding.
  32 #           (placement tag: @@INSERT-keybindings@@)
  33 #   #d#     Hashed directories list generation:
  34 #               start   denotes the start of a list of 'hash -d'
  35 #                       definitions.
  36 #               end     denotes its end.
  37 #           (placement tag: @@INSERT-hasheddirs@@)
  38 #   #A#     Abbreviation expansion list generation:
  39 #               start   denotes the beginning of abbreviations.
  40 #               end     denotes their end.
  41 #           Lines within this section that end in '#d .*' provide
  42 #           extra documentation to be included in the refcard.
  43 #           (placement tag: @@INSERT-abbrev@@)
  44 #   #m#     This tag allows you to manually generate refcard entries
  45 #           for code lines that are hard/impossible to parse.
  46 #               Example:
  47 #                   #m# k ESC-h Call the run-help function
  48 #               That would add a refcard entry in the keybindings table
  49 #               for 'ESC-h' with the given comment.
  50 #           So the syntax is: #m# <section> <argument> <comment>
  51 #   #o#     This tag lets you insert entries to the 'other' hash.
  52 #           Generally, this should not be used. It is there for
  53 #           things that cannot be done easily in another way.
  54 #           (placement tag: @@INSERT-other-foobar@@)
  55 #
  56 #   All of these tags (except for m and o) take two arguments, the first
  57 #   within the tag, the other after the tag:
  58 #
  59 #   #<tag><section># <comment>
  60 #
  61 #   Where <section> is really just a number, which are defined by the
  62 #   @secmap array on top of 'genrefcard.pl'. The reason for numbers
  63 #   instead of names is, that for the reader, the tag should not differ
  64 #   much from a regular comment. For zsh, it is a regular comment indeed.
  65 #   The numbers have got the following meanings:
  66 #         0 -> "default"
  67 #         1 -> "system"
  68 #         2 -> "user"
  69 #         3 -> "debian"
  70 #         4 -> "search"
  71 #         5 -> "shortcuts"
  72 #         6 -> "services"
  73 #
  74 #   So, the following will add an entry to the 'functions' table in the
  75 #   'system' section, with a (hopefully) descriptive comment:
  76 #       #f1# Edit an alias via zle
  77 #       edalias() {
  78 #
  79 #   It will then show up in the @@INSERT-aliases-system@@ replacement tag
  80 #   that can be found in 'grml-zsh-refcard.tex.in'.
  81 #   If the section number is omitted, the 'default' section is assumed.
  82 #   Furthermore, in 'grml-zsh-refcard.tex.in' @@INSERT-aliases@@ is
  83 #   exactly the same as @@INSERT-aliases-default@@. If you want a list of
  84 #   *all* aliases, for example, use @@INSERT-aliases-all@@.
  85 #}}}
  86
  87 # zsh profiling {{{
  88 # just execute 'ZSH_PROFILE_RC=1 zsh' and run 'zprof' to get the details
  89 if [[ $ZSH_PROFILE_RC -gt 0 ]] ; then
  90     zmodload zsh/zprof
  91 fi
  92 # }}}
  93
  94 # load .zshrc.pre to give the user the chance to overwrite the defaults
  95 [[ -r ${HOME}/.zshrc.pre ]] && source ${HOME}/.zshrc.pre
  96
  97 # {{{ check for version/system
  98 # check for versions (compatibility reasons)
  99 is4(){
 100     [[ $ZSH_VERSION == <4->* ]] && return 0
 101     return 1
 102 }
 103
 104 is41(){
 105     [[ $ZSH_VERSION == 4.<1->* || $ZSH_VERSION == <5->* ]] && return 0
 106     return 1
 107 }
 108
 109 is42(){
 110     [[ $ZSH_VERSION == 4.<2->* || $ZSH_VERSION == <5->* ]] && return 0
 111     return 1
 112 }
 113
 114 is425(){
 115     [[ $ZSH_VERSION == 4.2.<5->* || $ZSH_VERSION == 4.<3->* || $ZSH_VERSION == <5->* ]] && return 0
 116     return 1
 117 }
 118
 119 is43(){
 120     [[ $ZSH_VERSION == 4.<3->* || $ZSH_VERSION == <5->* ]] && return 0
 121     return 1
 122 }
 123
 124 #f1# Checks whether or not you're running grml
 125 isgrml(){
 126     [[ -f /etc/grml_version ]] && return 0
 127     return 1
 128 }
 129
 130 #f1# Checks whether or not you're running a grml cd
 131 isgrmlcd(){
 132     [[ -f /etc/grml_cd ]] && return 0
 133     return 1
 134 }
 135
 136 if isgrml ; then
 137 #f1# Checks whether or not you're running grml-small
 138     isgrmlsmall() {
 139         [[ ${${${(f)"$(</etc/grml_version)"}%% *}##*-} == 'small' ]] && return 0 ; return 1
 140     }
 141 else
 142     isgrmlsmall() { return 1 }
 143 fi
 144
 145 isdarwin(){
 146     [[ $OSTYPE == darwin* ]] && return 0
 147     return 1
 148 }
 149
 150 #f1# are we running within an utf environment?
 151 isutfenv() {
 152     case "$LANG $CHARSET $LANGUAGE" in
 153         *utf*) return 0 ;;
 154         *UTF*) return 0 ;;
 155         *)     return 1 ;;
 156     esac
 157 }
 158
 159 # check for user, if not running as root set $SUDO to sudo
 160 (( EUID != 0 )) && SUDO='sudo' || SUDO=''
 161
 162 # change directory to home on first invocation of zsh
 163 # important for rungetty -> autologin
 164 # Thanks go to Bart Schaefer!
 165 isgrml && checkhome() {
 166     if [[ -z "$ALREADY_DID_CD_HOME" ]] ; then
 167         export ALREADY_DID_CD_HOME=$HOME
 168         cd
 169     fi
 170 }
 171
 172 # check for zsh v3.1.7+
 173
 174 if ! [[ ${ZSH_VERSION} == 3.1.<7->*      \
 175      || ${ZSH_VERSION} == 3.<2->.<->*    \
 176      || ${ZSH_VERSION} == <4->.<->*   ]] ; then
 177
 178     printf '-!-\n'
 179     printf '-!- In this configuration we try to make use of features, that only\n'
 180     printf '-!- require version 3.1.7 of the shell; That way this setup can be\n'
 181     printf '-!- used with a wide range of zsh versions, while using fairly\n'
 182     printf '-!- advanced features in all supported versions.\n'
 183     printf '-!-\n'
 184     printf '-!- However, you are running zsh version %s.\n' "$ZSH_VERSION"
 185     printf '-!-\n'
 186     printf '-!- While this *may* work, it might as well fail.\n'
 187     printf '-!- Please consider updating to at least version 3.1.7 of zsh.\n'
 188     printf '-!-\n'
 189     printf '-!- DO NOT EXPECT THIS TO WORK FLAWLESSLY!\n'
 190     printf '-!- If it does today, you'\''ve been lucky.\n'
 191     printf '-!-\n'
 192     printf '-!- Ye been warned!\n'
 193     printf '-!-\n'
 194
 195     function zstyle() { : }
 196 fi
 197
 198 # autoload wrapper - use this one instead of autoload directly
 199 # We need to define this function as early as this, because autoloading
 200 # 'is-at-least()' needs it.
 201 function zrcautoload() {
 202     setopt local_options extended_glob
 203     local fdir ffile
 204     local -i ffound
 205
 206     ffile=${1}
 207     (( found = 0 ))
 208     for fdir in ${fpath} ; do
 209         [[ -e ${fdir}/${ffile} ]] && (( ffound = 1 ))
 210     done
 211
 212     (( ffound == 0 )) && return 1
 213     if [[ $ZSH_VERSION == 3.1.<6-> || $ZSH_VERSION == <4->* ]] ; then
 214         autoload -U ${ffile} || return 1
 215     else
 216         autoload ${ffile} || return 1
 217     fi
 218     return 0
 219 }
 220
 221 # Load is-at-least() for more precise version checks
 222 # Note that this test will *always* fail, if the is-at-least
 223 # function could not be marked for autoloading.
 224 zrcautoload is-at-least || is-at-least() { return 1 }
 225
 226 # }}}
 227
 228 # setting some default values {{{
 229
 230 NOCOR=${NOCOR:-0}
 231 NOMENU=${NOMENU:-0}
 232 NOPRECMD=${NOPRECMD:-0}
 233 BATTERY=${BATTERY:-0}
 234 GRMLSMALL_SPECIFIC=${GRMLSMALL_SPECIFIC:-1}
 235 GRML_ALWAYS_LOAD_ALL=${GRML_ALWAYS_LOAD_ALL:-0}
 236 GRML_WARN_SKEL=${GRML_WARN_SKEL:-1}
 237
 238 if (( GRML_WARN_SKEL != 0 )) ; then
 239
 240 function grml_warn_skel_main() {
 241     printf '
 242 Dear user,
 243
 244 You updated grml'\''s zshrc which brings a major change.
 245 The configuration is kept only in one file, being the global zshrc.
 246 In the past, the configuration was split in two files, with the
 247 second file being the .zshrc file from /etc/skel.
 248
 249 If you have a .zshrc file in your home directory that originally
 250 came from the skel directory, please remove it. This is also the case
 251 if you followed earlier instructions from the grml-zsh-refcard or
 252 from <http://grml.org/console> on non-grml systems.
 253
 254 Please see the current grml-zsh-refcard for updated installation
 255 information. In short, you don'\''t want a .zshrc.global file. Install
 256 the global zshrc to ~/.zshrc and be done.
 257
 258 If you need changes to the configuration, use ~/.zshrc.pre and
 259 ~/.zshrc.local.
 260
 261 '
 262 }
 263
 264 function grml_warn_skel_remove() {
 265     printf 'To remove this warning execute '\''grml_do_not_warn_skel'\''.\n\n'
 266 }
 267
 268 function grml_do_not_warn_skel() {
 269     printf '# Do not warn about old skel dot-files anymore\n' >>! ~/.zshrc.pre
 270     printf 'GRML_WARN_SKEL=0\n' >>! ~/.zshrc.pre
 271 }
 272
 273 # let's try to guess how the user uses us.
 274 if is-at-least 4.3.7 ; then
 275     # funcsourcetrace requires at least version 4.3.7 of zsh.
 276     GRML_SRC_FILE="${${funcsourcetrace[1]}%:*}"
 277
 278     grml_warn_skel_main
 279     case ${GRML_SRC_FILE} in
 280         (${HOME}/.zshrc.global)
 281             grml_warn_skel_remove
 282             printf '\nIt looks like you copied the grml zshrc to '\''~/.zshrc.global'\''.\n'
 283             printf 'Nowadays you just copy the global zshrc to '\''~/.zshrc'\'' to use\n'
 284             printf 'it on a non-grml-system.\n'
 285             ;;
 286         (${HOME}/.zshrc)
 287             printf '\nIt looks like you copied the grml zshrc to '\''~/.zshrc'\''.\n'
 288             printf 'We'\''ll disable this warning automatically for later sessions.\n'
 289             grml_do_not_warn_skel
 290             ;;
 291         (*)
 292             grml_do_not_warn_skel
 293             ;;
 294     esac
 295 else
 296     grml_warn_skel_main
 297     grml_warn_skel_remove
 298 fi
 299
 300 unfunction grml_warn_skel_remove grml_warn_skel_main
 301
 302 fi # GRML_WARN_SKEL
 303
 304 # }}}
 305
 306 # utility functions {{{
 307 # this function checks if a command exists and returns either true
 308 # or false. This avoids using 'which' and 'whence', which will
 309 # avoid problems with aliases for which on certain weird systems. :-)
 310 check_com() {
 311     local -i comonly
 312
 313     if [[ ${1} == '-c' ]] ; then
 314         (( comonly = 1 ))
 315         shift
 316     else
 317         (( comonly = 0 ))
 318     fi
 319
 320     if (( ${#argv} != 1 )) ; then
 321         printf 'usage: check_com [-c] <command>\n' >&2
 322         return 1
 323     fi
 324
 325     if (( comonly > 0 )) ; then
 326         [[ -n ${commands[$1]}  ]] && return 0
 327         return 1
 328     fi
 329
 330     if   [[ -n ${commands[$1]}    ]] \
 331       || [[ -n ${functions[$1]}   ]] \
 332       || [[ -n ${aliases[$1]}     ]] \
 333       || [[ -n ${reswords[(r)$1]} ]] ; then
 334
 335         return 0
 336     fi
 337
 338     return 1
 339 }
 340
 341 # creates an alias and precedes the command with
 342 # sudo if $EUID is not zero.
 343 salias() {
 344     local only=0 ; local multi=0
 345     while [[ ${1} == -* ]] ; do
 346         case ${1} in
 347             (-o) only=1 ;;
 348             (-a) multi=1 ;;
 349             (--) shift ; break ;;
 350             (-h)
 351                 printf 'usage: salias [-h|-o|-a] <alias-expression>\n'
 352                 printf '  -h      shows this help text.\n'
 353                 printf '  -a      replace '\'' ; '\'' sequences with '\'' ; sudo '\''.\n'
 354                 printf '          be careful using this option.\n'
 355                 printf '  -o      only sets an alias if a preceding sudo would be needed.\n'
 356                 return 0
 357                 ;;
 358             (*) printf "unkown option: '%s'\n" "${1}" ; return 1 ;;
 359         esac
 360         shift
 361     done
 362
 363     if (( ${#argv} > 1 )) ; then
 364         printf 'Too many arguments %s\n' "${#argv}"
 365         return 1
 366     fi
 367
 368     key="${1%%\=*}" ;  val="${1#*\=}"
 369     if (( EUID == 0 )) && (( only == 0 )); then
 370         alias -- "${key}=${val}"
 371     elif (( EUID > 0 )) ; then
 372         (( multi > 0 )) && val="${val// ; / ; sudo }"
 373         alias -- "${key}=sudo ${val}"
 374     fi
 375
 376     return 0
 377 }
 378
 379 # a "print -l ${(u)foo}"-workaround for pre-4.2.0 shells
 380 # usage: uprint foo
 381 #   Where foo is the *name* of the parameter you want printed.
 382 #   Note that foo is no typo; $foo would be wrong here!
 383 if ! is42 ; then
 384     uprint () {
 385         local -a u
 386         local w
 387         local parameter=${1}
 388
 389         if [[ -z ${parameter} ]] ; then
 390             printf 'usage: uprint <parameter>\n'
 391             return 1
 392         fi
 393
 394         for w in ${(P)parameter} ; do
 395             [[ -z ${(M)u:#${w}} ]] && u=( ${u} ${w} )
 396         done
 397
 398         builtin print -l ${u}
 399     }
 400 fi
 401
 402 # Check if we can read given files and source those we can.
 403 xsource() {
 404     if (( ${#argv} < 1 )) ; then
 405         printf 'usage: xsource FILE(s)...\n' >&2
 406         return 1
 407     fi
 408
 409     while (( ${#argv} > 0 )) ; do
 410         [[ -r ${1} ]] && source ${1}
 411         shift
 412     done
 413     return 0
 414 }
 415
 416 # Check if we can read a given file and 'cat(1)' it.
 417 xcat() {
 418     if (( ${#argv} != 1 )) ; then
 419         printf 'usage: xcat FILE\n' >&2
 420         return 1
 421     fi
 422
 423     [[ -r ${1} ]] && cat ${1}
 424     return 0
 425 }
 426
 427 # Remove these functions again, they are of use only in these
 428 # setup files. This should be called at the end of .zshrc.
 429 xunfunction() {
 430     local -a funcs
 431     funcs=(salias xcat xsource xunfunction zrcautoload)
 432
 433     for func in $funcs ; do
 434         [[ -n ${functions[$func]} ]] \
 435             && unfunction $func
 436     done
 437     return 0
 438 }
 439
 440 #}}}
 441
 442 # locale setup {{{
 443 if [[ -z "$LANG" ]] ; then
 444    xsource "/etc/default/locale"
 445 fi
 446
 447 export LANG=${LANG:-en_US.iso885915}
 448 for var in LC_ALL LC_MESSAGES ; do
 449     [[ -n ${(P)var} ]] && export $var
 450 done
 451
 452 xsource "/etc/sysconfig/keyboard"
 453
 454 TZ=$(xcat /etc/timezone)
 455 # }}}
 456
 457 # check for potentially old files in 'completion.d' {{{
 458 setopt extendedglob
 459 xof=(/etc/zsh/completion.d/*~/etc/zsh/completion.d/_*(N))
 460 if (( ${#xof} > 0 )) ; then
 461     printf '\n -!- INFORMATION\n\n'
 462     printf ' -!- %s file(s) not starting with an underscore (_) found in\n' ${#xof}
 463     printf ' -!- /etc/zsh/completion.d/.\n\n'
 464     printf ' -!- While this has been the case in old versions of grml-etc-core,\n'
 465     printf ' -!- recent versions of the grml-zsh-setup have all these files rewritten\n'
 466     printf ' -!- and renamed. Furthermore, the grml-zsh-setup will *only* add files\n'
 467     printf ' -!- named _* to that directory.\n\n'
 468     printf ' -!- If you added functions to completion.d yourself, please consider\n'
 469     printf ' -!- moving them to /etc/zsh/functions.d/. Files in that directory, not\n'
 470     printf ' -!- starting with an underscore are marked for automatic loading\n'
 471     printf ' -!- by default (so that is quite convenient).\n\n'
 472     printf ' -!- If there are files *not* starting with an underscore from an older\n'
 473     printf ' -!- grml-etc-core in completion.d, you may safely remove them.\n\n'
 474     printf ' -!- Delete the files for example via running:\n\n'
 475     printf "      rm ${xof}\n\n"
 476     printf ' -!- Note, that this message will *not* go away, unless you yourself\n'
 477     printf ' -!- resolve the situation manually.\n\n'
 478     BROKEN_COMPLETION_DIR=1
 479 fi
 480 unset xof
 481 # }}}
 482
 483 # {{{ set some variables
 484 if check_com -c vim ; then
 485 #v#
 486     export EDITOR=${EDITOR:-vim}
 487 else
 488     export EDITOR=${EDITOR:-vi}
 489 fi
 490
 491 #v#
 492 export PAGER=${PAGER:-less}
 493
 494 #v#
 495 export MAIL=${MAIL:-/var/mail/$USER}
 496
 497 # if we don't set $SHELL then aterm, rxvt,.. will use /bin/sh or /bin/bash :-/
 498 export SHELL='/bin/zsh'
 499
 500 # color setup for ls:
 501 check_com -c dircolors && eval $(dircolors -b)
 502 # color setup for ls on OS X:
 503 isdarwin && export CLICOLOR=1
 504
 505 # do MacPorts setup on darwin
 506 if isdarwin && [[ -d /opt/local ]]; then
 507     # Note: PATH gets set in /etc/zprofile on Darwin, so this can't go into
 508     # zshenv.
 509     PATH="/opt/local/bin:/opt/local/sbin:$PATH"
 510     MANPATH="/opt/local/share/man:$MANPATH"
 511 fi
 512 # do Fink setup on darwin
 513 isdarwin && xsource /sw/bin/init.sh
 514
 515 # completion functions go to /etc/zsh/completion.d
 516 # function files may be put into /etc/zsh/functions.d, from where they
 517 # will be automatically autoloaded.
 518 if [[ -n "$BROKEN_COMPLETION_DIR" ]] ; then
 519     print 'Warning: not setting completion directories because broken files have been found.' >&2
 520 else
 521     [[ -d /etc/zsh/completion.d ]] && fpath=( $fpath /etc/zsh/completion.d )
 522     if [[ -d /etc/zsh/functions.d ]] ; then
 523         fpath+=( /etc/zsh/functions.d )
 524         for func in /etc/zsh/functions.d/[^_]*[^~](N.) ; do
 525             zrcautoload -U ${func:t}
 526         done
 527     fi
 528 fi
 529
 530 # automatically remove duplicates from these arrays
 531 typeset -U path cdpath fpath manpath
 532 # }}}
 533
 534 # {{{ keybindings
 535 if [[ "$TERM" != emacs ]] ; then
 536     [[ -z "$terminfo[kdch1]" ]] || bindkey -M emacs "$terminfo[kdch1]" delete-char
 537     [[ -z "$terminfo[khome]" ]] || bindkey -M emacs "$terminfo[khome]" beginning-of-line
 538     [[ -z "$terminfo[kend]"  ]] || bindkey -M emacs "$terminfo[kend]"  end-of-line
 539     [[ -z "$terminfo[kdch1]" ]] || bindkey -M vicmd "$terminfo[kdch1]" vi-delete-char
 540     [[ -z "$terminfo[khome]" ]] || bindkey -M vicmd "$terminfo[khome]" vi-beginning-of-line
 541     [[ -z "$terminfo[kend]"  ]] || bindkey -M vicmd "$terminfo[kend]"  vi-end-of-line
 542     [[ -z "$terminfo[cuu1]"  ]] || bindkey -M viins "$terminfo[cuu1]"  vi-up-line-or-history
 543     [[ -z "$terminfo[cuf1]"  ]] || bindkey -M viins "$terminfo[cuf1]"  vi-forward-char
 544     [[ -z "$terminfo[kcuu1]" ]] || bindkey -M viins "$terminfo[kcuu1]" vi-up-line-or-history
 545     [[ -z "$terminfo[kcud1]" ]] || bindkey -M viins "$terminfo[kcud1]" vi-down-line-or-history
 546     [[ -z "$terminfo[kcuf1]" ]] || bindkey -M viins "$terminfo[kcuf1]" vi-forward-char
 547     [[ -z "$terminfo[kcub1]" ]] || bindkey -M viins "$terminfo[kcub1]" vi-backward-char
 548     # ncurses stuff:
 549     [[ "$terminfo[kcuu1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcuu1]/O/[}" vi-up-line-or-history
 550     [[ "$terminfo[kcud1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcud1]/O/[}" vi-down-line-or-history
 551     [[ "$terminfo[kcuf1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcuf1]/O/[}" vi-forward-char
 552     [[ "$terminfo[kcub1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcub1]/O/[}" vi-backward-char
 553     [[ "$terminfo[khome]" == $'\eO'* ]] && bindkey -M viins "${terminfo[khome]/O/[}" beginning-of-line
 554     [[ "$terminfo[kend]"  == $'\eO'* ]] && bindkey -M viins "${terminfo[kend]/O/[}"  end-of-line
 555     [[ "$terminfo[khome]" == $'\eO'* ]] && bindkey -M emacs "${terminfo[khome]/O/[}" beginning-of-line
 556     [[ "$terminfo[kend]"  == $'\eO'* ]] && bindkey -M emacs "${terminfo[kend]/O/[}"  end-of-line
 557 fi
 558
 559 ## keybindings (run 'bindkeys' for details, more details via man zshzle)
 560 # use emacs style per default:
 561 bindkey -e
 562 # use vi style:
 563 # bindkey -v
 564
 565 #if [[ "$TERM" == screen ]] ; then
 566 bindkey '\e[1~' beginning-of-line       # home
 567 bindkey '\e[4~' end-of-line             # end
 568 bindkey '\e[A'  up-line-or-search       # cursor up
 569 bindkey '\e[B'  down-line-or-search     # <ESC>-
 570
 571 bindkey '^xp'   history-beginning-search-backward
 572 bindkey '^xP'   history-beginning-search-forward
 573 # bindkey -s '^L' "|less\n"             # ctrl-L pipes to less
 574 # bindkey -s '^B' " &\n"                # ctrl-B runs it in the background
 575 # if terminal type is set to 'rxvt':
 576 bindkey '\e[7~' beginning-of-line       # home
 577 bindkey '\e[8~' end-of-line             # end
 578 #fi
 579
 580 # insert unicode character
 581 # usage example: 'ctrl-x i' 00A7 'ctrl-x i' will give you an §
 582 # See for example http://unicode.org/charts/ for unicode characters code
 583 zrcautoload insert-unicode-char
 584 zle -N insert-unicode-char
 585 #k# Insert Unicode character
 586 bindkey '^Xi' insert-unicode-char
 587
 588 # just type 'cd ...' to get 'cd ../..'
 589 #  rationalise-dot() {
 590 #  if [[ $LBUFFER == *.. ]] ; then
 591 #    LBUFFER+=/..
 592 #  else
 593 #    LBUFFER+=.
 594 #  fi
 595 #  }
 596 #  zle -N rationalise-dot
 597 #  bindkey . rationalise-dot
 598
 599 #  bindkey '\eq' push-line-or-edit
 600
 601 ## toggle the ,. abbreviation feature on/off
 602 # NOABBREVIATION: default abbreviation-state
 603 #                 0 - enabled (default)
 604 #                 1 - disabled
 605 NOABBREVIATION=${NOABBREVIATION:-0}
 606
 607 grml_toggle_abbrev() {
 608     if (( ${NOABBREVIATION} > 0 )) ; then
 609         NOABBREVIATION=0
 610     else
 611         NOABBREVIATION=1
 612     fi
 613 }
 614
 615 zle -N grml_toggle_abbrev
 616 bindkey '^xA' grml_toggle_abbrev
 617
 618 # }}}
 619
 620 # a generic accept-line wrapper {{{
 621
 622 # This widget can prevent unwanted autocorrections from command-name
 623 # to _command-name, rehash automatically on enter and call any number
 624 # of builtin and user-defined widgets in different contexts.
 625 #
 626 # For a broader description, see:
 627 # <http://bewatermyfriend.org/posts/2007/12-26.11-50-38-tooltime.html>
 628 #
 629 # The code is imported from the file 'zsh/functions/accept-line' from
 630 # <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>, which
 631 # distributed under the same terms as zsh itself.
 632
 633 # A newly added command will may not be found or will cause false
 634 # correction attempts, if you got auto-correction set. By setting the
 635 # following style, we force accept-line() to rehash, if it cannot
 636 # find the first word on the command line in the $command[] hash.
 637 zstyle ':acceptline:*' rehash true
 638
 639 function Accept-Line() {
 640     setopt localoptions noksharrays
 641     local -a subs
 642     local -xi aldone
 643     local sub
 644
 645     zstyle -a ":acceptline:${alcontext}" actions subs
 646
 647     (( ${#subs} < 1 )) && return 0
 648
 649     (( aldone = 0 ))
 650     for sub in ${subs} ; do
 651         [[ ${sub} == 'accept-line' ]] && sub='.accept-line'
 652         zle ${sub}
 653
 654         (( aldone > 0 )) && break
 655     done
 656 }
 657
 658 function Accept-Line-getdefault() {
 659     local default_action
 660
 661     zstyle -s ":acceptline:${alcontext}" default_action default_action
 662     case ${default_action} in
 663         ((accept-line|))
 664             printf ".accept-line"
 665             ;;
 666         (*)
 667             printf ${default_action}
 668             ;;
 669     esac
 670 }
 671
 672 function accept-line() {
 673     setopt localoptions noksharrays
 674     local -a cmdline
 675     local -x alcontext
 676     local buf com fname format msg default_action
 677
 678     alcontext='default'
 679     buf="${BUFFER}"
 680     cmdline=(${(z)BUFFER})
 681     com="${cmdline[1]}"
 682     fname="_${com}"
 683
 684     zstyle -t ":acceptline:${alcontext}" rehash \
 685         && [[ -z ${commands[$com]} ]]           \
 686         && rehash
 687
 688     if    [[ -n ${reswords[(r)$com]} ]] \
 689        || [[ -n ${aliases[$com]}     ]] \
 690        || [[ -n ${functions[$com]}   ]] \
 691        || [[ -n ${builtins[$com]}    ]] \
 692        || [[ -n ${commands[$com]}    ]] ; then
 693
 694         # there is something sensible to execute, just do it.
 695         alcontext='normal'
 696         zle Accept-Line
 697
 698         default_action=$(Accept-Line-getdefault)
 699         zstyle -T ":acceptline:${alcontext}" call_default \
 700             && zle ${default_action}
 701         return
 702     fi
 703
 704     if    [[ -o correct              ]] \
 705        || [[ -o correctall           ]] \
 706        && [[ -n ${functions[$fname]} ]] ; then
 707
 708         # nothing there to execute but there is a function called
 709         # _command_name; a completion widget. Makes no sense to
 710         # call it on the commandline, but the correct{,all} options
 711         # will ask for it nevertheless, so warn the user.
 712         if [[ ${LASTWIDGET} == 'accept-line' ]] ; then
 713             # Okay, we warned the user before, he called us again,
 714             # so have it his way.
 715             alcontext='force'
 716             zle Accept-Line
 717
 718             default_action=$(Accept-Line-getdefault)
 719             zstyle -T ":acceptline:${alcontext}" call_default \
 720                 && zle ${default_action}
 721             return
 722         fi
 723
 724         # prepare warning message for the user, configurable via zstyle.
 725         zstyle -s ":acceptline:${alcontext}" compwarnfmt msg
 726
 727         if [[ -z ${msg} ]] ; then
 728             msg="%c will not execute and completion %f exists."
 729         fi
 730
 731         zformat -f msg "${msg}" "c:${com}" "f:${fname}"
 732
 733         zle -M -- "${msg}"
 734         return
 735     elif [[ -n ${buf//[$' \t\n']##/} ]] ; then
 736         # If we are here, the commandline contains something that is not
 737         # executable, which is neither subject to _command_name correction
 738         # and is not empty. might be a variable assignment
 739         alcontext='misc'
 740         zle Accept-Line
 741
 742         default_action=$(Accept-Line-getdefault)
 743         zstyle -T ":acceptline:${alcontext}" call_default \
 744             && zle ${default_action}
 745         return
 746     fi
 747
 748     # If we got this far, the commandline only contains whitespace, or is empty.
 749     alcontext='empty'
 750     zle Accept-Line
 751
 752     default_action=$(Accept-Line-getdefault)
 753     zstyle -T ":acceptline:${alcontext}" call_default \
 754         && zle ${default_action}
 755 }
 756
 757 zle -N accept-line
 758 zle -N Accept-Line
 759
 760 # }}}
 761
 762 # power completion - abbreviation expansion {{{
 763 # power completion / abbreviation expansion / buffer expansion
 764 # see http://zshwiki.org/home/examples/zleiab for details
 765 # less risky than the global aliases but powerful as well
 766 # just type the abbreviation key and afterwards ',.' to expand it
 767 declare -A abk
 768 setopt extendedglob
 769 setopt interactivecomments
 770 abk=(
 771 # key  # value                (#d additional doc string)
 772 #A# start
 773     '...' '../..'
 774     '....' '../../..'
 775     'BG' '& exit'
 776     'C' '| wc -l'
 777     'G' '|& grep --color=auto'
 778     'H' '| head'
 779     'Hl' ' --help |& less -r'      #d (Display help in pager)
 780     'L' '| less'
 781     'LL' '|& less -r'
 782     'M' '| most'
 783     'N' '&>/dev/null'              #d (No Output)
 784     'R' '| tr A-z N-za-m'          #d (ROT13)
 785     'SL' '| sort | less'
 786     'S' '| sort -u'
 787     'T' '| tail'
 788     'V' '|& vim -'
 789 #A# end
 790     'hide' "echo -en '\033]50;nil2\007'"
 791     'tiny' 'echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-80-*-*-c-*-iso8859-15\007"'
 792     'small' 'echo -en "\033]50;6x10\007"'
 793     'medium' 'echo -en "\033]50;-misc-fixed-medium-r-normal--13-120-75-75-c-80-iso8859-15\007"'
 794     'default' 'echo -e "\033]50;-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-15\007"'
 795     'large' 'echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-150-*-*-c-*-iso8859-15\007"'
 796     'huge' 'echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-210-*-*-c-*-iso8859-15\007"'
 797     'smartfont' 'echo -en "\033]50;-artwiz-smoothansi-*-*-*-*-*-*-*-*-*-*-*-*\007"'
 798     'semifont' 'echo -en "\033]50;-misc-fixed-medium-r-semicondensed-*-*-120-*-*-*-*-iso8859-15\007"'
 799     'da' 'du -sch'
 800     'j' 'jobs -l'
 801     'u' 'translate -i'
 802     'co' "./configure && make && sudo make install"
 803     'CH' "./configure --help"
 804     'conkeror' 'firefox -chrome chrome://conkeror/content'
 805     'dir' 'ls -lSrah'
 806     'lad' $'ls -d .*(/)\n# only show dot-directories'
 807     'lsa' $'ls -a .*(.)\n# only show dot-files'
 808     'lss' $'ls -l *(s,S,t)\n# only files with setgid/setuid/sticky flag'
 809     'lsl' $'ls -l *(@[1,10])\n# only symlinks'
 810     'lsx' $'ls -l *(*[1,10])\n# only executables'
 811     'lsw' $'ls -ld *(R,W,X.^ND/)\n# world-{readable,writable,executable} files'
 812     'lsbig' $'ls -flh *(.OL[1,10])\n# display the biggest files'
 813     'lsd' $'ls -d *(/)\n# only show directories'
 814     'lse' $'ls -d *(/^F)\n# only show empty directories'
 815     'lsnew' $'ls -rl *(D.om[1,10])\n# display the newest files'
 816     'lsold' $'ls -rtlh *(D.om[-11,-1])\n # display the oldest files'
 817     'lssmall' $'ls -Srl *(.oL[1,10])\n# display the smallest files'
 818     'rw-' 'chmod 600'
 819     '600' 'chmod u+rw-x,g-rwx,o-rwx'
 820     'rwx' 'chmod u+rwx'
 821     '700' 'chmod u+rwx,g-rwx,o-rwx'
 822     'r--' 'chmod u+r-wx,g-rwx,o-rwx'
 823     '644' $'chmod u+rw-x,g+r-wx,o+r-wx\n # 4=r,2=w,1=x'
 824     '755' 'chmod u+rwx,g+r-w+x,o+r-w+x'
 825     'md' 'mkdir -p '
 826     'cmplayer' 'mplayer -vo -fs -zoom fbdev'
 827     'fbmplayer' 'mplayer -vo -fs -zoom fbdev'
 828     'fblinks' 'links2 -driver fb'
 829     'insecssh' 'ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
 830     'insecscp' 'scp -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
 831     'fori' 'for i ({..}) { }'
 832     'cx' 'chmod +x'
 833     'e'  'print -l'
 834     'se' 'setopt interactivecomments'
 835     'va' 'valac --vapidir=../vapi/ --pkg=gtk+-2.0 gtktest.vala'
 836     'fb2' '=mplayer -vo fbdev -fs -zoom 1>/dev/null -xy 2'
 837     'fb3' '=mplayer -vo fbdev -fs  -zoom 1>/dev/null -xy 3'
 838     'ci' 'centericq'
 839     'D'  'export DISPLAY=:0.0'
 840     'mp' 'mplayer -vo xv -fs -zoom'
 841 )
 842
 843 globalias() {
 844     local MATCH
 845
 846     if (( NOABBREVIATION > 0 )) ; then
 847         LBUFFER="${LBUFFER},."
 848         return 0
 849     fi
 850
 851     matched_chars='[.-|_a-zA-Z0-9]#'
 852     LBUFFER=${LBUFFER%%(#m)[.-|_a-zA-Z0-9]#}
 853     LBUFFER+=${abk[$MATCH]:-$MATCH}
 854 }
 855
 856 zle -N globalias
 857 bindkey ",." globalias
 858 # }}}
 859
 860 # {{{ autoloading
 861 zrcautoload zmv    # who needs mmv or rename?
 862 zrcautoload history-search-end
 863
 864 # we don't want to quote/espace URLs on our own...
 865 # if autoload -U url-quote-magic ; then
 866 #    zle -N self-insert url-quote-magic
 867 #    zstyle ':url-quote-magic:*' url-metas '*?[]^()~#{}='
 868 # else
 869 #    print 'Notice: no url-quote-magic available :('
 870 # fi
 871 alias url-quote='autoload -U url-quote-magic ; zle -N self-insert url-quote-magic'
 872
 873 #m# k ESC-h Call \kbd{run-help} for the 1st word on the command line
 874 alias run-help >&/dev/null && unalias run-help
 875 zrcautoload run-help # use via 'esc-h'
 876
 877 # completion system
 878 if zrcautoload compinit && compinit 2>/dev/null ; then
 879     compinit 2>/dev/null || print 'Notice: no compinit available :('
 880 else
 881     print 'Notice: no compinit available :('
 882     function zstyle { }
 883     function compdef { }
 884 fi
 885
 886 is4 && zrcautoload zed # use ZLE editor to edit a file or function
 887
 888 is4 && \
 889 for mod in complist deltochar mathfunc ; do
 890     zmodload -i zsh/${mod} 2>/dev/null || print "Notice: no ${mod} available :("
 891 done
 892
 893 # autoload zsh modules when they are referenced
 894 if is4 ; then
 895     tmpargs=(
 896         a   stat
 897         a   zpty
 898         ap  mapfile
 899     )
 900
 901     while (( ${#tmpargs} > 0 )) ; do
 902         zmodload -${tmpargs[1]} zsh/${tmpargs[2]} ${tmpargs[2]}
 903         shift 2 tmpargs
 904     done
 905     unset tmpargs
 906 fi
 907
 908 if is4 && zrcautoload insert-files && zle -N insert-files ; then
 909     #k# Insert files
 910     bindkey "^Xf" insert-files # C-x-f
 911 fi
 912
 913 bindkey ' '   magic-space    # also do history expansion on space
 914 #k# Trigger menu-complete
 915 bindkey '\ei' menu-complete  # menu completion via esc-i
 916
 917 # press esc-e for editing command line in $EDITOR or $VISUAL
 918 if is4 && zrcautoload edit-command-line && zle -N edit-command-line ; then
 919     #k# Edit the current line in \kbd{\$EDITOR}
 920     bindkey '\ee' edit-command-line
 921 fi
 922
 923 if is4 && [[ -n ${(k)modules[zsh/complist]} ]] ; then
 924     #k# menu selection: pick item but stay in the menu
 925     bindkey -M menuselect '\e^M' accept-and-menu-complete
 926
 927     # accept a completion and try to complete again by using menu
 928     # completion; very useful with completing directories
 929     # by using 'undo' one's got a simple file browser
 930     bindkey -M menuselect '^o' accept-and-infer-next-history
 931 fi
 932
 933 # press "ctrl-e d" to insert the actual date in the form yyyy-mm-dd
 934 _bkdate() { BUFFER="$BUFFER$(date '+%F')"; CURSOR=$#BUFFER; }
 935 zle -N _bkdate
 936
 937 #k# Insert a timestamp on the command line (yyyy-mm-dd)
 938 bindkey '^Ed' _bkdate
 939
 940 # press esc-m for inserting last typed word again (thanks to caphuso!)
 941 insert-last-typed-word() { zle insert-last-word -- 0 -1 };
 942 zle -N insert-last-typed-word;
 943
 944 #k# Insert last typed word
 945 bindkey "\em" insert-last-typed-word
 946
 947 #k# Shortcut for \kbd{fg<enter>}
 948 bindkey -s '^z' "fg\n"
 949
 950 # run command line as user root via sudo:
 951 sudo-command-line() {
 952     [[ -z $BUFFER ]] && zle up-history
 953     [[ $BUFFER != sudo\ * ]] && BUFFER="sudo $BUFFER"
 954 }
 955 zle -N sudo-command-line
 956
 957 #k# Put the current command line into a \kbd{sudo} call
 958 bindkey "^Os" sudo-command-line
 959
 960 ### jump behind the first word on the cmdline.
 961 ### useful to add options.
 962 function jump_after_first_word() {
 963     local words
 964     words=(${(z)BUFFER})
 965
 966     if (( ${#words} <= 1 )) ; then
 967         CURSOR=${#BUFFER}
 968     else
 969         CURSOR=${#${words[1]}}
 970     fi
 971 }
 972 zle -N jump_after_first_word
 973
 974 bindkey '^x1' jump_after_first_word
 975
 976 # }}}
 977
 978 # {{{ set some important options
 979 # Please update these tags, if you change the umask settings below.
 980 #o# r_umask     002
 981 #o# r_umaskstr  rwxrwxr-x
 982 #o# umask       022
 983 #o# umaskstr    rwxr-xr-x
 984 (( EUID != 0 )) && umask 002 || umask 022
 985
 986 # history:
 987 setopt append_history       # append history list to the history file (important for multiple parallel zsh sessions!)
 988 is4 && setopt SHARE_HISTORY # import new commands from the history file also in other zsh-session
 989 setopt extended_history     # save each command's beginning timestamp and the duration to the history file
 990 is4 && setopt histignorealldups # If  a  new  command  line being added to the history
 991                             # list duplicates an older one, the older command is removed from the list
 992 setopt histignorespace      # remove command lines from the history list when
 993                             # the first character on the line is a space
 994 setopt auto_cd              # if a command is issued that can't be executed as a normal command,
 995                             # and the command is the name of a directory, perform the cd command to that directory
 996 setopt extended_glob        # in order to use #, ~ and ^ for filename generation
 997                             # grep word *~(*.gz|*.bz|*.bz2|*.zip|*.Z) ->
 998                             # -> searches for word not in compressed files
 999                             # don't forget to quote '^', '~' and '#'!
1000 setopt longlistjobs         # display PID when suspending processes as well
1001 setopt notify               # report the status of backgrounds jobs immediately
1002 setopt hash_list_all        # Whenever a command completion is attempted, make sure \
1003                             # the entire command path is hashed first.
1004 setopt completeinword       # not just at the end
1005 setopt nohup                # and don't kill them, either
1006 setopt auto_pushd           # make cd push the old directory onto the directory stack.
1007 setopt nonomatch            # try to avoid the 'zsh: no matches found...'
1008 setopt nobeep               # avoid "beep"ing
1009 setopt pushd_ignore_dups    # don't push the same dir twice.
1010
1011 MAILCHECK=30       # mailchecks
1012 REPORTTIME=5       # report about cpu-/system-/user-time of command if running longer than 5 seconds
1013 watch=(notme root) # watch for everyone but me and root
1014
1015 # only slash should be considered as a word separator:
1016 slash-backward-kill-word() {
1017     local WORDCHARS="${WORDCHARS:s@/@}"
1018     # zle backward-word
1019     zle backward-kill-word
1020 }
1021 zle -N slash-backward-kill-word
1022
1023 #k# Kill everything in a word up to its last \kbd{/}
1024 bindkey '\ev' slash-backward-kill-word
1025
1026 # }}}
1027
1028 # {{{ history
1029
1030 ZSHDIR=$HOME/.zsh
1031
1032 #v#
1033 HISTFILE=$HOME/.zsh_history
1034 isgrmlcd && HISTSIZE=500  || HISTSIZE=5000
1035 isgrmlcd && SAVEHIST=1000 || SAVEHIST=10000 # useful for setopt append_history
1036
1037 # }}}
1038
1039 # dirstack handling {{{
1040
1041 DIRSTACKSIZE=${DIRSTACKSIZE:-20}
1042 DIRSTACKFILE=${DIRSTACKFILE:-${HOME}/.zdirs}
1043
1044 if [[ -f ${DIRSTACKFILE} ]] && [[ ${#dirstack[*]} -eq 0 ]] ; then
1045     dirstack=( ${(f)"$(< $DIRSTACKFILE)"} )
1046     # "cd -" won't work after login by just setting $OLDPWD, so
1047     [[ -d $dirstack[0] ]] && cd $dirstack[0] && cd $OLDPWD
1048 fi
1049
1050 chpwd() {
1051     if is42 ; then
1052         builtin print -l ${(u)dirstack} >! ${DIRSTACKFILE}
1053     else
1054         uprint dirstack >! ${DIRSTACKFILE}
1055     fi
1056 }
1057
1058 # }}}
1059
1060 # {{{ display battery status on right side of prompt via running 'BATTERY=1 zsh'
1061 if [[ $BATTERY -gt 0 ]] ; then
1062     if ! check_com -c acpi ; then
1063         BATTERY=0
1064     fi
1065 fi
1066
1067 battery() {
1068 if [[ $BATTERY -gt 0 ]] ; then
1069     PERCENT="${${"$(acpi 2>/dev/null)"}/(#b)[[:space:]]##Battery <->: [^0-9]##, (<->)%*/${match[1]}}"
1070     if [[ -z "$PERCENT" ]] ; then
1071         PERCENT='acpi not present'
1072     else
1073         if [[ "$PERCENT" -lt 20 ]] ; then
1074             PERCENT="warning: ${PERCENT}%%"
1075         else
1076             PERCENT="${PERCENT}%%"
1077         fi
1078     fi
1079 fi
1080 }
1081 # }}}
1082
1083 # set colors for use in prompts {{{
1084 if zrcautoload colors && colors 2>/dev/null ; then
1085     BLUE="%{${fg[blue]}%}"
1086     RED="%{${fg_bold[red]}%}"
1087     GREEN="%{${fg[green]}%}"
1088     CYAN="%{${fg[cyan]}%}"
1089     MAGENTA="%{${fg[magenta]}%}"
1090     YELLOW="%{${fg[yellow]}%}"
1091     WHITE="%{${fg[white]}%}"
1092     NO_COLOUR="%{${reset_color}%}"
1093 else
1094     BLUE=$'%{\e[1;34m%}'
1095     RED=$'%{\e[1;31m%}'
1096     GREEN=$'%{\e[1;32m%}'
1097     CYAN=$'%{\e[1;36m%}'
1098     WHITE=$'%{\e[1;37m%}'
1099     MAGENTA=$'%{\e[1;35m%}'
1100     YELLOW=$'%{\e[1;33m%}'
1101     NO_COLOUR=$'%{\e[0m%}'
1102 fi
1103
1104 # }}}
1105
1106 # gather version control information for inclusion in a prompt {{{
1107
1108 if ! is41 ; then
1109     # Be quiet about version problems in grml's zshrc as the user cannot disable
1110     # loading vcs_info() as it is *in* the zshrc - as you can see. :-)
1111     # Just unset most probable variables and disable vcs_info altogether.
1112     local -i i
1113     for i in {0..9} ; do
1114         unset VCS_INFO_message_${i}_
1115     done
1116     zstyle ':vcs_info:*' enable false
1117 fi
1118
1119 # The following code is imported from the file 'zsh/functions/vcs_info'
1120 # from <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>,
1121 # which distributed under the same terms as zsh itself.
1122
1123 # we will only be using one variable, so let the code know now.
1124 zstyle ':vcs_info:*' max-exports 1
1125
1126 # vcs_info() documentation:
1127 #{{{
1128 # REQUIREMENTS:
1129 #{{{
1130 #     This functionality requires zsh version >= 4.1.*.
1131 #}}}
1132 #
1133 # LOADING:
1134 #{{{
1135 # To load vcs_info(), copy this file to your $fpath[] and do:
1136 #   % autoload -Uz vcs_info && vcs_info
1137 #
1138 # To work, vcs_info() needs 'setopt prompt_subst' in your setup.
1139 #}}}
1140 #
1141 # QUICKSTART:
1142 #{{{
1143 # To get vcs_info() working quickly (including colors), you can do the
1144 # following (assuming, you loaded vcs_info() properly - see above):
1145 #
1146 # % RED=$'%{\e[31m%}'
1147 # % GR=$'%{\e[32m%}'
1148 # % MA=$'%{\e[35m%}'
1149 # % YE=$'%{\e[33m%}'
1150 # % NC=$'%{\e[0m%}'
1151 #
1152 # % zstyle ':vcs_info:*' actionformats \
1153 #       "${MA}(${NC}%s${MA})${YE}-${MA}[${GR}%b${YE}|${RED}%a${MA}]${NC} "
1154 #
1155 # % zstyle ':vcs_info:*' formats       \
1156 #       "${MA}(${NC}%s${MA})${Y}-${MA}[${GR}%b${MA}]${NC}%} "
1157 #
1158 # % zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "%b${RED}:${YE}%r"
1159 #
1160 # % precmd () { vcs_info }
1161 # % PS1='${MA}[${GR}%n${MA}] ${MA}(${RED}%!${MA}) ${YE}%3~ ${VCS_INFO_message_0_}${NC}%# '
1162 #
1163 # Obviously, the las two lines are there for demonstration: You need to
1164 # call vcs_info() from your precmd() function (see 'SPECIAL FUNCTIONS' in
1165 # 'man zshmisc'). Once that is done you need a *single* quoted
1166 # '${VCS_INFO_message_0_}' in your prompt.
1167 #
1168 # Now call the 'vcs_info_printsys' utility from the command line:
1169 #
1170 # % vcs_info_printsys
1171 # # list of supported version control backends:
1172 # # disabled systems are prefixed by a hash sign (#)
1173 # git
1174 # hg
1175 # bzr
1176 # darcs
1177 # svk
1178 # mtn
1179 # svn
1180 # cvs
1181 # cdv
1182 # tla
1183 # # flavours (cannot be used in the disable style; they
1184 # # are disabled with their master [git-svn -> git]):
1185 # git-p4
1186 # git-svn
1187 #
1188 # Ten version control backends as you can see. You may not want all
1189 # of these. Because there is no point in running the code to detect
1190 # systems you do not use. ever. So, there is a way to disable some
1191 # backends altogether:
1192 #
1193 # % zstyle ':vcs_info:*' disable bzr cdv darcs mtn svk tla
1194 #
1195 # If you rerun 'vcs_info_printsys' now, you will see the backends listed
1196 # in the 'disable' style marked as diabled by a hash sign. That means the
1197 # detection of these systems is skipped *completely*. No wasted time there.
1198 #
1199 # For more control, read the reference below.
1200 #}}}
1201 #
1202 # CONFIGURATION:
1203 #{{{
1204 # The vcs_info() feature can be configured via zstyle.
1205 #
1206 # First, the context in which we are working:
1207 #       :vcs_info:<vcs-string>:<user-context>
1208 #
1209 # ...where <vcs-string> is one of:
1210 #   - git, git-svn, git-p4, hg, darcs, bzr, cdv, mtn, svn, cvs, svk or tla.
1211 #
1212 # ...and <user-context> is a freely configurable string, assignable by the
1213 # user as the first argument to vcs_info() (see its description below).
1214 #
1215 # There is are three special values for <vcs-string>: The first is named
1216 # 'init', that is in effect as long as there was no decision what vcs
1217 # backend to use. The second is 'preinit; it is used *before* vcs_info()
1218 # is run, when initializing the data exporting variables. The third
1219 # special value is 'formats' and is used by the 'vcs_info_lastmsg' for
1220 # looking up its styles.
1221 #
1222 # There are two pre-defined values for <user-context>:
1223 #   default  - the one used if none is specified
1224 #   command  - used by vcs_info_lastmsg to lookup its styles.
1225 #
1226 # You may *not* use 'print_systems_' as a user-context string, because it
1227 # is used internally.
1228 #
1229 # You can of course use ':vcs_info:*' to match all VCSs in all
1230 # user-contexts at once.
1231 #
1232 # Another special context is 'formats', which is used by the
1233 # vcs_info_lastmsg() utility function (see below).
1234 #
1235 #
1236 # This is a description of all styles, that are looked up:
1237 #   formats             - A list of formats, used when actionformats is not
1238 #                         used (which is most of the time).
1239 #   actionformats       - A list of formats, used if a there is a special
1240 #                         action going on in your current repository;
1241 #                         (like an interactive rebase or a merge conflict)
1242 #   branchformat        - Some backends replace %b in the formats and
1243 #                         actionformats styles above, not only by a branch
1244 #                         name but also by a revision number. This style
1245 #                         let's you modify how that string should look like.
1246 #   nvcsformats         - These "formats" are exported, when we didn't detect
1247 #                         a version control system for the current directory.
1248 #                         This is useful, if you want vcs_info() to completely
1249 #                         take over the generation of your prompt.
1250 #                         You would do something like
1251 #                           PS1='${VCS_INFO_message_0_}'
1252 #                         to accomplish that.
1253 #   max-exports         - Defines the maximum number if VCS_INFO_message_*_
1254 #                         variables vcs_info() will export.
1255 #   enable              - Checked in the 'init' context. If set to false,
1256 #                         vcs_info() will do nothing.
1257 #   disable             - Provide a list of systems, you don't want
1258 #                         the vcs_info() to check for repositories
1259 #                         (checked in the 'init' context, too).
1260 #   disable-patterns    - A list of patterns that are checked against $PWD.
1261 #                         If the pattern matches, vcs_info will be disabled.
1262 #                         Say, ~/.zsh is a directory under version control,
1263 #                         in which you do not want vcs_info to be active, do:
1264 #                         zstyle ':vcs_info:*' disable-patterns "$HOME/.zsh+(|/*)"
1265 #   use-simple          - If there are two different ways of gathering
1266 #                         information, you can select the simpler one
1267 #                         by setting this style to true; the default
1268 #                         is to use the not-that-simple code, which is
1269 #                         potentially a lot slower but might be more
1270 #                         accurate in all possible cases.
1271 #   use-prompt-escapes  - determines if we assume that the assembled
1272 #                         string from vcs_info() includes prompt escapes.
1273 #                         (Used by vcs_info_lastmsg().
1274 #
1275 # The use-simple style is only available for the bzr backend.
1276 #
1277 # The default values for these in all contexts are:
1278 #   formats             " (%s)-[%b|%a]-"
1279 #   actionformats       " (%s)-[%b]-"
1280 #   branchformat        "%b:%r" (for bzr, svn and svk)
1281 #   nvcsformats         ""
1282 #   max-exports         2
1283 #   enable              true
1284 #   disable             (empty list)
1285 #   disable-patterns    (empty list)
1286 #   use-simple          false
1287 #   use-prompt-escapes  true
1288 #
1289 #
1290 # In normal formats and actionformats, the following replacements
1291 # are done:
1292 #   %s  - The vcs in use (git, hg, svn etc.)
1293 #   %b  - Information about the current branch.
1294 #   %a  - An identifier, that describes the action.
1295 #         Only makes sense in actionformats.
1296 #   %R  - base directory of the repository.
1297 #   %r  - repository name
1298 #         If %R is '/foo/bar/repoXY', %r is 'repoXY'.
1299 #   %S  - subdirectory within a repository. if $PWD is
1300 #         '/foo/bar/reposXY/beer/tasty', %S is 'beer/tasty'.
1301 #
1302 #
1303 # In branchformat these replacements are done:
1304 #   %b  - the branch name
1305 #   %r  - the current revision number
1306 #
1307 # Not all vcs backends have to support all replacements.
1308 # nvcsformat does not perform *any* replacements. It is just a string.
1309 #}}}
1310 #
1311 # ODDITIES:
1312 #{{{
1313 # If you want to use the %b (bold off) prompt expansion in 'formats', which
1314 # expands %b itself, use %%b. That will cause the vcs_info() expansion to
1315 # replace %%b with %b. So zsh's prompt expansion mechanism can handle it.
1316 # Similarly, to hand down %b from branchformat, use %%%%b. Sorry for this
1317 # inconvenience, but it cannot be easily avoided. Luckily we do not clash
1318 # with a lot of prompt expansions and this only needs to be done for those.
1319 # See 'man zshmisc' for details about EXPANSION OF PROMPT SEQUENCES.
1320 #}}}
1321 #
1322 # FUNCTION DESCRIPTIONS (public API):
1323 #{{{
1324 #   vcs_info()
1325 #       The main function, that runs all backends and assembles
1326 #       all data into ${VCS_INFO_message_*_}. This is the function
1327 #       you want to call from precmd() if you want to include
1328 #       up-to-date information in your prompt (see VARIABLE
1329 #       DESCRIPTION below).
1330 #
1331 #   vcs_info_printsys()
1332 #       Prints a list of all supported version control systems.
1333 #       Useful to find out possible contexts (and which of them are enabled)
1334 #       or values for the 'disable' style.
1335 #
1336 #   vcs_info_lastmsg()
1337 #       Outputs the last ${VCS_INFO_message_*_} value. Takes into account
1338 #       the value of the use-prompt-escapes style in ':vcs_info:formats'.
1339 #       It also only prints max-exports values.
1340 #
1341 # All functions named VCS_INFO_* are for internal use only.
1342 #}}}
1343 #
1344 # VARIABLE DESCRIPTION:
1345 #{{{
1346 #   ${VCS_INFO_message_N_}    (Note the trailing underscore)
1347 #       Where 'N' is an integer, eg: VCS_INFO_message_0_
1348 #       These variables are the storage for the informational message the
1349 #       last vcs_info() call has assembled. These are strongly connected
1350 #       to the formats, actionformats and nvcsformats styles described
1351 #       above. Those styles are lists. the first member of that list gets
1352 #       expanded into ${VCS_INFO_message_0_}, the second into
1353 #       ${VCS_INFO_message_1_} and the Nth into ${VCS_INFO_message_N-1_}.
1354 #       These parameters are exported into the environment.
1355 #       (See the max-exports style above.)
1356 #}}}
1357 #
1358 # EXAMPLES:
1359 #{{{
1360 #   Don't use vcs_info at all (even though it's in your prompt):
1361 #   % zstyle ':vcs_info:*' enable false
1362 #
1363 #   Disable the backends for bzr and svk:
1364 #   % zstyle ':vcs_info:*' disable bzr svk
1365 #
1366 #   Provide a special formats for git:
1367 #   % zstyle ':vcs_info:git:*' formats       ' GIT, BABY! [%b]'
1368 #   % zstyle ':vcs_info:git:*' actionformats ' GIT ACTION! [%b|%a]'
1369 #
1370 #   Use the quicker bzr backend (if you do, please report if it does
1371 #   the-right-thing[tm] - thanks):
1372 #   % zstyle ':vcs_info:bzr:*' use-simple true
1373 #
1374 #   Display the revision number in yellow for bzr and svn:
1375 #   % zstyle ':vcs_info:(svn|bzr):*' branchformat '%b%{'${fg[yellow]}'%}:%r'
1376 #
1377 # If you want colors, make sure you enclose the color codes in %{...%},
1378 # if you want to use the string provided by vcs_info() in prompts.
1379 #
1380 # Here is how to print the vcs infomation as a command:
1381 #   % alias vcsi='vcs_info command; vcs_info_lastmsg'
1382 #
1383 #   This way, you can even define different formats for output via
1384 #   vcs_info_lastmsg() in the ':vcs_info:command:*' namespace.
1385 #}}}
1386 #}}}
1387 # utilities
1388 VCS_INFO_adjust () { #{{{
1389     [[ -n ${vcs_comm[overwrite_name]} ]] && vcs=${vcs_comm[overwrite_name]}
1390     return 0
1391 }
1392 # }}}
1393 VCS_INFO_check_com () { #{{{
1394     (( ${+commands[$1]} )) && [[ -x ${commands[$1]} ]] && return 0
1395     return 1
1396 }
1397 # }}}
1398 VCS_INFO_formats () { # {{{
1399     setopt localoptions noksharrays
1400     local action=$1 branch=$2 base=$3
1401     local msg
1402     local -i i
1403
1404     if [[ -n ${action} ]] ; then
1405         zstyle -a ":vcs_info:${vcs}:${usercontext}" actionformats msgs
1406         (( ${#msgs} < 1 )) && msgs[1]=' (%s)-[%b|%a]-'
1407     else
1408         zstyle -a ":vcs_info:${vcs}:${usercontext}" formats msgs
1409         (( ${#msgs} < 1 )) && msgs[1]=' (%s)-[%b]-'
1410     fi
1411
1412     (( ${#msgs} > maxexports )) && msgs[${maxexports},-1]=()
1413     for i in {1..${#msgs}} ; do
1414         zformat -f msg ${msgs[$i]} a:${action} b:${branch} s:${vcs} r:${base:t} R:${base} S:"$(VCS_INFO_reposub ${base})"
1415         msgs[$i]=${msg}
1416     done
1417     return 0
1418 }
1419 # }}}
1420 VCS_INFO_maxexports () { #{{{
1421     local -ix maxexports
1422
1423     zstyle -s ":vcs_info:${vcs}:${usercontext}" "max-exports" maxexports || maxexports=2
1424     if [[ ${maxexports} != <-> ]] || (( maxexports < 1 )); then
1425         printf 'vcs_info(): expecting numeric arg >= 1 for max-exports (got %s).\n' ${maxexports}
1426         printf 'Defaulting to 2.\n'
1427         maxexports=2
1428     fi
1429 }
1430 # }}}
1431 VCS_INFO_nvcsformats () { #{{{
1432     setopt localoptions noksharrays
1433     local c v
1434
1435     if [[ $1 == 'preinit' ]] ; then
1436         c=default
1437         v=preinit
1438     fi
1439     zstyle -a ":vcs_info:${v:-$vcs}:${c:-$usercontext}" nvcsformats msgs
1440     (( ${#msgs} > maxexports )) && msgs[${maxexports},-1]=()
1441 }
1442 # }}}
1443 VCS_INFO_realpath () { #{{{
1444     # a portable 'readlink -f'
1445     # forcing a subshell, to ensure chpwd() is not removed
1446     # from the calling shell (if VCS_INFO_realpath() is called
1447     # manually).
1448     (
1449         (( ${+functions[chpwd]} )) && unfunction chpwd
1450         setopt chaselinks
1451         cd $1 2>/dev/null && pwd
1452     )
1453 }
1454 # }}}
1455 VCS_INFO_reposub () { #{{{
1456     setopt localoptions extendedglob
1457     local base=${1%%/##}
1458
1459     [[ ${PWD} == ${base}/* ]] || {
1460         printf '.'
1461         return 1
1462     }
1463     printf '%s' ${PWD#$base/}
1464     return 0
1465 }
1466 # }}}
1467 VCS_INFO_set () { #{{{
1468     setopt localoptions noksharrays
1469     local -i i j
1470
1471     if [[ $1 == '--clear' ]] ; then
1472         for i in {0..9} ; do
1473             unset VCS_INFO_message_${i}_
1474         done
1475     fi
1476     if [[ $1 == '--nvcs' ]] ; then
1477         [[ $2 == 'preinit' ]] && (( maxexports == 0 )) && (( maxexports = 1 ))
1478         for i in {0..$((maxexports - 1))} ; do
1479             typeset -gx VCS_INFO_message_${i}_=
1480         done
1481         VCS_INFO_nvcsformats $2
1482     fi
1483
1484     (( ${#msgs} - 1 < 0 )) && return 0
1485     for i in {0..$(( ${#msgs} - 1 ))} ; do
1486         (( j = i + 1 ))
1487         typeset -gx VCS_INFO_message_${i}_=${msgs[$j]}
1488     done
1489     return 0
1490 }
1491 # }}}
1492 # information gathering
1493 VCS_INFO_bzr_get_data () { # {{{
1494     setopt localoptions noksharrays
1495     local bzrbase bzrbr
1496     local -a bzrinfo
1497
1498     if zstyle -t ":vcs_info:${vcs}:${usercontext}" "use-simple" ; then
1499         bzrbase=${vcs_comm[basedir]}
1500         bzrinfo[2]=${bzrbase:t}
1501         if [[ -f ${bzrbase}/.bzr/branch/last-revision ]] ; then
1502             bzrinfo[1]=$(< ${bzrbase}/.bzr/branch/last-revision)
1503             bzrinfo[1]=${${bzrinfo[1]}%% *}
1504         fi
1505     else
1506         bzrbase=${${(M)${(f)"$( bzr info )"}:# ##branch\ root:*}/*: ##/}
1507         bzrinfo=( ${${${(M)${(f)"$( bzr version-info )"}:#(#s)(revno|branch-nick)*}/*: /}/*\//} )
1508         bzrbase="$(VCS_INFO_realpath ${bzrbase})"
1509     fi
1510
1511     zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat bzrbr || bzrbr="%b:%r"
1512     zformat -f bzrbr "${bzrbr}" "b:${bzrinfo[2]}" "r:${bzrinfo[1]}"
1513     VCS_INFO_formats '' "${bzrbr}" "${bzrbase}"
1514     return 0
1515 }
1516 # }}}
1517 VCS_INFO_cdv_get_data () { # {{{
1518     local cdvbase
1519
1520     cdvbase=${vcs_comm[basedir]}
1521     VCS_INFO_formats '' "${cdvbase:t}" "${cdvbase}"
1522     return 0
1523 }
1524 # }}}
1525 VCS_INFO_cvs_get_data () { # {{{
1526     local cvsbranch cvsbase basename
1527
1528     cvsbase="."
1529     while [[ -d "${cvsbase}/../CVS" ]]; do
1530         cvsbase="${cvsbase}/.."
1531     done
1532     cvsbase="$(VCS_INFO_realpath ${cvsbase})"
1533     cvsbranch=$(< ./CVS/Repository)
1534     basename=${cvsbase:t}
1535     cvsbranch=${cvsbranch##${basename}/}
1536     [[ -z ${cvsbranch} ]] && cvsbranch=${basename}
1537     VCS_INFO_formats '' "${cvsbranch}" "${cvsbase}"
1538     return 0
1539 }
1540 # }}}
1541 VCS_INFO_darcs_get_data () { # {{{
1542     local darcsbase
1543
1544     darcsbase=${vcs_comm[basedir]}
1545     VCS_INFO_formats '' "${darcsbase:t}" "${darcsbase}"
1546     return 0
1547 }
1548 # }}}
1549 VCS_INFO_git_getaction () { #{{{
1550     local gitaction='' gitdir=$1
1551     local tmp
1552
1553     for tmp in "${gitdir}/rebase-apply" \
1554                "${gitdir}/rebase"       \
1555                "${gitdir}/../.dotest" ; do
1556         if [[ -d ${tmp} ]] ; then
1557             if   [[ -f "${tmp}/rebasing" ]] ; then
1558                 gitaction="rebase"
1559             elif [[ -f "${tmp}/applying" ]] ; then
1560                 gitaction="am"
1561             else
1562                 gitaction="am/rebase"
1563             fi
1564             printf '%s' ${gitaction}
1565             return 0
1566         fi
1567     done
1568
1569     for tmp in "${gitdir}/rebase-merge/interactive" \
1570                "${gitdir}/.dotest-merge/interactive" ; do
1571         if [[ -f "${tmp}" ]] ; then
1572             printf '%s' "rebase-i"
1573             return 0
1574         fi
1575     done
1576
1577     for tmp in "${gitdir}/rebase-merge" \
1578                "${gitdir}/.dotest-merge" ; do
1579         if [[ -d "${tmp}" ]] ; then
1580             printf '%s' "rebase-m"
1581             return 0
1582         fi
1583     done
1584
1585     if [[ -f "${gitdir}/MERGE_HEAD" ]] ; then
1586         printf '%s' "merge"
1587         return 0
1588     fi
1589
1590     if [[ -f "${gitdir}/BISECT_LOG" ]] ; then
1591         printf '%s' "bisect"
1592         return 0
1593     fi
1594     return 1
1595 }
1596 # }}}
1597 VCS_INFO_git_getbranch () { #{{{
1598     local gitbranch gitdir=$1
1599     local gitsymref='git symbolic-ref HEAD'
1600
1601     if    [[ -d "${gitdir}/rebase-apply" ]] \
1602        || [[ -d "${gitdir}/rebase" ]]       \
1603        || [[ -d "${gitdir}/../.dotest" ]]   \
1604        || [[ -f "${gitdir}/MERGE_HEAD" ]] ; then
1605         gitbranch="$(${(z)gitsymref} 2> /dev/null)"
1606         [[ -z ${gitbranch} ]] && [[ -r ${gitdir}/rebase-apply/head-name ]] \
1607             && gitbranch="$(< ${gitdir}/rebase-apply/head-name)"
1608
1609     elif   [[ -f "${gitdir}/rebase-merge/interactive" ]] \
1610         || [[ -d "${gitdir}/rebase-merge" ]] ; then
1611         gitbranch="$(< ${gitdir}/rebase-merge/head-name)"
1612
1613     elif   [[ -f "${gitdir}/.dotest-merge/interactive" ]] \
1614         || [[ -d "${gitdir}/.dotest-merge" ]] ; then
1615         gitbranch="$(< ${gitdir}/.dotest-merge/head-name)"
1616
1617     else
1618         gitbranch="$(${(z)gitsymref} 2> /dev/null)"
1619
1620         if [[ $? -ne 0 ]] ; then
1621             gitbranch="$(git describe --exact-match HEAD 2>/dev/null)"
1622
1623             if [[ $? -ne 0 ]] ; then
1624                 gitbranch="${${"$(< $gitdir/HEAD)"}[1,7]}..."
1625             fi
1626         fi
1627     fi
1628
1629     printf '%s' "${gitbranch##refs/heads/}"
1630     return 0
1631 }
1632 # }}}
1633 VCS_INFO_git_get_data () { # {{{
1634     setopt localoptions extendedglob
1635     local gitdir gitbase gitbranch gitaction
1636
1637     gitdir=${vcs_comm[gitdir]}
1638     gitbranch="$(VCS_INFO_git_getbranch ${gitdir})"
1639
1640     if [[ -z ${gitdir} ]] || [[ -z ${gitbranch} ]] ; then
1641         return 1
1642     fi
1643
1644     VCS_INFO_adjust
1645     gitaction="$(VCS_INFO_git_getaction ${gitdir})"
1646     gitbase=${PWD%/${$( git rev-parse --show-prefix )%/##}}
1647     VCS_INFO_formats "${gitaction}" "${gitbranch}" "${gitbase}"
1648     return 0
1649 }
1650 # }}}
1651 VCS_INFO_hg_get_data () { # {{{
1652     local hgbranch hgbase
1653
1654     hgbase=${vcs_comm[basedir]}
1655     hgbranch=$(< ${hgbase}/.hg/branch)
1656     VCS_INFO_formats '' "${hgbranch}" "${hgbase}"
1657     return 0
1658 }
1659 # }}}
1660 VCS_INFO_mtn_get_data () { # {{{
1661     local mtnbranch mtnbase
1662
1663     mtnbase=${vcs_comm[basedir]}
1664     mtnbranch=${${(M)${(f)"$( mtn status )"}:#(#s)Current branch:*}/*: /}
1665     VCS_INFO_formats '' "${mtnbranch}" "${mtnbase}"
1666     return 0
1667 }
1668 # }}}
1669 VCS_INFO_svk_get_data () { # {{{
1670     local svkbranch svkbase
1671
1672     svkbase=${vcs_comm[basedir]}
1673     zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat svkbranch || svkbranch="%b:%r"
1674     zformat -f svkbranch "${svkbranch}" "b:${vcs_comm[branch]}" "r:${vcs_comm[revision]}"
1675     VCS_INFO_formats '' "${svkbranch}" "${svkbase}"
1676     return 0
1677 }
1678 # }}}
1679 VCS_INFO_svn_get_data () { # {{{
1680     setopt localoptions noksharrays
1681     local svnbase svnbranch
1682     local -a svninfo
1683
1684     svnbase="."
1685     while [[ -d "${svnbase}/../.svn" ]]; do
1686         svnbase="${svnbase}/.."
1687     done
1688     svnbase="$(VCS_INFO_realpath ${svnbase})"
1689     svninfo=( ${${${(M)${(f)"$( svn info )"}:#(#s)(URL|Revision)*}/*: /}/*\//} )
1690
1691     zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat svnbranch || svnbranch="%b:%r"
1692     zformat -f svnbranch "${svnbranch}" "b:${svninfo[1]}" "r:${svninfo[2]}"
1693     VCS_INFO_formats '' "${svnbranch}" "${svnbase}"
1694     return 0
1695 }
1696 # }}}
1697 VCS_INFO_tla_get_data () { # {{{
1698     local tlabase tlabranch
1699
1700     tlabase="$(VCS_INFO_realpath ${vcs_comm[basedir]})"
1701     # tree-id gives us something like 'foo@example.com/demo--1.0--patch-4', so:
1702     tlabranch=${${"$( tla tree-id )"}/*\//}
1703     VCS_INFO_formats '' "${tlabranch}" "${tlabase}"
1704     return 0
1705 }
1706 # }}}
1707 # detection
1708 VCS_INFO_detect_by_dir() { #{{{
1709     local dirname=$1
1710     local basedir="." realbasedir
1711
1712     realbasedir="$(VCS_INFO_realpath ${basedir})"
1713     while [[ ${realbasedir} != '/' ]]; do
1714         if [[ -n ${vcs_comm[detect_need_file]} ]] ; then
1715             [[ -d ${basedir}/${dirname} ]] && \
1716             [[ -f ${basedir}/${dirname}/${vcs_comm[detect_need_file]} ]] && \
1717                 break
1718         else
1719             [[ -d ${basedir}/${dirname} ]] && break
1720         fi
1721
1722         basedir=${basedir}/..
1723         realbasedir="$(VCS_INFO_realpath ${basedir})"
1724     done
1725
1726     [[ ${realbasedir} == "/" ]] && return 1
1727     vcs_comm[basedir]=${realbasedir}
1728     return 0
1729 }
1730 # }}}
1731 VCS_INFO_bzr_detect() { #{{{
1732     VCS_INFO_check_com bzr || return 1
1733     vcs_comm[detect_need_file]=branch/format
1734     VCS_INFO_detect_by_dir '.bzr'
1735     return $?
1736 }
1737 # }}}
1738 VCS_INFO_cdv_detect() { #{{{
1739     VCS_INFO_check_com cdv || return 1
1740     vcs_comm[detect_need_file]=format
1741     VCS_INFO_detect_by_dir '.cdv'
1742     return $?
1743 }
1744 # }}}
1745 VCS_INFO_cvs_detect() { #{{{
1746     VCS_INFO_check_com svn || return 1
1747     [[ -d "./CVS" ]] && [[ -r "./CVS/Repository" ]] && return 0
1748     return 1
1749 }
1750 # }}}
1751 VCS_INFO_darcs_detect() { #{{{
1752     VCS_INFO_check_com darcs || return 1
1753     vcs_comm[detect_need_file]=format
1754     VCS_INFO_detect_by_dir '_darcs'
1755     return $?
1756 }
1757 # }}}
1758 VCS_INFO_git_detect() { #{{{
1759     if VCS_INFO_check_com git && git rev-parse --is-inside-work-tree &> /dev/null ; then
1760         vcs_comm[gitdir]="$(git rev-parse --git-dir 2> /dev/null)" || return 1
1761         if   [[ -d ${vcs_comm[gitdir]}/svn ]]             ; then vcs_comm[overwrite_name]='git-svn'
1762         elif [[ -d ${vcs_comm[gitdir]}/refs/remotes/p4 ]] ; then vcs_comm[overwrite_name]='git-p4' ; fi
1763         return 0
1764     fi
1765     return 1
1766 }
1767 # }}}
1768 VCS_INFO_hg_detect() { #{{{
1769     VCS_INFO_check_com hg || return 1
1770     vcs_comm[detect_need_file]=branch
1771     VCS_INFO_detect_by_dir '.hg'
1772     return $?
1773 }
1774 # }}}
1775 VCS_INFO_mtn_detect() { #{{{
1776     VCS_INFO_check_com mtn || return 1
1777     vcs_comm[detect_need_file]=revision
1778     VCS_INFO_detect_by_dir '_MTN'
1779     return $?
1780 }
1781 # }}}
1782 VCS_INFO_svk_detect() { #{{{
1783     setopt localoptions noksharrays extendedglob
1784     local -a info
1785     local -i fhash
1786     fhash=0
1787
1788     VCS_INFO_check_com svk || return 1
1789     [[ -f ~/.svk/config ]] || return 1
1790
1791     # This detection function is a bit different from the others.
1792     # We need to read svk's config file to detect a svk repository
1793     # in the first place. Therefore, we'll just proceed and read
1794     # the other information, too. This is more then any of the
1795     # other detections do but this takes only one file open for
1796     # svk at most. VCS_INFO_svk_get_data() get simpler, too. :-)
1797     while IFS= read -r line ; do
1798         if [[ -n ${vcs_comm[basedir]} ]] ; then
1799             line=${line## ##}
1800             [[ ${line} == depotpath:* ]] && vcs_comm[branch]=${line##*/}
1801             [[ ${line} == revision:* ]] && vcs_comm[revision]=${line##*[[:space:]]##}
1802             [[ -n ${vcs_comm[branch]} ]] && [[ -n ${vcs_comm[revision]} ]] && break
1803             continue
1804         fi
1805         (( fhash > 0 )) && [[ ${line} == '  '[^[:space:]]*:* ]] && break
1806         [[ ${line} == '  hash:'* ]] && fhash=1 && continue
1807         (( fhash == 0 )) && continue
1808         [[ ${PWD}/ == ${${line## ##}%:*}/* ]] && vcs_comm[basedir]=${${line## ##}%:*}
1809     done < ~/.svk/config
1810
1811     [[ -n ${vcs_comm[basedir]} ]]  && \
1812     [[ -n ${vcs_comm[branch]} ]]   && \
1813     [[ -n ${vcs_comm[revision]} ]] && return 0
1814     return 1
1815 }
1816 # }}}
1817 VCS_INFO_svn_detect() { #{{{
1818     VCS_INFO_check_com svn || return 1
1819     [[ -d ".svn" ]] && return 0
1820     return 1
1821 }
1822 # }}}
1823 VCS_INFO_tla_detect() { #{{{
1824     VCS_INFO_check_com tla || return 1
1825     vcs_comm[basedir]="$(tla tree-root 2> /dev/null)" && return 0
1826     return 1
1827 }
1828 # }}}
1829 # public API
1830 vcs_info_printsys () { # {{{
1831     vcs_info print_systems_
1832 }
1833 # }}}
1834 vcs_info_lastmsg () { # {{{
1835     local -i i
1836
1837     VCS_INFO_maxexports
1838     for i in {0..$((maxexports - 1))} ; do
1839         printf '$VCS_INFO_message_%d_: "' $i
1840         if zstyle -T ':vcs_info:formats:command' use-prompt-escapes ; then
1841             print -nP ${(P)${:-VCS_INFO_message_${i}_}}
1842         else
1843             print -n ${(P)${:-VCS_INFO_message_${i}_}}
1844         fi
1845         printf '"\n'
1846     done
1847 }
1848 # }}}
1849 vcs_info () { # {{{
1850     local pat
1851     local -i found
1852     local -a VCSs disabled dps
1853     local -x vcs usercontext
1854     local -ax msgs
1855     local -Ax vcs_comm
1856
1857     vcs="init"
1858     VCSs=(git hg bzr darcs svk mtn svn cvs cdv tla)
1859     case $1 in
1860         (print_systems_)
1861             zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable" disabled
1862             print -l '# list of supported version control backends:' \
1863                      '# disabled systems are prefixed by a hash sign (#)'
1864             for vcs in ${VCSs} ; do
1865                 [[ -n ${(M)disabled:#${vcs}} ]] && printf '#'
1866                 printf '%s\n' ${vcs}
1867             done
1868             print -l '# flavours (cannot be used in the disable style; they' \
1869                      '# are disabled with their master [git-svn -> git]):'   \
1870                      git-{p4,svn}
1871             return 0
1872             ;;
1873         ('')
1874             [[ -z ${usercontext} ]] && usercontext=default
1875             ;;
1876         (*) [[ -z ${usercontext} ]] && usercontext=$1
1877             ;;
1878     esac
1879
1880     zstyle -T ":vcs_info:${vcs}:${usercontext}" "enable" || {
1881         [[ -n ${VCS_INFO_message_0_} ]] && VCS_INFO_set --clear
1882         return 0
1883     }
1884     zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable" disabled
1885
1886     zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable-patterns" dps
1887     for pat in ${dps} ; do
1888         if [[ ${PWD} == ${~pat} ]] ; then
1889             [[ -n ${vcs_info_msg_0_} ]] && VCS_INFO_set --clear
1890             return 0
1891         fi
1892     done
1893
1894     VCS_INFO_maxexports
1895
1896     (( found = 0 ))
1897     for vcs in ${VCSs} ; do
1898         [[ -n ${(M)disabled:#${vcs}} ]] && continue
1899         vcs_comm=()
1900         VCS_INFO_${vcs}_detect && (( found = 1 )) && break
1901     done
1902
1903     (( found == 0 )) && {
1904         VCS_INFO_set --nvcs
1905         return 0
1906     }
1907
1908     VCS_INFO_${vcs}_get_data || {
1909         VCS_INFO_set --nvcs
1910         return 1
1911     }
1912
1913     VCS_INFO_set
1914     return 0
1915 }
1916
1917 VCS_INFO_set --nvcs preinit
1918 # }}}
1919
1920 # change vcs_info formats for the grml prompt
1921 if [[ "$TERM" == dumb ]] ; then
1922     zstyle ':vcs_info:*' actionformats "(%s%)-[%b|%a] "
1923     zstyle ':vcs_info:*' formats       "(%s%)-[%b] "
1924 else
1925     # these are the same, just with a lot of colours:
1926     zstyle ':vcs_info:*' actionformats "${MAGENTA}(${NO_COLOUR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${YELLOW}|${RED}%a${MAGENTA}]${NO_COLOUR} "
1927     zstyle ':vcs_info:*' formats       "${MAGENTA}(${NO_COLOUR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${MAGENTA}]${NO_COLOUR}%} "
1928     zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "%b${RED}:${YELLOW}%r"
1929 fi
1930
1931 # }}}
1932
1933 # {{{ set prompt
1934 if zrcautoload promptinit && promptinit 2>/dev/null ; then
1935     promptinit # people should be able to use their favourite prompt
1936 else
1937     print 'Notice: no promptinit available :('
1938 fi
1939
1940 setopt prompt_subst
1941
1942 # make sure to use right prompt only when not running a command
1943 is41 && setopt transient_rprompt
1944
1945 is4 && [[ $NOPRECMD -eq 0 ]] && precmd () {
1946     [[ $NOPRECMD -gt 0 ]] && return 0
1947     # update VCS information
1948     vcs_info
1949
1950     # allow manual overwriting of RPROMPT
1951     if [[ -n $RPROMPT ]] ; then
1952         [[ $TERM == screen* ]] && print -nP "\ekzsh\e\\"
1953         # return 0
1954     fi
1955     # just use DONTSETRPROMPT=1 to be able to overwrite RPROMPT
1956     if [[ $DONTSETRPROMPT -eq 0 ]] ; then
1957         if [[ $BATTERY -gt 0 ]] ; then
1958             # update BATTERY information
1959             battery
1960             RPROMPT="%(?..:()% ${PERCENT}${SCREENTITLE}"
1961             # RPROMPT="${PERCENT}${SCREENTITLE}"
1962         else
1963             RPROMPT="%(?..:()% ${SCREENTITLE}"
1964             # RPROMPT="${SCREENTITLE}"
1965         fi
1966     fi
1967     # adjust title of xterm
1968     # see http://www.faqs.org/docs/Linux-mini/Xterm-Title.html
1969     case $TERM in
1970         (xterm*|rxvt)
1971             print -Pn "\e]0;%n@%m: %~\a"
1972             ;;
1973     esac
1974 }
1975
1976 # preexec() => a function running before every command
1977 is4 && [[ $NOPRECMD -eq 0 ]] && \
1978 preexec () {
1979     [[ $NOPRECMD -gt 0 ]] && return 0
1980 # set hostname if not running on host with name 'grml'
1981     if [[ -n "$HOSTNAME" ]] && [[ "$HOSTNAME" != $(hostname) ]] ; then
1982        NAME="@$HOSTNAME"
1983     fi
1984 # get the name of the program currently running and hostname of local machine
1985 # set screen window title if running in a screen
1986     if [[ "$TERM" == screen* ]] ; then
1987         # local CMD=${1[(wr)^(*=*|sudo|ssh|-*)]}       # don't use hostname
1988         local CMD="${1[(wr)^(*=*|sudo|ssh|-*)]}$NAME" # use hostname
1989         echo -ne "\ek$CMD\e\\"
1990     fi
1991 # set the screen title to "zsh" when sitting at the command prompt:
1992     if [[ "$TERM" == screen* ]] ; then
1993         SCREENTITLE=$'%{\ekzsh\e\\%}'
1994     else
1995         SCREENTITLE=''
1996     fi
1997 # adjust title of xterm
1998     case $TERM in
1999         (xterm*|rxvt)
2000             print -Pn "\e]0;%n@%m: $1\a"
2001             ;;
2002     esac
2003 }
2004
2005 EXITCODE="%(?..%?%1v )"
2006 PS2='\`%_> '      # secondary prompt, printed when the shell needs more information to complete a command.
2007 PS3='?# '         # selection prompt used within a select loop.
2008 PS4='+%N:%i:%_> ' # the execution trace prompt (setopt xtrace). default: '+%N:%i>'
2009
2010 # set variable debian_chroot if running in a chroot with /etc/debian_chroot
2011 if [[ -z "$debian_chroot" ]] && [[ -r /etc/debian_chroot ]] ; then
2012     debian_chroot=$(cat /etc/debian_chroot)
2013 fi
2014
2015 # don't use colors on dumb terminals (like emacs):
2016 if [[ "$TERM" == dumb ]] ; then
2017     PROMPT="${EXITCODE}${debian_chroot:+($debian_chroot)}%n@%m %40<...<%B%~%b%<< "'${VCS_INFO_message_0_}'"%# "
2018 else
2019     # only if $GRMLPROMPT is set (e.g. via 'GRMLPROMPT=1 zsh') use the extended prompt
2020     # set variable identifying the chroot you work in (used in the prompt below)
2021     if [[ $GRMLPROMPT -gt 0 ]] ; then
2022         PROMPT="${RED}${EXITCODE}${CYAN}[%j running job(s)] ${GREEN}{history#%!} ${RED}%(3L.+.) ${BLUE}%* %D
2023 ${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< %# "
2024     else
2025         # This assembles the primary prompt string
2026         if (( EUID != 0 )); then
2027             PROMPT="${RED}${EXITCODE}${WHITE}${debian_chroot:+($debian_chroot)}${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "'${VCS_INFO_message_0_}'"%# "
2028         else
2029             PROMPT="${BLUE}${EXITCODE}${WHITE}${debian_chroot:+($debian_chroot)}${RED}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "'${VCS_INFO_message_0_}'"%# "
2030         fi
2031     fi
2032 fi
2033
2034 # if we are inside a grml-chroot set a specific prompt theme
2035 if [[ -n "$GRML_CHROOT" ]] ; then
2036     PROMPT="%{$fg[red]%}(CHROOT) %{$fg_bold[red]%}%n%{$fg_no_bold[white]%}@%m %40<...<%B%~%b%<< %\# "
2037 fi
2038 # }}}
2039
2040 # {{{ 'hash' some often used directories
2041 #d# start
2042 hash -d deb=/var/cache/apt/archives
2043 hash -d doc=/usr/share/doc
2044 hash -d linux=/lib/modules/$(command uname -r)/build/
2045 hash -d log=/var/log
2046 hash -d slog=/var/log/syslog
2047 hash -d src=/usr/src
2048 hash -d templ=/usr/share/doc/grml-templates
2049 hash -d tt=/usr/share/doc/texttools-doc
2050 hash -d www=/var/www
2051 #d# end
2052 # }}}
2053
2054 # {{{ some aliases
2055 if check_com -c screen ; then
2056     if [[ $UID -eq 0 ]] ; then
2057         [[ -r /etc/grml/screenrc ]] && alias screen="${commands[screen]} -c /etc/grml/screenrc"
2058     elif [[ -r $HOME/.screenrc ]] ; then
2059         alias screen="${commands[screen]} -c $HOME/.screenrc"
2060     else
2061         [[ -r /etc/grml/screenrc_grml ]] && alias screen="${commands[screen]} -c /etc/grml/screenrc_grml"
2062     fi
2063 fi
2064
2065 # do we have GNU ls with color-support?
2066 if ls --help 2>/dev/null | grep -- --color= >/dev/null && [[ "$TERM" != dumb ]] ; then
2067     #a1# execute \kbd{@a@}:\quad ls with colors
2068     alias ls='ls -b -CF --color=auto'
2069     #a1# execute \kbd{@a@}:\quad list all files, with colors
2070     alias la='ls -la --color=auto'
2071     #a1# long colored list, without dotfiles (@a@)
2072     alias ll='ls -l --color=auto'
2073     #a1# long colored list, human readable sizes (@a@)
2074     alias lh='ls -hAl --color=auto'
2075     #a1# List files, append qualifier to filenames \\&\quad(\kbd{/} for directories, \kbd{@} for symlinks ...)
2076     alias l='ls -lF --color=auto'
2077 else
2078     alias ls='ls -b -CF'
2079     alias la='ls -la'
2080     alias ll='ls -l'
2081     alias lh='ls -hAl'
2082     alias l='ls -lF'
2083 fi
2084
2085 alias mdstat='cat /proc/mdstat'
2086 alias ...='cd ../../'
2087
2088 # generate alias named "$KERNELVERSION-reboot" so you can use boot with kexec:
2089 if [[ -x /sbin/kexec ]] && [[ -r /proc/cmdline ]] ; then
2090     alias "$(uname -r)-reboot"="kexec -l --initrd=/boot/initrd.img-"$(uname -r)" --command-line=\"$(cat /proc/cmdline)\" /boot/vmlinuz-"$(uname -r)""
2091 fi
2092
2093 alias cp='nocorrect cp'         # no spelling correction on cp
2094 alias mkdir='nocorrect mkdir'   # no spelling correction on mkdir
2095 alias mv='nocorrect mv'         # no spelling correction on mv
2096 alias rm='nocorrect rm'         # no spelling correction on rm
2097
2098 #a1# Execute \kbd{rmdir}
2099 alias rd='rmdir'
2100 #a1# Execute \kbd{rmdir}
2101 alias md='mkdir'
2102
2103 # see http://www.cl.cam.ac.uk/~mgk25/unicode.html#term for details
2104 alias term2iso="echo 'Setting terminal to iso mode' ; print -n '\e%@'"
2105 alias term2utf="echo 'Setting terminal to utf-8 mode'; print -n '\e%G'"
2106
2107 # make sure it is not assigned yet
2108 [[ $(whence -w utf2iso &>/dev/null) == 'utf2iso: alias' ]] && unalias utf2iso
2109
2110 utf2iso() {
2111     if isutfenv ; then
2112         for ENV in $(env | command grep -i '.utf') ; do
2113             eval export "$(echo $ENV | sed 's/UTF-8/iso885915/ ; s/utf8/iso885915/')"
2114         done
2115     fi
2116 }
2117
2118 # make sure it is not assigned yet
2119 [[ $(whence -w iso2utf &>/dev/null) == 'iso2utf: alias' ]] && unalias iso2utf
2120 iso2utf() {
2121     if ! isutfenv ; then
2122         for ENV in $(env | command grep -i '\.iso') ; do
2123             eval export "$(echo $ENV | sed 's/iso.*/UTF-8/ ; s/ISO.*/UTF-8/')"
2124         done
2125     fi
2126 }
2127
2128 # set up software synthesizer via speakup
2129 swspeak() {
2130     if [ -x /usr/sbin/swspeak-setup ] ; then
2131        setopt singlelinezle
2132        unsetopt prompt_cr
2133        export PS1="%m%# "
2134        /usr/sbin/swspeak-setup $@
2135      else # old version:
2136         aumix -w 90 -v 90 -p 90 -m 90
2137         if ! [[ -r /dev/softsynth ]] ; then
2138             flite -o play -t "Sorry, software synthesizer not available. Did you boot with swspeak bootoption?"
2139             return 1
2140         else
2141            setopt singlelinezle
2142            unsetopt prompt_cr
2143            export PS1="%m%# "
2144             nice -n -20 speechd-up
2145             sleep 2
2146             flite -o play -t "Finished setting up software synthesizer"
2147         fi
2148      fi
2149 }
2150
2151 # I like clean prompt, so provide simple way to get that
2152 check_com 0 || alias 0='return 0'
2153
2154 # for really lazy people like mika:
2155 check_com S &>/dev/null || alias S='screen'
2156 check_com s &>/dev/null || alias s='ssh'
2157
2158 # get top 10 shell commands:
2159 alias top10='print -l ? ${(o)history%% *} | uniq -c | sort -nr | head -n 10'
2160
2161 # truecrypt; use e.g. via 'truec /dev/ice /mnt/ice' or 'truec -i'
2162 if check_com -c truecrypt ; then
2163     if isutfenv ; then
2164         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077,utf8" '
2165     else
2166         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077" '
2167     fi
2168 fi
2169
2170 #f1# Hints for the use of zsh on grml
2171 zsh-help() {
2172     print "$bg[white]$fg[black]
2173 zsh-help - hints for use of zsh on grml
2174 =======================================$reset_color"
2175
2176     print '
2177 Main configuration of zsh happens in /etc/zsh/zshrc.
2178 That file is part of the package grml-etc-core, if you want to
2179 use them on a non-grml-system just get the tar.gz from
2180 http://deb.grml.org/ or (preferably) get it from the git repository:
2181
2182   http://git.grml.org/f/grml-etc-core/etc/zsh/zshrc
2183
2184 This version of grml'\''s zsh setup does not use skel/.zshrc anymore.
2185 The file is still there, but it is empty for backwards compatibility.
2186
2187 For your own changes use these two files:
2188     $HOME/.zshrc.pre
2189     $HOME/.zshrc.local
2190
2191 The former is sourced very early in our zshrc, the latter is sourced
2192 very lately.
2193
2194 System wide configuration without touching configuration files of grml
2195 can take place in /etc/zsh/zshrc.local.
2196
2197 Normally, the root user (EUID == 0) does not get the whole grml setup.
2198 If you want to force the whole setup for that user, too, set
2199 GRML_ALWAYS_LOAD_ALL=1 in .zshrc.pre in root'\''s home directory.
2200
2201 For information regarding zsh start at http://grml.org/zsh/
2202
2203 Take a look at grml'\''s zsh refcard:
2204 % xpdf =(zcat /usr/share/doc/grml-docs/zsh/grml-zsh-refcard.pdf.gz)
2205
2206 Check out the main zsh refcard:
2207 % '$BROWSER' http://www.bash2zsh.com/zsh_refcard/refcard.pdf
2208
2209 And of course visit the zsh-lovers:
2210 % man zsh-lovers
2211
2212 You can adjust some options through environment variables when
2213 invoking zsh without having to edit configuration files.
2214 Basically meant for bash users who are not used to the power of
2215 the zsh yet. :)
2216
2217   "NOCOR=1    zsh" => deactivate automatic correction
2218   "NOMENU=1   zsh" => do not use auto menu completion (note: use ctrl-d for completion instead!)
2219   "NOPRECMD=1 zsh" => disable the precmd + preexec commands (set GNU screen title)
2220   "BATTERY=1  zsh" => activate battery status (via acpi) on right side of prompt
2221
2222 A value greater than 0 is enables a feature; a value equal to zero
2223 disables it. If you like one or the other of these settings, you can
2224 add them to ~/.zshrc.pre to ensure they are set when sourcing grml'\''s
2225 zshrc.'
2226
2227     print "
2228 $bg[white]$fg[black]
2229 Please report wishes + bugs to the grml-team: http://grml.org/bugs/
2230 Enjoy your grml system with the zsh!$reset_color"
2231 }
2232
2233 # debian stuff
2234 if [[ -r /etc/debian_version ]] ; then
2235     #a3# Execute \kbd{apt-cache search}
2236     alias acs='apt-cache search'
2237     #a3# Execute \kbd{apt-cache show}
2238     alias acsh='apt-cache show'
2239     #a3# Execute \kbd{apt-cache policy}
2240     alias acp='apt-cache policy'
2241     #a3# Execute \kbd{apt-get dist-upgrade}
2242     salias adg="apt-get dist-upgrade"
2243     #a3# Execute \kbd{apt-get install}
2244     salias agi="apt-get install"
2245     #a3# Execute \kbd{aptitude install}
2246     salias ati="aptitude install"
2247     #a3# Execute \kbd{apt-get upgrade}
2248     salias ag="apt-get upgrade"
2249     #a3# Execute \kbd{apt-get update}
2250     salias au="apt-get update"
2251     #a3# Execute \kbd{aptitude update ; aptitude safe-upgrade}
2252     salias -a up="aptitude update ; aptitude safe-upgrade"
2253     #a3# Execute \kbd{dpkg-buildpackage}
2254     alias dbp='dpkg-buildpackage'
2255     #a3# Execute \kbd{grep-excuses}
2256     alias ge='grep-excuses'
2257
2258     # debian upgrade
2259     #f3# Execute \kbd{apt-get update \&\& }\\&\quad \kbd{apt-get dist-upgrade}
2260     upgrade() {
2261         if [[ -z "$1" ]] ; then
2262             $SUDO apt-get update
2263             $SUDO apt-get -u upgrade
2264         else
2265             ssh $1 $SUDO apt-get update
2266             # ask before the upgrade
2267             local dummy
2268             ssh $1 $SUDO apt-get --no-act upgrade
2269             echo -n 'Process the upgrade?'
2270             read -q dummy
2271             if [[ $dummy == "y" ]] ; then
2272                 ssh $1 $SUDO apt-get -u upgrade --yes
2273             fi
2274         fi
2275     }
2276
2277     # get a root shell as normal user in live-cd mode:
2278     if isgrmlcd && [[ $UID -ne 0 ]] ; then
2279        alias su="sudo su"
2280      fi
2281
2282     #a1# Take a look at the syslog: \kbd{\$PAGER /var/log/syslog}
2283     alias llog="$PAGER /var/log/syslog"     # take a look at the syslog
2284     #a1# Take a look at the syslog: \kbd{tail -f /var/log/syslog}
2285     alias tlog="tail -f /var/log/syslog"    # follow the syslog
2286 fi
2287
2288 # sort installed Debian-packages by size
2289 if check_com -c grep-status ; then
2290     #a3# List installed Debian-packages sorted by size
2291     alias debs-by-size='grep-status -FStatus -sInstalled-Size,Package -n "install ok installed" | paste -sd "  \n" | sort -rn'
2292 fi
2293
2294 # if cdrecord is a symlink (to wodim) or isn't present at all warn:
2295 if [[ -L /usr/bin/cdrecord ]] || ! check_com -c cdrecord ; then
2296     if check_com -c wodim ; then
2297         alias cdrecord="echo 'cdrecord is not provided under its original name by Debian anymore.
2298 See #377109 in the BTS of Debian for more details.
2299
2300 Please use the wodim binary instead' ; return 1"
2301     fi
2302 fi
2303
2304 # get_tw_cli has been renamed into get_3ware
2305 if check_com -c get_3ware ; then
2306     get_tw_cli() {
2307         echo 'Warning: get_tw_cli has been renamed into get_3ware. Invoking get_3ware for you.'>&2
2308         get_3ware
2309     }
2310 fi
2311
2312 # I hate lacking backward compatibility, so provide an alternative therefore
2313 if ! check_com -c apache2-ssl-certificate ; then
2314
2315     apache2-ssl-certificate() {
2316
2317     print 'Debian does not ship apache2-ssl-certificate anymore (see #398520). :('
2318     print 'You might want to take a look at Debian the package ssl-cert as well.'
2319     print 'To generate a certificate for use with apache2 follow the instructions:'
2320
2321     echo '
2322
2323 export RANDFILE=/dev/random
2324 mkdir /etc/apache2/ssl/
2325 openssl req $@ -new -x509 -days 365 -nodes -out /etc/apache2/ssl/apache.pem -keyout /etc/apache2/ssl/apache.pem
2326 chmod 600 /etc/apache2/ssl/apache.pem
2327
2328 Run "grml-tips ssl-certificate" if you need further instructions.
2329 '
2330     }
2331 fi
2332 # }}}
2333
2334 # {{{ Use hard limits, except for a smaller stack and no core dumps
2335 unlimit
2336 is425 && limit stack 8192
2337 isgrmlcd && limit core 0 # important for a live-cd-system
2338 limit -s
2339 # }}}
2340
2341 # {{{ completion system
2342
2343 # called later (via is4 && grmlcomp)
2344 # notice: use 'zstyle' for getting current settings
2345 #         press ^Xh (control-x h) for getting tags in context; ^X? (control-x ?) to run complete_debug with trace output
2346 grmlcomp() {
2347     # TODO: This could use some additional information
2348
2349     # allow one error for every three characters typed in approximate completer
2350     zstyle ':completion:*:approximate:'    max-errors 'reply=( $((($#PREFIX+$#SUFFIX)/3 )) numeric )'
2351
2352     # don't complete backup files as executables
2353     zstyle ':completion:*:complete:-command-::commands' ignored-patterns '(aptitude-*|*\~)'
2354
2355     # start menu completion only if it could find no unambiguous initial string
2356     zstyle ':completion:*:correct:*'       insert-unambiguous true
2357     zstyle ':completion:*:corrections'     format $'%{\e[0;31m%}%d (errors: %e)%{\e[0m%}'
2358     zstyle ':completion:*:correct:*'       original true
2359
2360     # activate color-completion
2361     zstyle ':completion:*:default'         list-colors ${(s.:.)LS_COLORS}
2362
2363     # format on completion
2364     zstyle ':completion:*:descriptions'    format $'%{\e[0;31m%}completing %B%d%b%{\e[0m%}'
2365
2366     # complete 'cd -<tab>' with menu
2367     zstyle ':completion:*:*:cd:*:directory-stack' menu yes select
2368
2369     # insert all expansions for expand completer
2370     zstyle ':completion:*:expand:*'        tag-order all-expansions
2371     zstyle ':completion:*:history-words'   list false
2372
2373     # activate menu
2374     zstyle ':completion:*:history-words'   menu yes
2375
2376     # ignore duplicate entries
2377     zstyle ':completion:*:history-words'   remove-all-dups yes
2378     zstyle ':completion:*:history-words'   stop yes
2379
2380     # match uppercase from lowercase
2381     zstyle ':completion:*'                 matcher-list 'm:{a-z}={A-Z}'
2382
2383     # separate matches into groups
2384     zstyle ':completion:*:matches'         group 'yes'
2385     zstyle ':completion:*'                 group-name ''
2386
2387     if [[ "$NOMENU" -eq 0 ]] ; then
2388         # if there are more than 5 options allow selecting from a menu
2389         zstyle ':completion:*'               menu select=5
2390     else
2391         # don't use any menus at all
2392         setopt no_auto_menu
2393     fi
2394
2395     zstyle ':completion:*:messages'        format '%d'
2396     zstyle ':completion:*:options'         auto-description '%d'
2397
2398     # describe options in full
2399     zstyle ':completion:*:options'         description 'yes'
2400
2401     # on processes completion complete all user processes
2402     zstyle ':completion:*:processes'       command 'ps -au$USER'
2403
2404     # offer indexes before parameters in subscripts
2405     zstyle ':completion:*:*:-subscript-:*' tag-order indexes parameters
2406
2407     # provide verbose completion information
2408     zstyle ':completion:*'                 verbose true
2409
2410     # recent (as of Dec 2007) zsh versions are able to provide descriptions
2411     # for commands (read: 1st word in the line) that it will list for the user
2412     # to choose from. The following disables that, because it's not exactly fast.
2413     zstyle ':completion:*:-command-:*:'    verbose false
2414
2415     # set format for warnings
2416     zstyle ':completion:*:warnings'        format $'%{\e[0;31m%}No matches for:%{\e[0m%} %d'
2417
2418     # define files to ignore for zcompile
2419     zstyle ':completion:*:*:zcompile:*'    ignored-patterns '(*~|*.zwc)'
2420     zstyle ':completion:correct:'          prompt 'correct to: %e'
2421
2422     # Ignore completion functions for commands you don't have:
2423     zstyle ':completion::(^approximate*):*:functions' ignored-patterns '_*'
2424
2425     # Provide more processes in completion of programs like killall:
2426     zstyle ':completion:*:processes-names' command 'ps c -u ${USER} -o command | uniq'
2427
2428     # complete manual by their section
2429     zstyle ':completion:*:manuals'    separate-sections true
2430     zstyle ':completion:*:manuals.*'  insert-sections   true
2431     zstyle ':completion:*:man:*'      menu yes select
2432
2433     # provide .. as a completion
2434     zstyle ':completion:*' special-dirs ..
2435
2436     # run rehash on completion so new installed program are found automatically:
2437     _force_rehash() {
2438         (( CURRENT == 1 )) && rehash
2439         return 1
2440     }
2441
2442     ## correction
2443     # some people don't like the automatic correction - so run 'NOCOR=1 zsh' to deactivate it
2444     if [[ "$NOCOR" -gt 0 ]] ; then
2445         zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete _files _ignored
2446         setopt nocorrect
2447     else
2448         # try to be smart about when to use what completer...
2449         setopt correct
2450         zstyle -e ':completion:*' completer '
2451             if [[ $_last_try != "$HISTNO$BUFFER$CURSOR" ]] ; then
2452                 _last_try="$HISTNO$BUFFER$CURSOR"
2453                 reply=(_complete _match _ignored _prefix _files)
2454             else
2455                 if [[ $words[1] == (rm|mv) ]] ; then
2456                     reply=(_complete _files)
2457                 else
2458                     reply=(_oldlist _expand _force_rehash _complete _ignored _correct _approximate _files)
2459                 fi
2460             fi'
2461     fi
2462
2463     # command for process lists, the local web server details and host completion
2464     zstyle ':completion:*:urls' local 'www' '/var/www/' 'public_html'
2465
2466     # caching
2467     [[ -d $ZSHDIR/cache ]] && zstyle ':completion:*' use-cache yes && \
2468                             zstyle ':completion::complete:*' cache-path $ZSHDIR/cache/
2469
2470     # host completion /* add brackets as vim can't parse zsh's complex cmdlines 8-) {{{ */
2471     if is42 ; then
2472         [[ -r ~/.ssh/known_hosts ]] && _ssh_hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[\|]*}%%\ *}%%,*}) || _ssh_hosts=()
2473         [[ -r /etc/hosts ]] && : ${(A)_etc_hosts:=${(s: :)${(ps:\t:)${${(f)~~"$(</etc/hosts)"}%%\#*}##[:blank:]#[^[:blank:]]#}}} || _etc_hosts=()
2474     else
2475         _ssh_hosts=()
2476         _etc_hosts=()
2477     fi
2478     hosts=(
2479         $(hostname)
2480         "$_ssh_hosts[@]"
2481         "$_etc_hosts[@]"
2482         grml.org
2483         localhost
2484     )
2485     zstyle ':completion:*:hosts' hosts $hosts
2486     # TODO: so, why is this here?
2487     #  zstyle '*' hosts $hosts
2488
2489     # use generic completion system for programs not yet defined; (_gnu_generic works
2490     # with commands that provide a --help option with "standard" gnu-like output.)
2491     compdef _gnu_generic tail head feh cp mv df stow uname ipacsum fetchipac
2492
2493     # see upgrade function in this file
2494     compdef _hosts upgrade
2495 }
2496 # }}}
2497
2498 # {{{ grmlstuff
2499 grmlstuff() {
2500 # people should use 'grml-x'!
2501     startx() {
2502         if [[ -e /etc/X11/xorg.conf ]] ; then
2503             [[ -x /usr/bin/startx ]] && /usr/bin/startx "$@" || /usr/X11R6/bin/startx "$@"
2504         else
2505             echo "Please use the script \"grml-x\" for starting the X Window System
2506 because there does not exist /etc/X11/xorg.conf yet.
2507 If you want to use startx anyway please call \"/usr/bin/startx\"."
2508             return -1
2509         fi
2510     }
2511
2512     xinit() {
2513         if [[ -e /etc/X11/xorg.conf ]] ; then
2514             [[ -x /usr/bin/xinit ]] && /usr/bin/xinit || /usr/X11R6/bin/xinit
2515         else
2516             echo "Please use the script \"grml-x\" for starting the X Window System.
2517 because there does not exist /etc/X11/xorg.conf yet.
2518 If you want to use xinit anyway please call \"/usr/bin/xinit\"."
2519             return -1
2520         fi
2521     }
2522
2523     if check_com -c 915resolution ; then
2524         alias 855resolution='echo -e "Please use 915resolution as resolution modify tool for Intel graphic chipset."; return -1'
2525     fi
2526
2527     #a1# Output version of running grml
2528     alias grml-version='cat /etc/grml_version'
2529
2530     if check_com -c rebuildfstab ; then
2531         #a1# Rebuild /etc/fstab
2532         alias grml-rebuildfstab='rebuildfstab -v -r -config'
2533     fi
2534
2535     if check_com -c grml-debootstrap ; then
2536         alias debian2hd='print "Installing debian to harddisk is possible via using grml-debootstrap." ; return 1'
2537     fi
2538 }
2539 # }}}
2540
2541 # {{{ now run the functions
2542 isgrml && checkhome
2543 is4    && isgrml    && grmlstuff
2544 is4    && grmlcomp
2545 # }}}
2546
2547 # {{{ keephack
2548 is4 && xsource "/etc/zsh/keephack"
2549 # }}}
2550
2551 # {{{ wonderful idea of using "e" glob qualifier by Peter Stephenson
2552 # You use it as follows:
2553 # $ NTREF=/reference/file
2554 # $ ls -l *(e:nt:)
2555 # This lists all the files in the current directory newer than the reference file.
2556 # You can also specify the reference file inline; note quotes:
2557 # $ ls -l *(e:'nt ~/.zshenv':)
2558 is4 && nt() {
2559     if [[ -n $1 ]] ; then
2560         local NTREF=${~1}
2561     fi
2562     [[ $REPLY -nt $NTREF ]]
2563 }
2564 # }}}
2565
2566 # shell functions {{{
2567
2568 #f1# Provide csh compatibility
2569 setenv()  { typeset -x "${1}${1:+=}${(@)argv[2,$#]}" }  # csh compatibility
2570
2571 #f1# Reload an autoloadable function
2572 freload() { while (( $# )); do; unfunction $1; autoload -U $1; shift; done }
2573
2574 #f1# Reload zsh setup
2575 reload() {
2576     if [[ "$#*" -eq 0 ]] ; then
2577         [[ -r ~/.zshrc ]] && . ~/.zshrc
2578     else
2579         local fn
2580         for fn in "$@"; do
2581             unfunction $fn
2582             autoload -U $fn
2583         done
2584     fi
2585 }
2586 compdef _functions reload freload
2587
2588 #f1# List symlinks in detail (more detailed version of 'readlink -f' and 'whence -s')
2589 sll() {
2590     [[ -z "$1" ]] && printf 'Usage: %s <file(s)>\n' "$0" && return 1
2591     for i in "$@" ; do
2592         file=$i
2593         while [[ -h "$file" ]] ; do
2594             ls -l $file
2595             file=$(readlink "$file")
2596         done
2597     done
2598 }
2599
2600 # fast manual access
2601 if check_com qma ; then
2602     #f1# View the zsh manual
2603     manzsh()  { qma zshall "$1" }
2604     compdef _man qma
2605 else
2606     manzsh()  { /usr/bin/man zshall |  vim -c "se ft=man| se hlsearch" +/"$1" - ; }
2607 fi
2608
2609 if check_com -c $PAGER ; then
2610     #f1# View Debian's changelog of a given package
2611     dchange() {
2612         if [[ -r /usr/share/doc/${1}/changelog.Debian.gz ]] ; then
2613             $PAGER /usr/share/doc/${1}/changelog.Debian.gz
2614         elif [[ -r /usr/share/doc/${1}/changelog.gz ]] ; then
2615             $PAGER /usr/share/doc/${1}/changelog.gz
2616         else
2617             if check_com -c aptitude ; then
2618                 echo "No changelog for package $1 found, using aptitude to retrieve it."
2619                 if isgrml ; then
2620                     aptitude -t unstable changelog ${1}
2621                 else
2622                     aptitude changelog ${1}
2623                 fi
2624             else
2625                 echo "No changelog for package $1 found, sorry."
2626                 return 1
2627             fi
2628         fi
2629     }
2630     _dchange() { _files -W /usr/share/doc -/ }
2631     compdef _dchange dchange
2632
2633     #f1# View Debian's NEWS of a given package
2634     dnews() {
2635         if [[ -r /usr/share/doc/${1}/NEWS.Debian.gz ]] ; then
2636             $PAGER /usr/share/doc/${1}/NEWS.Debian.gz
2637         else
2638             if [[ -r /usr/share/doc/${1}/NEWS.gz ]] ; then
2639                 $PAGER /usr/share/doc/${1}/NEWS.gz
2640             else
2641                 echo "No NEWS file for package $1 found, sorry."
2642                 return 1
2643             fi
2644         fi
2645     }
2646     _dnews() { _files -W /usr/share/doc -/ }
2647     compdef _dnews dnews
2648
2649     #f1# View upstream's changelog of a given package
2650     uchange() {
2651         if [[ -r /usr/share/doc/${1}/changelog.gz ]] ; then
2652             $PAGER /usr/share/doc/${1}/changelog.gz
2653         else
2654             echo "No changelog for package $1 found, sorry."
2655             return 1
2656         fi
2657     }
2658     _uchange() { _files -W /usr/share/doc -/ }
2659     compdef _uchange uchange
2660 fi
2661
2662 # zsh profiling
2663 profile() {
2664     ZSH_PROFILE_RC=1 $SHELL "$@"
2665 }
2666
2667 #f1# Edit an alias via zle
2668 edalias() {
2669     [[ -z "$1" ]] && { echo "Usage: edalias <alias_to_edit>" ; return 1 } || vared aliases'[$1]' ;
2670 }
2671 compdef _aliases edalias
2672
2673 #f1# Edit a function via zle
2674 edfunc() {
2675     [[ -z "$1" ]] && { echo "Usage: edfun <function_to_edit>" ; return 1 } || zed -f "$1" ;
2676 }
2677 compdef _functions edfunc
2678
2679 # use it e.g. via 'Restart apache2'
2680 #m# f6 Start() \kbd{/etc/init.d/\em{process}}\quad\kbd{start}
2681 #m# f6 Restart() \kbd{/etc/init.d/\em{process}}\quad\kbd{restart}
2682 #m# f6 Stop() \kbd{/etc/init.d/\em{process}}\quad\kbd{stop}
2683 #m# f6 Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{reload}
2684 #m# f6 Force-Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{force-reload}
2685 if [[ -d /etc/init.d || -d /etc/service ]] ; then
2686     __start_stop() {
2687         local action_="${1:l}"  # e.g Start/Stop/Restart
2688         local service_="$2"
2689         local param_="$3"
2690
2691         local service_target_="$(readlink /etc/init.d/$service_)"
2692         if [[ $service_target_ == "/usr/bin/sv" ]]; then
2693             # runit
2694             case "${action_}" in
2695                 start) if [[ ! -e /etc/service/$service_ ]]; then
2696                            $SUDO ln -s "/etc/sv/$service_" "/etc/service/"
2697                        else
2698                            $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
2699                        fi ;;
2700                 # there is no reload in runits sysv emulation
2701                 reload) $SUDO "/etc/init.d/$service_" "force-reload" "$param_" ;;
2702                 *) $SUDO "/etc/init.d/$service_" "${action_}" "$param_" ;;
2703             esac
2704         else
2705             # sysvinit
2706             $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
2707         fi
2708     }
2709
2710     for i in Start Restart Stop Force-Reload Reload ; do
2711         eval "$i() { __start_stop $i \"\$1\" \"\$2\" ; }"
2712     done
2713 fi
2714
2715 #f1# Provides useful information on globbing
2716 H-Glob() {
2717     echo -e "
2718     /      directories
2719     .      plain files
2720     @      symbolic links
2721     =      sockets
2722     p      named pipes (FIFOs)
2723     *      executable plain files (0100)
2724     %      device files (character or block special)
2725     %b     block special files
2726     %c     character special files
2727     r      owner-readable files (0400)
2728     w      owner-writable files (0200)
2729     x      owner-executable files (0100)
2730     A      group-readable files (0040)
2731     I      group-writable files (0020)
2732     E      group-executable files (0010)
2733     R      world-readable files (0004)
2734     W      world-writable files (0002)
2735     X      world-executable files (0001)
2736     s      setuid files (04000)
2737     S      setgid files (02000)
2738     t      files with the sticky bit (01000)
2739
2740   print *(m-1)          # Files modified up to a day ago
2741   print *(a1)           # Files accessed a day ago
2742   print *(@)            # Just symlinks
2743   print *(Lk+50)        # Files bigger than 50 kilobytes
2744   print *(Lk-50)        # Files smaller than 50 kilobytes
2745   print **/*.c          # All *.c files recursively starting in \$PWD
2746   print **/*.c~file.c   # Same as above, but excluding 'file.c'
2747   print (foo|bar).*     # Files starting with 'foo' or 'bar'
2748   print *~*.*           # All Files that do not contain a dot
2749   chmod 644 *(.^x)      # make all plain non-executable files publically readable
2750   print -l *(.c|.h)     # Lists *.c and *.h
2751   print **/*(g:users:)  # Recursively match all files that are owned by group 'users'
2752   echo /proc/*/cwd(:h:t:s/self//) # Analogous to >ps ax | awk '{print $1}'<"
2753 }
2754 alias help-zshglob=H-Glob
2755
2756 check_com -c qma && alias ?='qma zshall'
2757
2758 # grep for running process, like: 'any vim'
2759 any() {
2760     if [[ -z "$1" ]] ; then
2761         echo "any - grep for process(es) by keyword" >&2
2762         echo "Usage: any <keyword>" >&2 ; return 1
2763     else
2764         local STRING=$1
2765         local LENGTH=$(expr length $STRING)
2766         local FIRSCHAR=$(echo $(expr substr $STRING 1 1))
2767         local REST=$(echo $(expr substr $STRING 2 $LENGTH))
2768         ps xauwww| grep "[$FIRSCHAR]$REST"
2769     fi
2770 }
2771
2772 # After resuming from suspend, system is paging heavily, leading to very bad interactivity.
2773 # taken from $LINUX-KERNELSOURCE/Documentation/power/swsusp.txt
2774 [[ -r /proc/1/maps ]] && \
2775 deswap() {
2776     print 'Reading /proc/[0-9]*/maps and sending output to /dev/null, this might take a while.'
2777     cat $(sed -ne 's:.* /:/:p' /proc/[0-9]*/maps | sort -u | grep -v '^/dev/')  > /dev/null
2778     print 'Finished, running "swapoff -a; swapon -a" may also be useful.'
2779 }
2780
2781 # print hex value of a number
2782 hex() {
2783     [[ -n "$1" ]] && printf "%x\n" $1 || { print 'Usage: hex <number-to-convert>' ; return 1 }
2784 }
2785
2786 # calculate (or eval at all ;-)) with perl => p[erl-]eval
2787 # hint: also take a look at zcalc -> 'autoload zcalc' -> 'man zshmodules | less -p MATHFUNC'
2788 peval() {
2789     [[ -n "$1" ]] && CALC="$*" || print "Usage: calc [expression]"
2790     perl -e "print eval($CALC),\"\n\";"
2791 }
2792 functions peval &>/dev/null && alias calc=peval
2793
2794 # brltty seems to have problems with utf8 environment and/or font Uni3-Terminus16 under
2795 # certain circumstances, so work around it, no matter which environment we have
2796 brltty() {
2797     if [[ -z "$DISPLAY" ]] ; then
2798         consolechars -f /usr/share/consolefonts/default8x16.psf.gz
2799         command brltty "$@"
2800     else
2801         command brltty "$@"
2802     fi
2803 }
2804
2805 # just press 'asdf' keys to toggle between dvorak and us keyboard layout
2806 aoeu() {
2807     echo -n 'Switching to us keyboard layout: '
2808     [[ -z "$DISPLAY" ]] && $SUDO loadkeys us &>/dev/null || setxkbmap us &>/dev/null
2809     echo 'Done'
2810 }
2811 asdf() {
2812     echo -n 'Switching to dvorak keyboard layout: '
2813     [[ -z "$DISPLAY" ]] && $SUDO loadkeys dvorak &>/dev/null || setxkbmap dvorak &>/dev/null
2814     echo 'Done'
2815 }
2816 # just press 'asdf' key to toggle from neon layout to us keyboard layout
2817 uiae() {
2818     echo -n 'Switching to us keyboard layout: '
2819     setxkbmap us && echo 'Done' || echo 'Failed'
2820 }
2821
2822 # set up an ipv6 tunnel
2823 ipv6-tunnel() {
2824     case $1 in
2825         start)
2826             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2827                 print 'ipv6 tunnel already set up, nothing to be done.'
2828                 print 'execute: "ifconfig sit1 down ; ifconfig sit0 down" to remove ipv6-tunnel.' ; return 1
2829             else
2830                 [[ -n "$PUBLIC_IP" ]] || \
2831                     local PUBLIC_IP=$(ifconfig $(route -n | awk '/^0\.0\.0\.0/{print $8; exit}') | \
2832                                       awk '/inet addr:/ {print $2}' | tr -d 'addr:')
2833
2834                 [[ -n "$PUBLIC_IP" ]] || { print 'No $PUBLIC_IP set and could not determine default one.' ; return 1 }
2835                 local IPV6ADDR=$(printf "2002:%02x%02x:%02x%02x:1::1" $(print ${PUBLIC_IP//./ }))
2836                 print -n "Setting up ipv6 tunnel $IPV6ADDR via ${PUBLIC_IP}: "
2837                 ifconfig sit0 tunnel ::192.88.99.1 up
2838                 ifconfig sit1 add "$IPV6ADDR" && print done || print failed
2839             fi
2840             ;;
2841         status)
2842             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2843                 print 'ipv6 tunnel available' ; return 0
2844             else
2845                 print 'ipv6 tunnel not available' ; return 1
2846             fi
2847             ;;
2848         stop)
2849             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2850                 print -n 'Stopping ipv6 tunnel (sit0 + sit1): '
2851                 ifconfig sit1 down ; ifconfig sit0 down && print done || print failed
2852             else
2853                 print 'No ipv6 tunnel found, nothing to be done.' ; return 1
2854             fi
2855             ;;
2856         *)
2857             print "Usage: ipv6-tunnel [start|stop|status]">&2 ; return 1
2858             ;;
2859     esac
2860 }
2861
2862 # run dhclient for wireless device
2863 iwclient() {
2864     salias dhclient "$(wavemon -d | awk '/device/{print $2}')"
2865 }
2866
2867 # spawn a minimally set up ksh - useful if you want to umount /usr/.
2868 minimal-shell() {
2869     exec env -i ENV="/etc/minimal-shellrc" HOME="$HOME" TERM="$TERM" ksh
2870 }
2871
2872 # make a backup of a file
2873 bk() {
2874     cp -a "$1" "${1}_$(date --iso-8601=seconds)"
2875 }
2876
2877 #f1# grep for patterns in grml's zsh setup
2878 zg() {
2879 #{{{
2880     LANG=C perl -e '
2881
2882 sub usage {
2883     print "usage: zg -[anr] <pattern>\n";
2884     print " Search for patterns in grml'\''s zshrc.\n";
2885     print " zg takes no or exactly one option plus a non empty pattern.\n\n";
2886     print "   options:\n";
2887     print "     --  no options (use if your pattern starts in with a dash.\n";
2888     print "     -a  search for the pattern in all code regions\n";
2889     print "     -n  search for the pattern in non-root code only\n";
2890     print "     -r  search in code for everyone (also root) only\n\n";
2891     print "   The default is -a for non-root users and -r for root.\n\n";
2892     print " If you installed the zshrc to a non-default locations (ie *NOT*\n";
2893     print " in /etc/zsh/zshrc) do: export GRML_ZSHRC=\$HOME/.zshrc\n";
2894     print " ...in case you copied the file to that location.\n\n";
2895     exit 1;
2896 }
2897
2898 if ($ENV{GRML_ZSHRC} ne "") {
2899     $RC = $ENV{GRML_ZSHRC};
2900 } else {
2901     $RC = "/etc/zsh/zshrc";
2902 }
2903
2904 usage if ($#ARGV < 0 || $#ARGV > 1);
2905 if ($> == 0) { $mode = "allonly"; }
2906 else { $mode = "all"; }
2907
2908 $opt = $ARGV[0];
2909 if ($opt eq "--")     { shift; }
2910 elsif ($opt eq "-a")  { $mode = "all"; shift; }
2911 elsif ($opt eq "-n")  { $mode = "nonroot"; shift; }
2912 elsif ($opt eq "-r" ) { $mode = "allonly"; shift; }
2913 elsif ($opt =~ m/^-/ || $#ARGV > 0) { usage(); }
2914
2915 $pattern = $ARGV[0];
2916 usage() if ($pattern eq "");
2917
2918 open FH, "<$RC" or die "zg: Could not open $RC: $!\n";
2919 while ($line = <FH>) {
2920     chomp $line;
2921     if ($line =~ m/^#:grep:marker:for:mika:/) { $markerfound = 1; next; }
2922     next if ($mode eq "nonroot" && markerfound == 0);
2923     break if ($mode eq "allonly" && markerfound == 1);
2924     print $line, "\n" if ($line =~ /$pattern/);
2925 }
2926 close FH;
2927 exit 0;
2928
2929     ' -- "$@"
2930 #}}}
2931     return $?
2932 }
2933
2934 # }}}
2935
2936 # {{{ make sure our environment is clean regarding colors
2937 for color in BLUE RED GREEN CYAN YELLOW MAGENTA WHITE ; unset $color
2938 # }}}
2939
2940 # source another config file if present {{{
2941 xsource "/etc/zsh/zshrc.local"
2942 # }}}
2943
2944 # "persistent history" {{{
2945 # just write important commands you always need to ~/.important_commands
2946 if [[ -r ~/.important_commands ]] ; then
2947     fc -R ~/.important_commands
2948 fi
2949 # }}}
2950
2951 #:grep:marker:for:mika: :-)
2952 ### non-root (EUID != 0) code below
2953 ###
2954
2955 (( GRML_ALWAYS_LOAD_ALL == 0 )) && (( $EUID == 0 )) && return 0
2956
2957 # variables {{{
2958
2959 # set terminal property (used e.g. by msgid-chooser)
2960 export COLORTERM="yes"
2961
2962 # set default browser
2963 if [[ -z "$BROWSER" ]] ; then
2964     if [[ -n "$DISPLAY" ]] ; then
2965         #v# If X11 is running
2966         check_com -c firefox && export BROWSER=firefox
2967     else
2968         #v# If no X11 is running
2969         check_com -c w3m && export BROWSER=w3m
2970     fi
2971 fi
2972
2973 #m# v QTDIR \kbd{/usr/share/qt[34]}\quad [for non-root only]
2974 [[ -d /usr/share/qt3 ]] && export QTDIR=/usr/share/qt3
2975 [[ -d /usr/share/qt4 ]] && export QTDIR=/usr/share/qt4
2976
2977 # support running 'jikes *.java && jamvm HelloWorld' OOTB:
2978 #v# [for non-root only]
2979 [[ -f /usr/share/classpath/glibj.zip ]] && export JIKESPATH=/usr/share/classpath/glibj.zip
2980 # }}}
2981
2982 # aliases {{{
2983
2984 # Xterm resizing-fu.
2985 # Based on http://svn.kitenet.net/trunk/home-full/.zshrc?rev=11710&view=log (by Joey Hess)
2986 alias hide='echo -en "\033]50;nil2\007"'
2987 alias tiny='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-80-*-*-c-*-iso8859-15\007"'
2988 alias small='echo -en "\033]50;6x10\007"'
2989 alias medium='echo -en "\033]50;-misc-fixed-medium-r-normal--13-120-75-75-c-80-iso8859-15\007"'
2990 alias default='echo -e "\033]50;-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-15\007"'
2991 alias large='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-150-*-*-c-*-iso8859-15\007"'
2992 alias huge='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-210-*-*-c-*-iso8859-15\007"'
2993 alias smartfont='echo -en "\033]50;-artwiz-smoothansi-*-*-*-*-*-*-*-*-*-*-*-*\007"'
2994 alias semifont='echo -en "\033]50;-misc-fixed-medium-r-semicondensed-*-*-120-*-*-*-*-iso8859-15\007"'
2995
2996 # general
2997 #a2# Execute \kbd{du -sch}
2998 alias da='du -sch'
2999 #a2# Execute \kbd{jobs -l}
3000 alias j='jobs -l'
3001
3002 # compile stuff
3003 #a2# Execute \kbd{./configure}
3004 alias CO="./configure"
3005 #a2# Execute \kbd{./configure --help}
3006 alias CH="./configure --help"
3007
3008 # http://conkeror.mozdev.org/
3009 # TODO: I think this should be removed, as conkeror is not a simple extension anymore
3010 #a2# Run a keyboard driven firefox
3011 alias conkeror='firefox -chrome chrome://conkeror/content'
3012
3013 # arch/tla stuff
3014 if check_com -c tla ; then
3015     #a2# Execute \kbd{tla what-changed --diffs | less}
3016     alias tdi='tla what-changed --diffs | less'
3017     #a2# Execute \kbd{tla-buildpackage}
3018     alias tbp='tla-buildpackage'
3019     #a2# Execute \kbd{tla archive-mirror}
3020     alias tmi='tla archive-mirror'
3021     #a2# Execute \kbd{tla commit}
3022     alias tco='tla commit'
3023     #a2# Execute \kbd{tla star-merge}
3024     alias tme='tla star-merge'
3025 fi
3026
3027 # listing stuff
3028 #a2# Execute \kbd{ls -lSrah}
3029 alias dir="ls -lSrah"
3030 #a2# Only show dot-directories
3031 alias lad='ls -d .*(/)'                # only show dot-directories
3032 #a2# Only show dot-files
3033 alias lsa='ls -a .*(.)'                # only show dot-files
3034 #a2# Only files with setgid/setuid/sticky flag
3035 alias lss='ls -l *(s,S,t)'             # only files with setgid/setuid/sticky flag
3036 #a2# Only show 1st ten symlinks
3037 alias lsl='ls -l *(@[1,10])'           # only symlinks
3038 #a2# Display only executables
3039 alias lsx='ls -l *(*[1,10])'           # only executables
3040 #a2# Display world-{readable,writable,executable} files
3041 alias lsw='ls -ld *(R,W,X.^ND/)'       # world-{readable,writable,executable} files
3042 #a2# Display the ten biggest files
3043 alias lsbig="ls -flh *(.OL[1,10])"     # display the biggest files
3044 #a2# Only show directories
3045 alias lsd='ls -d *(/)'                 # only show directories
3046 #a2# Only show empty directories
3047 alias lse='ls -d *(/^F)'               # only show empty directories
3048 #a2# Display the ten newest files
3049 alias lsnew="ls -rl *(D.om[1,10])"     # display the newest files
3050 #a2# Display the ten oldest files
3051 alias lsold="ls -rtlh *(D.om[1,10])"   # display the oldest files
3052 #a2# Display the ten smallest files
3053 alias lssmall="ls -Srl *(.oL[1,10])"   # display the smallest files
3054
3055 # chmod
3056 #a2# Execute \kbd{chmod 600}
3057 alias rw-='chmod 600'
3058 #a2# Execute \kbd{chmod 700}
3059 alias rwx='chmod 700'
3060 #m# a2 r-{}- Execute \kbd{chmod 644}
3061 alias r--='chmod 644'
3062 #a2# Execute \kbd{chmod 755}
3063 alias r-x='chmod 755'
3064
3065 # some useful aliases
3066 #a2# Execute \kbd{mkdir -o}
3067 alias md='mkdir -p'
3068
3069 check_com -c ipython && alias ips='ipython -p sh'
3070
3071 # console stuff
3072 #a2# Execute \kbd{mplayer -vo fbdev}
3073 alias cmplayer='mplayer -vo fbdev'
3074 #a2# Execute \kbd{mplayer -vo fbdev -fs -zoom}
3075 alias fbmplayer='mplayer -vo fbdev -fs -zoom'
3076 #a2# Execute \kbd{links2 -driver fb}
3077 alias fblinks='links2 -driver fb'
3078
3079 #a2# ssh with StrictHostKeyChecking=no \\&\quad and UserKnownHostsFile unset
3080 alias insecssh='ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
3081 alias insecscp='scp -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
3082
3083 # simple webserver
3084 check_com -c python && alias http="python -m SimpleHTTPServer"
3085
3086 # Use 'g' instead of 'git':
3087 check_com g || alias g='git'
3088
3089 # use colors when browsing man pages, but only if not using LESS_TERMCAP_* from /etc/zsh/zshenv:
3090 if [[ -z "$LESS_TERMCAP_md" ]] ; then
3091     [[ -d ~/.terminfo/ ]] && alias man='TERMINFO=~/.terminfo/ LESS=C TERM=mostlike PAGER=less man'
3092 fi
3093
3094 # check whether Debian's package management (dpkg) is running
3095 if check_com salias ; then
3096     #a2# Check whether a dpkg instance is currently running
3097     salias check_dpkg_running="dpkg_running"
3098 fi
3099
3100 # work around non utf8 capable software in utf environment via $LANG and luit
3101 if check_com isutfenv && check_com luit ; then
3102     if check_com -c mrxvt ; then
3103         isutfenv && [[ -n "$LANG" ]] && \
3104             alias mrxvt="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit mrxvt"
3105     fi
3106
3107     if check_com -c aterm ; then
3108         isutfenv && [[ -n "$LANG" ]] && \
3109             alias aterm="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit aterm"
3110     fi
3111
3112     if check_com -c centericq ; then
3113         isutfenv && [[ -n "$LANG" ]] && \
3114             alias centericq="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit centericq"
3115     fi
3116 fi
3117 # }}}
3118
3119 # useful functions {{{
3120
3121 # searching
3122 #f4# Search for newspostings from authors
3123 agoogle() { ${=BROWSER} "http://groups.google.com/groups?as_uauthors=$*" ; }
3124 #f4# Search Debian Bug Tracking System
3125 debbug()  {
3126     setopt localoptions extendedglob
3127     if [[ $# -eq 1 ]]; then
3128         case "$1" in
3129             ([0-9]##)
3130             ${=BROWSER} "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$1"
3131             ;;
3132             (*@*)
3133             ${=BROWSER} "http://bugs.debian.org/cgi-bin/pkgreport.cgi?submitter=$1"
3134             ;;
3135             (*)
3136             ${=BROWSER} "http://bugs.debian.org/$*"
3137             ;;
3138         esac
3139     else
3140         print "$0 needs one argument"
3141         return 1
3142     fi
3143 }
3144 #f4# Search Debian Bug Tracking System in mbox format
3145 debbugm() { bts show --mbox $1 } # provide bugnummer as "$1"
3146 #f4# Search DMOZ
3147 dmoz()    { ${=BROWSER} http://search.dmoz.org/cgi-bin/search\?search=${1// /_} }
3148 #f4# Search German   Wiktionary
3149 dwicti()  { ${=BROWSER} http://de.wiktionary.org/wiki/${(C)1// /_} }
3150 #f4# Search English  Wiktionary
3151 ewicti()  { ${=BROWSER} http://en.wiktionary.org/wiki/${(C)1// /_} }
3152 #f4# Search Google Groups
3153 ggogle()  { ${=BROWSER} "http://groups.google.com/groups?q=$*" }
3154 #f4# Search Google
3155 google()  { ${=BROWSER} "http://www.google.com/search?&num=100&q=$*" }
3156 #f4# Search Google Groups for MsgID
3157 mggogle() { ${=BROWSER} "http://groups.google.com/groups?selm=$*" }
3158 #f4# Search Netcraft
3159 netcraft(){ ${=BROWSER} "http://toolbar.netcraft.com/site_report?url=$1" }
3160 #f4# Use German Wikipedia's full text search
3161 swiki()   { ${=BROWSER} http://de.wikipedia.org/wiki/Spezial:Search/${(C)1} }
3162 #f4# search \kbd{dict.leo.org}
3163 oleo()    { ${=BROWSER} "http://dict.leo.org/?search=$*" }
3164 #f4# Search German   Wikipedia
3165 wikide()  { ${=BROWSER} http://de.wikipedia.org/wiki/"${(C)*}" }
3166 #f4# Search English  Wikipedia
3167 wikien()  { ${=BROWSER} http://en.wikipedia.org/wiki/"${(C)*}" }
3168 #f4# Search official debs
3169 wodeb()   { ${=BROWSER} "http://packages.debian.org/search?keywords=$1&searchon=contents&suite=${2:=unstable}&section=all" }
3170
3171 #m# f4 gex() Exact search via Google
3172 check_com google && gex () { google "\"[ $1]\" $*" } # exact search at google
3173
3174 # misc
3175 #f5# Backup \kbd{file {\rm to} file\_timestamp}
3176 bk()      { cp -b ${1} ${1}_`date --iso-8601=m` }
3177 #f5# Copied diff
3178 cdiff()   { diff -crd "$*" | egrep -v "^Only in |^Binary files " }
3179 #f5# cd to directoy and list files
3180 cl()      { cd $1 && ls -a }        # cd && ls
3181 #f5# Cvs add
3182 cvsa()    { cvs add $* && cvs com -m 'initial checkin' $* }
3183 #f5# Cvs diff
3184 cvsd()    { cvs diff -N $* |& $PAGER }
3185 #f5# Cvs log
3186 cvsl()    { cvs log $* |& $PAGER }
3187 #f5# Cvs update
3188 cvsq()    { cvs -nq update }
3189 #f5# Rcs2log
3190 cvsr()    { rcs2log $* | $PAGER }
3191 #f5# Cvs status
3192 cvss()    { cvs status -v $* }
3193 #f5# Disassemble source files using gcc and as
3194 disassemble(){ gcc -pipe -S -o - -O -g $* | as -aldh -o /dev/null }
3195 #f5# Firefox remote control - open given URL
3196 fir()     { firefox -a firefox -remote "openURL($1)" }
3197 #f5# Create Directoy and \kbd{cd} to it
3198 mcd()     { mkdir -p "$@"; cd "$@" } # mkdir && cd
3199 #f5# Unified diff to timestamped outputfile
3200 mdiff()   { diff -udrP "$1" "$2" > diff.`date "+%Y-%m-%d"`."$1" }
3201 #f5# Memory overview
3202 memusage(){ ps aux | awk '{if (NR > 1) print $5; if (NR > 2) print "+"} END { print "p" }' | dc }
3203 #f5# Show contents of tar file
3204 shtar()   { gunzip -c $1 | tar -tf - -- | $PAGER }
3205 #f5# Show contents of tgz file
3206 shtgz()   { tar -ztf $1 | $PAGER }
3207 #f5# Show contents of zip file
3208 shzip()   { unzip -l $1 | $PAGER }
3209 #f5# Greps signature from file
3210 sig()     { agrep -d '^-- $' "$*" ~/.Signature }
3211 #f5# Unified diff
3212 udiff()   { diff -urd $* | egrep -v "^Only in |^Binary files " }
3213 #f5# (Mis)use \kbd{vim} as \kbd{less}
3214 viless()  { vim --cmd 'let no_plugin_maps = 1' -c "so \$VIMRUNTIME/macros/less.vim" "${@:--}" }
3215
3216 # download video from youtube
3217 ytdl() {
3218     if ! [[ -n "$2" ]] ; then
3219         print "Usage: ydtl http://youtube.com/watch?v=.... outputfile.flv">&2
3220         return 1
3221     else
3222         wget -O${2} "http://youtube.com/get_video?"${${${"$(wget -o/dev/null -O- "${1}" | grep -e watch_fullscreen)"}##*watch_fullscreen\?}%%\&fs=*}
3223     fi
3224 }
3225
3226 # Function Usage: uopen $URL/$file
3227 #f5# Download a file and display it locally
3228 uopen() {
3229     if ! [[ -n "$1" ]] ; then
3230         print "Usage: uopen \$URL/\$file">&2
3231         return 1
3232     else
3233         FILE=$1
3234         MIME=$(curl --head $FILE | grep Content-Type | cut -d ' ' -f 2 | cut -d\; -f 1)
3235         MIME=${MIME%$'\r'}
3236         curl $FILE | see ${MIME}:-
3237     fi
3238 }
3239
3240 # Function Usage: doc packagename
3241 #f5# \kbd{cd} to /usr/share/doc/\textit{package}
3242 doc() { cd /usr/share/doc/$1 && ls }
3243 _doc() { _files -W /usr/share/doc -/ }
3244 check_com compdef && compdef _doc doc
3245
3246 #f5# Make screenshot
3247 sshot() {
3248     [[ ! -d ~/shots  ]] && mkdir ~/shots
3249     #cd ~/shots ; sleep 5 ; import -window root -depth 8 -quality 80 `date "+%Y-%m-%d--%H:%M:%S"`.png
3250     cd ~/shots ; sleep 5; import -window root shot_`date --iso-8601=m`.jpg
3251 }
3252
3253 # list images only
3254 limg() {
3255     local -a images
3256     images=( *.{jpg,gif,png}(.N) )
3257
3258     if [[ $#images -eq 0 ]] ; then
3259         print "No image files found"
3260     else
3261         ls "$@" "$images[@]"
3262     fi
3263 }
3264
3265 #f5# Create PDF file from source code
3266 makereadable() {
3267     output=$1
3268     shift
3269     a2ps --medium A4dj -E -o $output $*
3270     ps2pdf $output
3271 }
3272
3273 # zsh with perl-regex - use it e.g. via:
3274 # regcheck '\s\d\.\d{3}\.\d{3} Euro' ' 1.000.000 Euro'
3275 #f5# Checks whether a regex matches or not.\\&\quad Example: \kbd{regcheck '.\{3\} EUR' '500 EUR'}
3276 regcheck() {
3277     zmodload -i zsh/pcre
3278     pcre_compile $1 && \
3279     pcre_match $2 && echo "regex matches" || echo "regex does not match"
3280 }
3281
3282 #f5# List files which have been modified within the last {\it n} days
3283 new() { print -l *(m-$1) }
3284
3285 #f5# Grep in history
3286 greph() { history 0 | grep $1 }
3287 # use colors when GNU grep with color-support
3288 #a2# Execute \kbd{grep -{}-color=auto}
3289 (grep --help 2>/dev/null |grep -- --color) >/dev/null && alias grep='grep --color=auto'
3290 #a2# Execute \kbd{grep -i -{}-color=auto}
3291 alias GREP='grep -i --color=auto'
3292
3293 # one blank line between each line
3294 if [[ -r ~/.terminfo/m/mostlike ]] ; then
3295     #f5# Watch manpages in a stretched style
3296     man2() { PAGER='dash -c "sed G | /usr/bin/less"' TERM=mostlike /usr/bin/man "$@" ; }
3297 fi
3298
3299 # d():Copyright 2005 Nikolai Weibull <nikolai@bitwi.se>
3300 # notice: option AUTO_PUSHD has to be set
3301 #f5# Jump between directories
3302 d() {
3303     emulate -L zsh
3304     autoload -U colors
3305     local color=$fg_bold[blue]
3306     integer i=0
3307     dirs -p | while read dir; do
3308         local num="${$(printf "%-4d " $i)/ /.}"
3309         printf " %s  $color%s$reset_color\n" $num $dir
3310         (( i++ ))
3311     done
3312     integer dir=-1
3313     read -r 'dir?Jump to directory: ' || return
3314     (( dir == -1 )) && return
3315     if (( dir < 0 || dir >= i )); then
3316         echo d: no such directory stack entry: $dir
3317         return 1
3318     fi
3319     cd ~$dir
3320 }
3321
3322 # usage example: 'lcheck strcpy'
3323 #f5# Find out which libs define a symbol
3324 lcheck() {
3325     if [[ -n "$1" ]] ; then
3326         nm -go /usr/lib/lib*.a 2>/dev/null | grep ":[[:xdigit:]]\{8\} . .*$1"
3327     else
3328         echo "Usage: lcheck <function>" >&2
3329     fi
3330 }
3331
3332 #f5# Clean up directory - remove well known tempfiles
3333 purge() {
3334     FILES=(*~(N) .*~(N) \#*\#(N) *.o(N) a.out(N) *.core(N) *.cmo(N) *.cmi(N) .*.swp(N))
3335     NBFILES=${#FILES}
3336     if [[ $NBFILES > 0 ]] ; then
3337         print $FILES
3338         local ans
3339         echo -n "Remove these files? [y/n] "
3340         read -q ans
3341         if [[ $ans == "y" ]] ; then
3342             rm ${FILES}
3343             echo ">> $PWD purged, $NBFILES files removed"
3344         else
3345             echo "Ok. .. than not.."
3346         fi
3347     fi
3348 }
3349
3350 # Translate DE<=>EN
3351 # 'translate' looks up fot a word in a file with language-to-language
3352 # translations (field separator should be " : "). A typical wordlist looks
3353 # like at follows:
3354 #  | english-word : german-transmission
3355 # It's also only possible to translate english to german but not reciprocal.
3356 # Use the following oneliner to turn back the sort order:
3357 #  $ awk -F ':' '{ print $2" : "$1" "$3 }' \
3358 #    /usr/local/lib/words/en-de.ISO-8859-1.vok > ~/.translate/de-en.ISO-8859-1.vok
3359 #f5# Translates a word
3360 trans() {
3361     case "$1" in
3362         -[dD]*)
3363             translate -l de-en $2
3364             ;;
3365         -[eE]*)
3366             translate -l en-de $2
3367             ;;
3368         *)
3369             echo "Usage: $0 { -D | -E }"
3370             echo "         -D == German to English"
3371             echo "         -E == English to German"
3372     esac
3373 }
3374
3375 #f5# List all occurrences of programm in current PATH
3376 plap() {
3377     if [[ $# = 0 ]] ; then
3378         echo "Usage:    $0 program"
3379         echo "Example:  $0 zsh"
3380         echo "Lists all occurrences of program in the current PATH."
3381     else
3382         ls -l ${^path}/*$1*(*N)
3383     fi
3384 }
3385
3386 # Found in the mailinglistarchive from Zsh (IIRC ~1996)
3387 #f5# Select items for specific command(s) from history
3388 selhist() {
3389     emulate -L zsh
3390     local TAB=$'\t';
3391     (( $# < 1 )) && {
3392         echo "Usage: $0 command"
3393         return 1
3394     };
3395     cmd=(${(f)"$(grep -w $1 $HISTFILE | sort | uniq | pr -tn)"})
3396     print -l $cmd | less -F
3397     echo -n "enter number of desired command [1 - $(( ${#cmd[@]} - 1 ))]: "
3398     local answer
3399     read answer
3400     print -z "${cmd[$answer]#*$TAB}"
3401 }
3402
3403 # Use vim to convert plaintext to HTML
3404 #f5# Transform files to html with highlighting
3405 2html() { vim -u NONE -n -c ':syntax on' -c ':so $VIMRUNTIME/syntax/2html.vim' -c ':wqa' $1 &>/dev/null }
3406
3407 # Usage: simple-extract <file>
3408 #f5# Smart archive extractor
3409 simple-extract () {
3410     if [[ -f $1 ]] ; then
3411         case $1 in
3412             *.tar.bz2)  bzip2 -v -d $1      ;;
3413             *.tar.gz)   tar -xvzf $1        ;;
3414             *.rar)      unrar $1            ;;
3415             *.deb)      ar -x $1            ;;
3416             *.bz2)      bzip2 -d $1         ;;
3417             *.lzh)      lha x $1            ;;
3418             *.gz)       gunzip -d $1        ;;
3419             *.tar)      tar -xvf $1         ;;
3420             *.tgz)      gunzip -d $1        ;;
3421             *.tbz2)     tar -jxvf $1        ;;
3422             *.zip)      unzip $1            ;;
3423             *.Z)        uncompress $1       ;;
3424             *)          echo "'$1' Error. Please go away" ;;
3425         esac
3426     else
3427         echo "'$1' is not a valid file"
3428     fi
3429 }
3430
3431 # Usage: smartcompress <file> (<type>)
3432 #f5# Smart archive creator
3433 smartcompress() {
3434     if [[ -n $2 ]] ; then
3435         case $2 in
3436             tgz | tar.gz)   tar -zcvf$1.$2 $1 ;;
3437             tbz2 | tar.bz2) tar -jcvf$1.$2 $1 ;;
3438             tar.Z)          tar -Zcvf$1.$2 $1 ;;
3439             tar)            tar -cvf$1.$2  $1 ;;
3440             gz | gzip)      gzip           $1 ;;
3441             bz2 | bzip2)    bzip2          $1 ;;
3442             *)
3443                 echo "Error: $2 is not a valid compression type"
3444                 ;;
3445         esac
3446     else
3447         smartcompress $1 tar.gz
3448     fi
3449 }
3450
3451 # Usage: show-archive <archive>
3452 #f5# List an archive's content
3453 show-archive() {
3454     if [[ -f $1 ]] ; then
3455         case $1 in
3456             *.tar.gz)      gunzip -c $1 | tar -tf - -- ;;
3457             *.tar)         tar -tf $1 ;;
3458             *.tgz)         tar -ztf $1 ;;
3459             *.zip)         unzip -l $1 ;;
3460             *.bz2)         bzless $1 ;;
3461             *.deb)         dpkg-deb --fsys-tarfile $1 | tar -tf - -- ;;
3462             *)             echo "'$1' Error. Please go away" ;;
3463         esac
3464     else
3465         echo "'$1' is not a valid archive"
3466     fi
3467 }
3468
3469 # It's shameless stolen from <http://www.vim.org/tips/tip.php?tip_id=167>
3470 #f5# Use \kbd{vim} as your manpage reader
3471 vman() { man $* | col -b | view -c 'set ft=man nomod nolist' - }
3472
3473 # function readme() { $PAGER -- (#ia3)readme* }
3474 #f5# View all README-like files in current directory in pager
3475 readme() {
3476     local files
3477     files=(./(#i)*(read*me|lue*m(in|)ut)*(ND))
3478     if (($#files)) ; then
3479         $PAGER $files
3480     else
3481         print 'No README files.'
3482     fi
3483 }
3484
3485 # function ansi-colors()
3486 #f5# Display ANSI colors
3487 ansi-colors() {
3488     typeset esc="\033[" line1 line2
3489     echo " _ _ _40 _ _ _41_ _ _ _42 _ _ 43_ _ _ 44_ _ _45 _ _ _ 46_ _ _ 47_ _ _ 49_ _"
3490     for fore in 30 31 32 33 34 35 36 37; do
3491         line1="$fore "
3492         line2="   "
3493         for back in 40 41 42 43 44 45 46 47 49; do
3494             line1="${line1}${esc}${back};${fore}m Normal ${esc}0m"
3495             line2="${line2}${esc}${back};${fore};1m Bold   ${esc}0m"
3496         done
3497         echo -e "$line1\n$line2"
3498     done
3499 }
3500
3501 # suidfind() { ls -latg $path | grep '^...s' }
3502 #f5# Find all files in \$PATH with setuid bit set
3503 suidfind() { ls -latg $path/*(sN) }
3504
3505 # See above but this is /better/ ... anywise ..
3506 findsuid() {
3507     print 'Output will be written to ~/suid_* ...'
3508     $SUDO find / -type f \( -perm -4000 -o -perm -2000 \) -ls > ~/suid_suidfiles.`date "+%Y-%m-%d"`.out 2>&1
3509     $SUDO find / -type d \( -perm -4000 -o -perm -2000 \) -ls > ~/suid_suiddirs.`date "+%Y-%m-%d"`.out 2>&1
3510     $SUDO find / -type f \( -perm -2 -o -perm -20 \) -ls > ~/suid_writefiles.`date "+%Y-%m-%d"`.out 2>&1
3511     $SUDO find / -type d \( -perm -2 -o -perm -20 \) -ls > ~/suid_writedirs.`date "+%Y-%m-%d"`.out 2>&1
3512     print 'Finished'
3513 }
3514
3515 #f5# Reload given functions
3516 refunc() {
3517     for func in $argv ; do
3518         unfunction $func
3519         autoload $func
3520     done
3521 }
3522
3523 # a small check to see which DIR is located on which server/partition.
3524 # stolen and modified from Sven's zshrc.forall
3525 #f5# Report diskusage of a directory
3526 dirspace() {
3527     if [[ -n "$1" ]] ; then
3528         for dir in $* ; do
3529             if [[ -d "$dir" ]] ; then
3530                 ( cd $dir; echo "-<$dir>"; du -shx .; echo);
3531             else
3532                 echo "warning: $dir does not exist" >&2
3533             fi
3534         done
3535     else
3536         for dir in $path; do
3537             if [[ -d "$dir" ]] ; then
3538                 ( cd $dir; echo "-<$dir>"; du -shx .; echo);
3539             else
3540                 echo "warning: $dir does not exist" >&2
3541             fi
3542         done
3543     fi
3544 }
3545
3546 # % slow_print `cat /etc/passwd`
3547 #f5# Slowly print out parameters
3548 slow_print() {
3549     for argument in "${@}" ; do
3550         for ((i = 1; i <= ${#1} ;i++)) ; do
3551             print -n "${argument[i]}"
3552             sleep 0.08
3553         done
3554         print -n " "
3555     done
3556     print ""
3557 }
3558
3559 #f5# Show some status info
3560 status() {
3561     print ""
3562     print "Date..: "$(date "+%Y-%m-%d %H:%M:%S")""
3563     print "Shell.: Zsh $ZSH_VERSION (PID = $$, $SHLVL nests)"
3564     print "Term..: $TTY ($TERM), ${BAUD:+$BAUD bauds, }$COLUMNS x $LINES cars"
3565     print "Login.: $LOGNAME (UID = $EUID) on $HOST"
3566     print "System: $(cat /etc/[A-Za-z]*[_-][rv]e[lr]*)"
3567     print "Uptime:$(uptime)"
3568     print ""
3569 }
3570
3571 # Rip an audio CD
3572 #f5# Rip an audio CD
3573 audiorip() {
3574     mkdir -p ~/ripps
3575     cd ~/ripps
3576     cdrdao read-cd --device $DEVICE --driver generic-mmc audiocd.toc
3577     cdrdao read-cddb --device $DEVICE --driver generic-mmc audiocd.toc
3578     echo " * Would you like to burn the cd now? (yes/no)"
3579     read input
3580     if [[ "$input" = "yes" ]] ; then
3581         echo " ! Burning Audio CD"
3582         audioburn
3583         echo " * done."
3584     else
3585         echo " ! Invalid response."
3586     fi
3587 }
3588
3589 # and burn it
3590 #f5# Burn an audio CD (in combination with audiorip)
3591 audioburn() {
3592     cd ~/ripps
3593     cdrdao write --device $DEVICE --driver generic-mmc audiocd.toc
3594     echo " * Should I remove the temporary files? (yes/no)"
3595     read input
3596     if [[ "$input" = "yes" ]] ; then
3597         echo " ! Removing Temporary Files."
3598         cd ~
3599         rm -rf ~/ripps
3600         echo " * done."
3601     else
3602         echo " ! Invalid response."
3603     fi
3604 }
3605
3606 #f5# Make an audio CD from all mp3 files
3607 mkaudiocd() {
3608     # TODO: do the renaming more zshish, possibly with zmv()
3609     cd ~/ripps
3610     for i in *.[Mm][Pp]3; do mv "$i" `echo $i | tr '[A-Z]' '[a-z]'`; done
3611     for i in *.mp3; do mv "$i" `echo $i | tr ' ' '_'`; done
3612     for i in *.mp3; do mpg123 -w `basename $i .mp3`.wav $i; done
3613     normalize -m *.wav
3614     for i in *.wav; do sox $i.wav -r 44100 $i.wav resample; done
3615 }
3616
3617 #f5# Create an ISO image. You are prompted for\\&\quad volume name, filename and directory
3618 mkiso() {
3619     echo " * Volume name "
3620     read volume
3621     echo " * ISO Name (ie. tmp.iso)"
3622     read iso
3623     echo " * Directory or File"
3624     read files
3625     mkisofs -o ~/$iso -A $volume -allow-multidot -J -R -iso-level 3 -V $volume -R $files
3626 }
3627
3628 #f5# Simple thumbnails generator
3629 genthumbs() {
3630     rm -rf thumb-* index.html
3631     echo "
3632 <html>
3633   <head>
3634     <title>Images</title>
3635   </head>
3636   <body>" > index.html
3637     for f in *.(gif|jpeg|jpg|png) ; do
3638         convert -size 100x200 "$f" -resize 100x200 thumb-"$f"
3639         echo "    <a href=\"$f\"><img src=\"thumb-$f\"></a>" >> index.html
3640     done
3641     echo "
3642   </body>
3643 </html>" >> index.html
3644 }
3645
3646 #f5# Set all ulimit parameters to \kbd{unlimited}
3647 allulimit() {
3648     ulimit -c unlimited
3649     ulimit -d unlimited
3650     ulimit -f unlimited
3651     ulimit -l unlimited
3652     ulimit -n unlimited
3653     ulimit -s unlimited
3654     ulimit -t unlimited
3655 }
3656
3657 # ogg2mp3 with bitrate of 192
3658 ogg2mp3_192() {
3659     oggdec -o - ${1} | lame -b 192 - ${1:r}.mp3
3660 }
3661
3662 #f5# RFC 2396 URL encoding in Z-Shell
3663 urlencode() {
3664     setopt localoptions extendedglob
3665     input=( ${(s::)1} )
3666     print ${(j::)input/(#b)([^A-Za-z0-9_.!~*\'\(\)-])/%${(l:2::0:)$(([##16]#match))}}
3667 }
3668
3669 #f5# Install x-lite (VoIP software)
3670 getxlite() {
3671     setopt local_options
3672     setopt errreturn
3673     [[ -d ~/tmp ]] || mkdir ~/tmp
3674     cd ~/tmp
3675
3676     echo "Downloading http://www.counterpath.com/download/X-Lite_Install.tar.gz and storing it in ~/tmp:"
3677     if wget http://www.counterpath.com/download/X-Lite_Install.tar.gz ; then
3678         unp X-Lite_Install.tar.gz && echo done || echo failed
3679     else
3680         echo "Error while downloading." ; return 1
3681     fi
3682
3683     if [[ -x xten-xlite/xtensoftphone ]] ; then
3684         echo "Execute xten-xlite/xtensoftphone to start xlite."
3685     fi
3686 }
3687
3688 #f5# Install skype
3689 getskype() {
3690     setopt local_options
3691     setopt errreturn
3692     echo "Downloading debian package of skype."
3693     echo "Notice: If you want to use a more recent skype version run 'getskypebeta'."
3694     wget http://www.skype.com/go/getskype-linux-deb
3695     $SUDO dpkg -i skype*.deb && echo "skype installed."
3696 }
3697
3698 #f5# Install beta-version of skype
3699 getskypebeta() {
3700     setopt local_options
3701     setopt errreturn
3702     echo "Downloading debian package of skype (beta version)."
3703     wget http://www.skype.com/go/getskype-linux-beta-deb
3704     $SUDO dpkg -i skype-beta*.deb && echo "skype installed."
3705 }
3706
3707 #f5# Install gizmo (VoIP software)
3708 getgizmo() {
3709     setopt local_options
3710     setopt errreturn
3711     echo "libgtk2.0-0, gconf2, libstdc++6, libasound2 and zlib1g have to be available. Installing."
3712     $SUDO apt-get update
3713     $SUDO apt-get install libgtk2.0-0 gconf2 libstdc++6 libasound2 zlib1g
3714     wget "$(lynx --dump http://gizmo5.com/pc/download/linux/ | awk '/libstdc\+\+6.*\.deb/ {print $2}')"
3715     $SUDO dpkg -i gizmo-project*.deb && echo "gizmo installed."
3716 }
3717
3718 #f5# Get and run AIR (Automated Image and Restore)
3719 getair() {
3720     setopt local_options
3721     setopt errreturn
3722     [[ -w . ]] || { echo 'Error: you do not have write permissions in this directory. Exiting.' ; return 1 }
3723     local VER='1.2.8'
3724     wget http://puzzle.dl.sourceforge.net/sourceforge/air-imager/air-$VER.tar.gz
3725     tar zxf air-$VER.tar.gz
3726     cd air-$VER
3727     INTERACTIVE=no $SUDO ./install-air-1.2.8
3728     [[ -x /usr/local/bin/air ]] && [[ -n "$DISPLAY" ]] && $SUDO air
3729 }
3730
3731 #f5# Get specific git commitdiff
3732 git-get-diff() {
3733     if [[ -z $GITTREE ]] ; then
3734         GITTREE='linux/kernel/git/torvalds/linux-2.6.git'
3735     fi
3736     if ! [[ -z $1 ]] ; then
3737         ${=BROWSER} "http://kernel.org/git/?p=$GITTREE;a=commitdiff;h=$1"
3738     else
3739         echo "Usage: git-get-diff <commit>"
3740     fi
3741 }
3742
3743 #f5# Get specific git commit
3744 git-get-commit() {
3745     if [[ -z $GITTREE ]] ; then
3746         GITTREE='linux/kernel/git/torvalds/linux-2.6.git'
3747     fi
3748     if ! [[ -z $1 ]] ; then
3749         ${=BROWSER} "http://kernel.org/git/?p=$GITTREE;a=commit;h=$1"
3750     else
3751         echo "Usage: git-get-commit <commit>"
3752     fi
3753 }
3754
3755 #f5# Get specific git diff
3756 git-get-plaindiff () {
3757     if [[ -z $GITTREE ]] ; then
3758        GITTREE='linux/kernel/git/torvalds/linux-2.6.git'
3759     fi
3760     if [[ -z $1 ]] ; then
3761        echo 'Usage: git-get-plaindiff '
3762     else
3763        echo -n "Downloading $1.diff ... "
3764        # avoid "generating ..." stuff from kernel.org server:
3765        wget --quiet "http://kernel.org/git/?p=$GITTREE;a=commitdiff_plain;h=$1" -O /dev/null
3766        wget --quiet "http://kernel.org/git/?p=$GITTREE;a=commitdiff_plain;h=$1" -O $1.diff \
3767             && echo done || echo failed
3768     fi
3769 }
3770
3771
3772 # http://strcat.de/blog/index.php?/archives/335-Software-sauber-deinstallieren...html
3773 #f5# Log 'make install' output
3774 mmake() {
3775     [[ ! -d ~/.errorlogs ]] && mkdir ~/.errorlogs
3776     make -n install > ~/.errorlogs/${PWD##*/}-makelog
3777 }
3778
3779 #f5# Indent source code
3780 smart-indent() {
3781     indent -npro -kr -i8 -ts8 -sob -l80 -ss -ncs $*
3782 }
3783
3784 # highlight important stuff in diff output, usage example: hg diff | hidiff
3785 #m# a2 hidiff \kbd{histring} oneliner for diffs
3786 check_com -c histring && \
3787     alias hidiff="histring -fE '^Comparing files .*|^diff .*' | histring -c yellow -fE '^\-.*' | histring -c green -fE '^\+.*'"
3788
3789 # rename pictures based on information found in exif headers
3790 #f5# Rename pictures based on information found in exif headers
3791 exirename() {
3792     if [[ $# -lt 1 ]] ; then
3793         echo 'Usage: jpgrename $FILES' >& 2
3794         return 1
3795     else
3796         echo -n 'Checking for jhead with version newer than 1.9: '
3797         jhead_version=`jhead -h | grep 'used by most Digital Cameras.  v.*' | awk '{print $6}' | tr -d v`
3798         if [[ $jhead_version > '1.9' ]]; then
3799             echo 'success - now running jhead.'
3800             jhead -n%Y-%m-%d_%Hh%M_%f $*
3801         else
3802             echo 'failed - exiting.'
3803         fi
3804     fi
3805 }
3806
3807 # open file in vim and jump to line
3808 # http://www.downgra.de/archives/2007/05/08/T19_21_11/
3809 j2v() {
3810     local -a params
3811     params=(${*//(#m):[0-9]*:/\\n+${MATCH//:/}}) # replace ':23:' to '\n+23'
3812     params=(${(s|\n|)${(j|\n|)params}}) # join array using '\n', then split on all '\n'
3813     vim ${params}
3814 }
3815
3816 # get_ic() - queries imap servers for capabilities; real simple. no imaps
3817 ic_get() {
3818     local port
3819     if [[ ! -z $1 ]] ; then
3820         port=${2:-143}
3821         print "querying imap server on $1:${port}...\n";
3822         print "a1 capability\na2 logout\n" | nc $1 ${port}
3823     else
3824         print "usage:\n  $0 <imap-server> [port]"
3825     fi
3826 }
3827
3828 # creates a Maildir/ with its {new,cur,tmp} subdirs
3829 mkmaildir() {
3830     local root subdir
3831     root=${MAILDIR_ROOT:-${HOME}/Mail}
3832     if [[ -z ${1} ]] ; then print "Usage:\n $0 <dirname>" ; return 1 ; fi
3833     subdir=${1}
3834     mkdir -p ${root}/${subdir}/{cur,new,tmp}
3835 }
3836
3837 #f5# Change the xterm title from within GNU-screen
3838 xtrename() {
3839     if [[ ${1} != "-f" ]] ; then
3840         if [[ -z ${DISPLAY} ]] ; then
3841             printf 'xtrename only makes sense in X11.\n'
3842             return 1
3843         fi
3844     else
3845         shift
3846     fi
3847     if [[ -z ${1} ]] ; then
3848         printf 'usage: xtrename [-f] "title for xterm"\n'
3849         printf '  renames the title of xterm from _within_ screen.\n'
3850         printf '  also works without screen.\n'
3851         printf '  will not work if DISPLAY is unset, use -f to override.\n'
3852         return 0
3853     fi
3854     print -n "\eP\e]0;${1}\C-G\e\\"
3855     return 0
3856 }
3857
3858 # hl() highlighted less
3859 # http://ft.bewatermyfriend.org/comp/data/zsh/zfunct.html
3860 if check_com -c highlight ; then
3861     function hl() {
3862         local theme lang
3863         theme=${HL_THEME:-""}
3864         case ${1} in
3865             (-l|--list)
3866                 ( printf 'available languages (syntax parameter):\n\n' ;
3867                     highlight --list-langs ; ) | less -SMr
3868                 ;;
3869             (-t|--themes)
3870                 ( printf 'available themes (style parameter):\n\n' ;
3871                     highlight --list-themes ; ) | less -SMr
3872                 ;;
3873             (-h|--help)
3874                 printf 'usage: hl <syntax[:theme]> <file>\n'
3875                 printf '    available options: --list (-l), --themes (-t), --help (-h)\n\n'
3876                 printf '  Example: hl c main.c\n'
3877                 ;;
3878             (*)
3879                 if [[ -z ${2} ]] || (( ${#argv} > 2 )) ; then
3880                     printf 'usage: hl <syntax[:theme]> <file>\n'
3881                     printf '    available options: --list (-l), --themes (-t), --help (-h)\n'
3882                     (( ${#argv} > 2 )) && printf '  Too many arguments.\n'
3883                     return 1
3884                 fi
3885                 lang=${1%:*}
3886                 [[ ${1} == *:* ]] && [[ -n ${1#*:} ]] && theme=${1#*:}
3887                 if [[ -n ${theme} ]] ; then
3888                     highlight --xterm256 --syntax ${lang} --style ${theme} ${2} | less -SMr
3889                 else
3890                     highlight --ansi --syntax ${lang} ${2} | less -SMr
3891                 fi
3892                 ;;
3893         esac
3894         return 0
3895     }
3896     # ... and a proper completion for hl()
3897     # needs 'highlight' as well, so it fits fine in here.
3898     function _hl_genarg()  {
3899         local expl
3900         if [[ -prefix 1 *: ]] ; then
3901             local themes
3902             themes=(${${${(f)"$(LC_ALL=C highlight --list-themes)"}/ #/}:#*(Installed|Use name)*})
3903             compset -P 1 '*:'
3904             _wanted -C list themes expl theme compadd ${themes}
3905         else
3906             local langs
3907             langs=(${${${(f)"$(LC_ALL=C highlight --list-langs)"}/ #/}:#*(Installed|Use name)*})
3908             _wanted -C list languages expl languages compadd -S ':' -q ${langs}
3909         fi
3910     }
3911     function _hl_complete() {
3912         _arguments -s '1: :_hl_genarg' '2:files:_path_files'
3913     }
3914     compdef _hl_complete hl
3915 fi
3916
3917 # create small urls via tinyurl.com using wget, grep and sed
3918 zurl() {
3919     [[ -z ${1} ]] && print "please give an url to shrink." && return 1
3920     local url=${1}
3921     local tiny="http://tinyurl.com/create.php?url="
3922     #print "${tiny}${url}" ; return
3923     wget  -O-             \
3924           -o/dev/null     \
3925           "${tiny}${url}" \
3926         | grep -Eio 'value="(http://tinyurl.com/.*)"' \
3927         | sed 's/value=//;s/"//g'
3928 }
3929
3930 #f2# Print a specific line of file(s).
3931 linenr () {
3932 # {{{
3933     if [ $# -lt 2 ] ; then
3934        print "Usage: linenr <number>[,<number>] <file>" ; return 1
3935     elif [ $# -eq 2 ] ; then
3936          local number=$1
3937          local file=$2
3938          command ed -s $file <<< "${number}n"
3939     else
3940          local number=$1
3941          shift
3942          for file in "$@" ; do
3943              if [ ! -d $file ] ; then
3944                 echo "${file}:"
3945                 command ed -s $file <<< "${number}n" 2> /dev/null
3946              else
3947                 continue
3948              fi
3949          done | less
3950     fi
3951 # }}}
3952 }
3953
3954 #f2# Find history events by search pattern and list them by date.
3955 whatwhen()  {
3956 # {{{
3957     local usage help ident format_l format_s first_char remain first last
3958     usage='USAGE: whatwhen [options] <searchstring> <search range>'
3959     help='Use' \`'whatwhen -h'\'' for further explanations.'
3960     ident=${(l,${#${:-Usage: }},, ,)}
3961     format_l="${ident}%s\t\t\t%s\n"
3962     format_s="${format_l//(\\t)##/\\t}"
3963     # Make the first char of the word to search for case
3964     # insensitive; e.g. [aA]
3965     first_char=[${(L)1[1]}${(U)1[1]}]
3966     remain=${1[2,-1]}
3967     # Default search range is `-100'.
3968     first=${2:-\-100}
3969     # Optional, just used for `<first> <last>' given.
3970     last=$3
3971     case $1 in
3972         ("")
3973             printf '%s\n\n' 'ERROR: No search string specified. Aborting.'
3974             printf '%s\n%s\n\n' ${usage} ${help} && return 1
3975         ;;
3976         (-h)
3977             printf '%s\n\n' ${usage}
3978             print 'OPTIONS:'
3979             printf $format_l '-h' 'show help text'
3980             print '\f'
3981             print 'SEARCH RANGE:'
3982             printf $format_l "'0'" 'the whole history,'
3983             printf $format_l '-<n>' 'offset to the current history number; (default: -100)'
3984             printf $format_s '<[-]first> [<last>]' 'just searching within a give range'
3985             printf '\n%s\n' 'EXAMPLES:'
3986             printf ${format_l/(\\t)/} 'whatwhen grml' '# Range is set to -100 by default.'
3987             printf $format_l 'whatwhen zsh -250'
3988             printf $format_l 'whatwhen foo 1 99'
3989         ;;
3990         (\?)
3991             printf '%s\n%s\n\n' ${usage} ${help} && return 1
3992         ;;
3993         (*)
3994             # -l list results on stout rather than invoking $EDITOR.
3995             # -i Print dates as in YYYY-MM-DD.
3996             # -m Search for a - quoted - pattern within the history.
3997             fc -li -m "*${first_char}${remain}*" $first $last
3998         ;;
3999     esac
4000 # }}}
4001 }
4002
4003 # change fluxbox keys from 'Alt-#' to 'Alt-F#' and vice versa
4004 fluxkey-change() {
4005     [[ -n "$FLUXKEYS" ]] || local FLUXKEYS="$HOME/.fluxbox/keys"
4006     if ! [[ -r "$FLUXKEYS" ]] ; then
4007         echo "Sorry, \$FLUXKEYS file $FLUXKEYS could not be read - nothing to be done."
4008         return 1
4009     else
4010         if grep -q 'Mod1 F[0-9] :Workspace [0-9]' $FLUXKEYS ; then
4011             echo -n 'Switching to Alt-# mode in ~/.fluxbox/keys: '
4012             sed -i -e 's|^\(Mod[0-9]\+[: space :]\+\)F\([0-9]\+[: space :]\+:Workspace.*\)|\1\2|' $FLUXKEYS && echo done || echo failed
4013         elif grep -q 'Mod1 [0-9] :Workspace [0-9]' $FLUXKEYS ; then
4014             echo -n 'Switching to Alt-F# mode in ~/.fluxbox/keys: '
4015             sed -i -e 's|^\(Mod[0-9]\+[: space :]\+\)\([0-9]\+[: space :]\+:Workspace.*\)|\1F\2|' $FLUXKEYS && echo done || echo failed
4016         else
4017             echo 'Sorry, do not know what to do.'
4018             return 1
4019         fi
4020     fi
4021 }
4022
4023 # retrieve weather information on the console
4024 # Usage example: 'weather LOWG'
4025 weather() {
4026     [[ -n "$1" ]] || {
4027         print 'Usage: weather <station_id>' >&2
4028         print 'List of stations: http://en.wikipedia.org/wiki/List_of_airports_by_ICAO_code'>&2
4029         return 1
4030     }
4031
4032     local PLACE="${1:u}"
4033     local FILE="$HOME/.weather/$PLACE"
4034     local LOG="$HOME/.weather/log"
4035
4036     [[ -d $HOME/.weather ]] || {
4037         print -n "Creating $HOME/.weather: "
4038         mkdir $HOME/.weather
4039         print 'done'
4040     }
4041
4042     print "Retrieving information for ${PLACE}:"
4043     print
4044     wget -T 10 --no-verbose --output-file=$LOG --output-document=$FILE --timestamping http://weather.noaa.gov/pub/data/observations/metar/decoded/$PLACE.TXT
4045
4046     if [[ $? -eq 0 ]] ; then
4047         if [[ -n "$VERBOSE" ]] ; then
4048             cat $FILE
4049         else
4050             DATE=$(grep 'UTC' $FILE | sed 's#.* /##')
4051             TEMPERATURE=$(awk '/Temperature/ { print $4" degree Celcius / " $2" degree Fahrenheit" }' $FILE| tr -d '(')
4052             echo "date: $DATE"
4053             echo "temp:  $TEMPERATURE"
4054         fi
4055     else
4056         print "There was an error retrieving the weather information for $PLACE" >&2
4057         cat $LOG
4058         return 1
4059     fi
4060 }
4061 # }}}
4062
4063 # mercurial related stuff {{{
4064 if check_com -c hg ; then
4065     # gnu like diff for mercurial
4066     # http://www.selenic.com/mercurial/wiki/index.cgi/TipsAndTricks
4067     #f5# GNU like diff for mercurial
4068     hgdi() {
4069         for i in $(hg status -marn "$@") ; diff -ubwd <(hg cat "$i") "$i"
4070     }
4071
4072     # build debian package
4073     #a2# Alias for \kbd{hg-buildpackage}
4074     alias hbp='hg-buildpackage'
4075
4076     # execute commands on the versioned patch-queue from the current repos
4077     alias mq='hg -R $(readlink -f $(hg root)/.hg/patches)'
4078
4079     # diffstat for specific version of a mercurial repository
4080     #   hgstat      => display diffstat between last revision and tip
4081     #   hgstat 1234 => display diffstat between revision 1234 and tip
4082     #f5# Diffstat for specific version of a mercurial repos
4083     hgstat() {
4084         [[ -n "$1" ]] && hg diff -r $1 -r tip | diffstat || hg export tip | diffstat
4085     }
4086
4087     #f5# Get current mercurial tip via hg itself
4088     gethgclone() {
4089         setopt local_options
4090         setopt errreturn
4091         if [[ -f mercurial-tree/.hg ]] ; then
4092             cd mercurial-tree
4093             echo "Running hg pull for retreiving latest version..."
4094             hg pull
4095             echo "Finished update. Building mercurial"
4096             make local
4097             echo "Setting \$PATH to $PWD:\$PATH..."
4098             export PATH="$PWD:$PATH"
4099         else
4100             echo "Downloading mercurial via hg"
4101             hg clone http://selenic.com/repo/hg mercurial-tree
4102             cd mercurial-tree
4103             echo "Building mercurial"
4104             make local
4105             echo "Setting \$PATH to $PWD:\$PATH..."
4106             export PATH="$PWD:$PATH"
4107             echo "make sure you set it permanent via ~/.zshrc if you plan to use it permanently."
4108             # echo "Setting \$PYTHONPATH to PYTHONPATH=\${HOME}/lib/python,"
4109             # export PYTHONPATH=${HOME}/lib/python
4110         fi
4111     }
4112
4113 fi # end of check whether we have the 'hg'-executable
4114
4115 # get current mercurial snapshot
4116 #f5# Get current mercurial snapshot
4117 gethgsnap() {
4118     setopt local_options
4119     setopt errreturn
4120     if [[ -f mercurial-snapshot.tar.gz ]] ; then
4121          echo "mercurial-snapshot.tar.gz exists already, skipping download."
4122     else
4123         echo "Downloading mercurial snapshot"
4124         wget http://www.selenic.com/mercurial/mercurial-snapshot.tar.gz
4125     fi
4126     echo "Unpacking mercurial-snapshot.tar.gz"
4127     tar zxf mercurial-snapshot.tar.gz
4128     cd mercurial-snapshot/
4129     echo "Installing required build-dependencies"
4130     $SUDO apt-get update
4131     $SUDO apt-get install python2.4-dev
4132     echo "Building mercurial"
4133     make local
4134     echo "Setting \$PATH to $PWD:\$PATH..."
4135     export PATH="$PWD:$PATH"
4136     echo "make sure you set it permanent via ~/.zshrc if you plan to use it permanently."
4137 }
4138 # }}}
4139
4140 # some useful commands often hard to remember - let's grep for them {{{
4141 # actually use our zg() function now. :)
4142
4143 # Work around ion/xterm resize bug.
4144 #if [[ "$SHLVL" -eq 1 ]]; then
4145 #       if check_com -c resize ; then
4146 #               eval `resize </dev/null`
4147 #       fi
4148 #fi
4149
4150 # enable jackd:
4151 #  /usr/bin/jackd -dalsa -dhw:0 -r48000 -p1024 -n2
4152 # now play audio file:
4153 #  alsaplayer -o jack foobar.mp3
4154
4155 # send files via netcat
4156 # on sending side:
4157 #  send() {j=$*; tar cpz ${j/%${!#}/}|nc -w 1 ${!#} 51330;}
4158 #  send dir* $HOST
4159 #  alias receive='nc -vlp 51330 | tar xzvp'
4160
4161 # debian stuff:
4162 # dh_make -e foo@localhost -f $1
4163 # dpkg-buildpackage -rfakeroot
4164 # lintian *.deb
4165 # dpkg-scanpackages ./ /dev/null | gzip > Packages.gz
4166 # dpkg-scansources . | gzip > Sources.gz
4167 # grep-dctrl --field Maintainer $* /var/lib/apt/lists/*
4168
4169 # other stuff:
4170 # convert -geometry 200x200 -interlace LINE -verbose
4171 # ldapsearch -x -b "OU=Bedienstete,O=tug" -h ldap.tugraz.at sn=$1
4172 # ps -ao user,pcpu,start,command
4173 # gpg --keyserver blackhole.pca.dfn.de --recv-keys
4174 # xterm -bg black -fg yellow -fn -misc-fixed-medium-r-normal--14-140-75-75-c-90-iso8859-15 -ah
4175 # nc -vz $1 1-1024   # portscan via netcat
4176 # wget --mirror --no-parent --convert-links
4177 # pal -d `date +%d`
4178 # autoload -U tetris; zle -N tetris; bindkey '...' ; echo "press ... for playing tennis"
4179 #
4180 # modify console cursor
4181 # see http://www.tldp.org/HOWTO/Framebuffer-HOWTO-5.html
4182 # print $'\e[?96;0;64c'
4183 # }}}
4184
4185 # grml-small cleanups {{{
4186
4187 # The following is used to remove zsh-config-items that do not work
4188 # in grml-small by default.
4189 # If you do not want these adjustments (for whatever reason), set
4190 # $GRMLSMALL_SPECIFIC to 0 in your .zshrc.pre file (which this configuration
4191 # sources if it is there).
4192
4193 if (( GRMLSMALL_SPECIFIC > 0 )) && isgrmlsmall ; then
4194
4195     unset abk[V]
4196     unalias    'V'      &> /dev/null
4197     unfunction vman     &> /dev/null
4198     unfunction vimpm    &> /dev/null
4199     unfunction vimhelp  &> /dev/null
4200     unfunction viless   &> /dev/null
4201     unfunction 2html    &> /dev/null
4202
4203     # manpages are not in grmlsmall
4204     unfunction manzsh   &> /dev/null
4205     unalias    man2     &> /dev/null
4206     unalias    man      &> /dev/null
4207     unfunction man2     &> /dev/null
4208
4209 fi
4210
4211 #}}}
4212
4213 # finally source a local zshrc {{{
4214
4215 # this allows us to stay in sync with grml's zshrc and put own
4216 # modifications in ~/.zshrc.local
4217
4218 xsource "${HOME}/.zshrc.local"
4219
4220 # }}}
4221
4222 ## genrefcard.pl settings {{{
4223
4224 ### doc strings for external functions from files
4225 #m# f5 grml-wallpaper() Sets a wallpaper (try completion for possible values)
4226
4227 ### example: split functions-search 8,16,24,32
4228 #@# split functions-search 8
4229
4230 ## }}}
4231
4232 ## END OF FILE #################################################################
4233 # vim:filetype=zsh foldmethod=marker autoindent expandtab shiftwidth=4