etc/zsh/zshrc

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