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 COMMAND_NOT_FOUND=${COMMAND_NOT_FOUND:-0}
 234 GRML_ZSH_CNF_HANDLER=${GRML_ZSH_CNF_HANDLER:-/usr/share/command-not-found/command-not-found}
 235 BATTERY=${BATTERY:-0}
 236 GRMLSMALL_SPECIFIC=${GRMLSMALL_SPECIFIC:-1}
 237 GRML_ALWAYS_LOAD_ALL=${GRML_ALWAYS_LOAD_ALL:-0}
 238
 239 if isgrmlcd ; then
 240     GRML_WARN_SKEL=${GRML_WARN_SKEL:-0}
 241 else
 242     GRML_WARN_SKEL=${GRML_WARN_SKEL:-1}
 243 fi
 244
 245 if (( GRML_WARN_SKEL != 0 )) ; then
 246
 247 function grml_warn_skel_main() {
 248     printf '
 249 Dear user,
 250
 251 You updated grml'\''s zshrc which brings a major change.
 252 The configuration is kept only in one file, being the global zshrc.
 253 In the past, the configuration was split in two files, with the
 254 second file being the .zshrc file from /etc/skel.
 255
 256 If you have a .zshrc file in your home directory that originally
 257 came from the skel directory, please remove it. This is also the case
 258 if you followed earlier instructions from the grml-zsh-refcard or
 259 from <http://grml.org/console/> on non-grml systems.
 260
 261 Please see the current grml-zsh-refcard (available at
 262 <http://grml.org/zsh/>) for updated installation information. In short,
 263 you don'\''t want a .zshrc.global file. Install the global zshrc to
 264 ~/.zshrc and be done.
 265
 266 If you need changes to the configuration, use ~/.zshrc.pre and
 267 ~/.zshrc.local.
 268
 269 '
 270 }
 271
 272 function grml_warn_skel_remove() {
 273     printf 'To remove this warning execute '\''grml_do_not_warn_skel'\''.\n\n'
 274 }
 275
 276 function grml_do_not_warn_skel() {
 277     printf '# Do not warn about old skel dot-files anymore\n' >>! ~/.zshrc.pre
 278     printf 'GRML_WARN_SKEL=0\n' >>! ~/.zshrc.pre
 279 }
 280
 281 # let's try to guess how the user uses us.
 282 if is-at-least 4.3.7 ; then
 283     # funcsourcetrace requires at least version 4.3.7 of zsh.
 284     GRML_SRC_FILE="${${funcsourcetrace[1]}%:*}"
 285
 286     grml_warn_skel_main
 287     case ${GRML_SRC_FILE} in
 288         (${HOME}/.zshrc.global)
 289             grml_warn_skel_remove
 290             printf '\nIt looks like you copied the grml zshrc to '\''~/.zshrc.global'\''.\n'
 291             printf 'Nowadays you just copy the global zshrc to '\''~/.zshrc'\'' to use\n'
 292             printf 'it on a non-grml-system.\n'
 293             ;;
 294         (${HOME}/.zshrc)
 295             printf '\nIt looks like you copied the grml zshrc to '\''~/.zshrc'\''.\n'
 296             printf 'We'\''ll disable this warning automatically for later sessions.\n'
 297             grml_do_not_warn_skel
 298             ;;
 299         (*)
 300             grml_do_not_warn_skel
 301             ;;
 302     esac
 303 else
 304     grml_warn_skel_main
 305     grml_warn_skel_remove
 306 fi
 307
 308 unfunction grml_warn_skel_remove grml_warn_skel_main
 309
 310 fi # GRML_WARN_SKEL
 311
 312 # }}}
 313
 314 # utility functions {{{
 315 # this function checks if a command exists and returns either true
 316 # or false. This avoids using 'which' and 'whence', which will
 317 # avoid problems with aliases for which on certain weird systems. :-)
 318 check_com() {
 319     local -i comonly
 320
 321     if [[ ${1} == '-c' ]] ; then
 322         (( comonly = 1 ))
 323         shift
 324     else
 325         (( comonly = 0 ))
 326     fi
 327
 328     if (( ${#argv} != 1 )) ; then
 329         printf 'usage: check_com [-c] <command>\n' >&2
 330         return 1
 331     fi
 332
 333     if (( comonly > 0 )) ; then
 334         [[ -n ${commands[$1]}  ]] && return 0
 335         return 1
 336     fi
 337
 338     if   [[ -n ${commands[$1]}    ]] \
 339       || [[ -n ${functions[$1]}   ]] \
 340       || [[ -n ${aliases[$1]}     ]] \
 341       || [[ -n ${reswords[(r)$1]} ]] ; then
 342
 343         return 0
 344     fi
 345
 346     return 1
 347 }
 348
 349 # creates an alias and precedes the command with
 350 # sudo if $EUID is not zero.
 351 salias() {
 352     local only=0 ; local multi=0
 353     while [[ ${1} == -* ]] ; do
 354         case ${1} in
 355             (-o) only=1 ;;
 356             (-a) multi=1 ;;
 357             (--) shift ; break ;;
 358             (-h)
 359                 printf 'usage: salias [-h|-o|-a] <alias-expression>\n'
 360                 printf '  -h      shows this help text.\n'
 361                 printf '  -a      replace '\'' ; '\'' sequences with '\'' ; sudo '\''.\n'
 362                 printf '          be careful using this option.\n'
 363                 printf '  -o      only sets an alias if a preceding sudo would be needed.\n'
 364                 return 0
 365                 ;;
 366             (*) printf "unkown option: '%s'\n" "${1}" ; return 1 ;;
 367         esac
 368         shift
 369     done
 370
 371     if (( ${#argv} > 1 )) ; then
 372         printf 'Too many arguments %s\n' "${#argv}"
 373         return 1
 374     fi
 375
 376     key="${1%%\=*}" ;  val="${1#*\=}"
 377     if (( EUID == 0 )) && (( only == 0 )); then
 378         alias -- "${key}=${val}"
 379     elif (( EUID > 0 )) ; then
 380         (( multi > 0 )) && val="${val// ; / ; sudo }"
 381         alias -- "${key}=sudo ${val}"
 382     fi
 383
 384     return 0
 385 }
 386
 387 # a "print -l ${(u)foo}"-workaround for pre-4.2.0 shells
 388 # usage: uprint foo
 389 #   Where foo is the *name* of the parameter you want printed.
 390 #   Note that foo is no typo; $foo would be wrong here!
 391 if ! is42 ; then
 392     uprint () {
 393         local -a u
 394         local w
 395         local parameter=${1}
 396
 397         if [[ -z ${parameter} ]] ; then
 398             printf 'usage: uprint <parameter>\n'
 399             return 1
 400         fi
 401
 402         for w in ${(P)parameter} ; do
 403             [[ -z ${(M)u:#${w}} ]] && u=( ${u} ${w} )
 404         done
 405
 406         builtin print -l ${u}
 407     }
 408 fi
 409
 410 # Check if we can read given files and source those we can.
 411 xsource() {
 412     if (( ${#argv} < 1 )) ; then
 413         printf 'usage: xsource FILE(s)...\n' >&2
 414         return 1
 415     fi
 416
 417     while (( ${#argv} > 0 )) ; do
 418         [[ -r ${1} ]] && source ${1}
 419         shift
 420     done
 421     return 0
 422 }
 423
 424 # Check if we can read a given file and 'cat(1)' it.
 425 xcat() {
 426     if (( ${#argv} != 1 )) ; then
 427         printf 'usage: xcat FILE\n' >&2
 428         return 1
 429     fi
 430
 431     [[ -r ${1} ]] && cat ${1}
 432     return 0
 433 }
 434
 435 # Remove these functions again, they are of use only in these
 436 # setup files. This should be called at the end of .zshrc.
 437 xunfunction() {
 438     local -a funcs
 439     funcs=(salias xcat xsource xunfunction zrcautoload)
 440
 441     for func in $funcs ; do
 442         [[ -n ${functions[$func]} ]] \
 443             && unfunction $func
 444     done
 445     return 0
 446 }
 447
 448 # this allows us to stay in sync with grml's zshrc and put own
 449 # modifications in ~/.zshrc.local
 450 zrclocal() {
 451     xsource "/etc/zsh/zshrc.local"
 452     xsource "${HOME}/.zshrc.local"
 453     return 0
 454 }
 455
 456 #}}}
 457
 458 # locale setup {{{
 459 xsource "/etc/default/locale"
 460
 461 export LANG=${LANG:-en_US.iso885915}
 462 for var in LC_ALL LC_MESSAGES ; do
 463     [[ -n ${(P)var} ]] && export $var
 464 done
 465
 466 xsource "/etc/sysconfig/keyboard"
 467
 468 TZ=$(xcat /etc/timezone)
 469 # }}}
 470
 471 # check for potentially old files in 'completion.d' {{{
 472 setopt extendedglob
 473 xof=(/etc/zsh/completion.d/*~/etc/zsh/completion.d/_*(N))
 474 if (( ${#xof} > 0 )) ; then
 475     printf '\n -!- INFORMATION\n\n'
 476     printf ' -!- %s file(s) not starting with an underscore (_) found in\n' ${#xof}
 477     printf ' -!- /etc/zsh/completion.d/.\n\n'
 478     printf ' -!- While this has been the case in old versions of grml-etc-core,\n'
 479     printf ' -!- recent versions of the grml-zsh-setup have all these files rewritten\n'
 480     printf ' -!- and renamed. Furthermore, the grml-zsh-setup will *only* add files\n'
 481     printf ' -!- named _* to that directory.\n\n'
 482     printf ' -!- If you added functions to completion.d yourself, please consider\n'
 483     printf ' -!- moving them to /etc/zsh/functions.d/. Files in that directory, not\n'
 484     printf ' -!- starting with an underscore are marked for automatic loading\n'
 485     printf ' -!- by default (so that is quite convenient).\n\n'
 486     printf ' -!- If there are files *not* starting with an underscore from an older\n'
 487     printf ' -!- grml-etc-core in completion.d, you may safely remove them.\n\n'
 488     printf ' -!- Delete the files for example via running:\n\n'
 489     printf "      rm ${xof}\n\n"
 490     printf ' -!- Note, that this message will *not* go away, unless you yourself\n'
 491     printf ' -!- resolve the situation manually.\n\n'
 492     BROKEN_COMPLETION_DIR=1
 493 fi
 494 unset xof
 495 # }}}
 496
 497 # {{{ set some variables
 498 if check_com -c vim ; then
 499 #v#
 500     export EDITOR=${EDITOR:-vim}
 501 else
 502     export EDITOR=${EDITOR:-vi}
 503 fi
 504
 505 #v#
 506 export PAGER=${PAGER:-less}
 507
 508 #v#
 509 export MAIL=${MAIL:-/var/mail/$USER}
 510
 511 # if we don't set $SHELL then aterm, rxvt,.. will use /bin/sh or /bin/bash :-/
 512 export SHELL='/bin/zsh'
 513
 514 # color setup for ls:
 515 check_com -c dircolors && eval $(dircolors -b)
 516 # color setup for ls on OS X:
 517 isdarwin && export CLICOLOR=1
 518
 519 # do MacPorts setup on darwin
 520 if isdarwin && [[ -d /opt/local ]]; then
 521     # Note: PATH gets set in /etc/zprofile on Darwin, so this can't go into
 522     # zshenv.
 523     PATH="/opt/local/bin:/opt/local/sbin:$PATH"
 524     MANPATH="/opt/local/share/man:$MANPATH"
 525 fi
 526 # do Fink setup on darwin
 527 isdarwin && xsource /sw/bin/init.sh
 528
 529 # completion functions go to /etc/zsh/completion.d
 530 # function files may be put into /etc/zsh/functions.d, from where they
 531 # will be automatically autoloaded.
 532 if [[ -n "$BROKEN_COMPLETION_DIR" ]] ; then
 533     print 'Warning: not setting completion directories because broken files have been found.' >&2
 534 else
 535     [[ -d /etc/zsh/completion.d ]] && fpath=( $fpath /etc/zsh/completion.d )
 536     if [[ -d /etc/zsh/functions.d ]] ; then
 537         fdir='/etc/zsh/functions.d'
 538         fpath=( ${fdir} ${fdir}/**/*(/N) ${fpath} )
 539         for func in ${fdir}/**/[^_]*[^~](N.) ; do
 540             zrcautoload ${func:t}
 541         done
 542         unset fdir
 543     fi
 544 fi
 545
 546 # automatically remove duplicates from these arrays
 547 typeset -U path cdpath fpath manpath
 548 # }}}
 549
 550 # {{{ keybindings
 551 if [[ "$TERM" != emacs ]] ; then
 552     [[ -z "$terminfo[kdch1]" ]] || bindkey -M emacs "$terminfo[kdch1]" delete-char
 553     [[ -z "$terminfo[khome]" ]] || bindkey -M emacs "$terminfo[khome]" beginning-of-line
 554     [[ -z "$terminfo[kend]"  ]] || bindkey -M emacs "$terminfo[kend]"  end-of-line
 555     [[ -z "$terminfo[kdch1]" ]] || bindkey -M vicmd "$terminfo[kdch1]" vi-delete-char
 556     [[ -z "$terminfo[khome]" ]] || bindkey -M vicmd "$terminfo[khome]" vi-beginning-of-line
 557     [[ -z "$terminfo[kend]"  ]] || bindkey -M vicmd "$terminfo[kend]"  vi-end-of-line
 558     [[ -z "$terminfo[cuu1]"  ]] || bindkey -M viins "$terminfo[cuu1]"  vi-up-line-or-history
 559     [[ -z "$terminfo[cuf1]"  ]] || bindkey -M viins "$terminfo[cuf1]"  vi-forward-char
 560     [[ -z "$terminfo[kcuu1]" ]] || bindkey -M viins "$terminfo[kcuu1]" vi-up-line-or-history
 561     [[ -z "$terminfo[kcud1]" ]] || bindkey -M viins "$terminfo[kcud1]" vi-down-line-or-history
 562     [[ -z "$terminfo[kcuf1]" ]] || bindkey -M viins "$terminfo[kcuf1]" vi-forward-char
 563     [[ -z "$terminfo[kcub1]" ]] || bindkey -M viins "$terminfo[kcub1]" vi-backward-char
 564     # ncurses stuff:
 565     [[ "$terminfo[kcuu1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcuu1]/O/[}" vi-up-line-or-history
 566     [[ "$terminfo[kcud1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcud1]/O/[}" vi-down-line-or-history
 567     [[ "$terminfo[kcuf1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcuf1]/O/[}" vi-forward-char
 568     [[ "$terminfo[kcub1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcub1]/O/[}" vi-backward-char
 569     [[ "$terminfo[khome]" == $'\eO'* ]] && bindkey -M viins "${terminfo[khome]/O/[}" beginning-of-line
 570     [[ "$terminfo[kend]"  == $'\eO'* ]] && bindkey -M viins "${terminfo[kend]/O/[}"  end-of-line
 571     [[ "$terminfo[khome]" == $'\eO'* ]] && bindkey -M emacs "${terminfo[khome]/O/[}" beginning-of-line
 572     [[ "$terminfo[kend]"  == $'\eO'* ]] && bindkey -M emacs "${terminfo[kend]/O/[}"  end-of-line
 573 fi
 574
 575 ## keybindings (run 'bindkeys' for details, more details via man zshzle)
 576 # use emacs style per default:
 577 bindkey -e
 578 # use vi style:
 579 # bindkey -v
 580
 581 #if [[ "$TERM" == screen ]] ; then
 582 bindkey '\e[1~' beginning-of-line       # home
 583 bindkey '\e[4~' end-of-line             # end
 584 bindkey '\e[A'  up-line-or-search       # cursor up
 585 bindkey '\e[B'  down-line-or-search     # <ESC>-
 586
 587 bindkey '^xp'   history-beginning-search-backward
 588 bindkey '^xP'   history-beginning-search-forward
 589 # bindkey -s '^L' "|less\n"             # ctrl-L pipes to less
 590 # bindkey -s '^B' " &\n"                # ctrl-B runs it in the background
 591 # if terminal type is set to 'rxvt':
 592 bindkey '\e[7~' beginning-of-line       # home
 593 bindkey '\e[8~' end-of-line             # end
 594 #fi
 595
 596 # insert unicode character
 597 # usage example: 'ctrl-x i' 00A7 'ctrl-x i' will give you an §
 598 # See for example http://unicode.org/charts/ for unicode characters code
 599 zrcautoload insert-unicode-char
 600 zle -N insert-unicode-char
 601 #k# Insert Unicode character
 602 bindkey '^Xi' insert-unicode-char
 603
 604 # just type 'cd ...' to get 'cd ../..'
 605 #  rationalise-dot() {
 606 #  if [[ $LBUFFER == *.. ]] ; then
 607 #    LBUFFER+=/..
 608 #  else
 609 #    LBUFFER+=.
 610 #  fi
 611 #  }
 612 #  zle -N rationalise-dot
 613 #  bindkey . rationalise-dot
 614
 615 #  bindkey '\eq' push-line-or-edit
 616
 617 ## toggle the ,. abbreviation feature on/off
 618 # NOABBREVIATION: default abbreviation-state
 619 #                 0 - enabled (default)
 620 #                 1 - disabled
 621 NOABBREVIATION=${NOABBREVIATION:-0}
 622
 623 grml_toggle_abbrev() {
 624     if (( ${NOABBREVIATION} > 0 )) ; then
 625         NOABBREVIATION=0
 626     else
 627         NOABBREVIATION=1
 628     fi
 629 }
 630
 631 zle -N grml_toggle_abbrev
 632 bindkey '^xA' grml_toggle_abbrev
 633
 634 # add a command line to the shells history without executing it
 635 commit-to-history() {
 636     print -s ${(z)BUFFER}
 637     zle send-break
 638 }
 639 zle -N commit-to-history
 640 bindkey "^x^h" commit-to-history
 641
 642 # }}}
 643
 644 # a generic accept-line wrapper {{{
 645
 646 # This widget can prevent unwanted autocorrections from command-name
 647 # to _command-name, rehash automatically on enter and call any number
 648 # of builtin and user-defined widgets in different contexts.
 649 #
 650 # For a broader description, see:
 651 # <http://bewatermyfriend.org/posts/2007/12-26.11-50-38-tooltime.html>
 652 #
 653 # The code is imported from the file 'zsh/functions/accept-line' from
 654 # <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>, which
 655 # distributed under the same terms as zsh itself.
 656
 657 # A newly added command will may not be found or will cause false
 658 # correction attempts, if you got auto-correction set. By setting the
 659 # following style, we force accept-line() to rehash, if it cannot
 660 # find the first word on the command line in the $command[] hash.
 661 zstyle ':acceptline:*' rehash true
 662
 663 function Accept-Line() {
 664     setopt localoptions noksharrays
 665     local -a subs
 666     local -xi aldone
 667     local sub
 668
 669     zstyle -a ":acceptline:${alcontext}" actions subs
 670
 671     (( ${#subs} < 1 )) && return 0
 672
 673     (( aldone = 0 ))
 674     for sub in ${subs} ; do
 675         [[ ${sub} == 'accept-line' ]] && sub='.accept-line'
 676         zle ${sub}
 677
 678         (( aldone > 0 )) && break
 679     done
 680 }
 681
 682 function Accept-Line-getdefault() {
 683     local default_action
 684
 685     zstyle -s ":acceptline:${alcontext}" default_action default_action
 686     case ${default_action} in
 687         ((accept-line|))
 688             printf ".accept-line"
 689             ;;
 690         (*)
 691             printf ${default_action}
 692             ;;
 693     esac
 694 }
 695
 696 function accept-line() {
 697     setopt localoptions noksharrays
 698     local -a cmdline
 699     local -x alcontext
 700     local buf com fname format msg default_action
 701
 702     alcontext='default'
 703     buf="${BUFFER}"
 704     cmdline=(${(z)BUFFER})
 705     com="${cmdline[1]}"
 706     fname="_${com}"
 707
 708     zstyle -t ":acceptline:${alcontext}" rehash \
 709         && [[ -z ${commands[$com]} ]]           \
 710         && rehash
 711
 712     if    [[ -n ${reswords[(r)$com]} ]] \
 713        || [[ -n ${aliases[$com]}     ]] \
 714        || [[ -n ${functions[$com]}   ]] \
 715        || [[ -n ${builtins[$com]}    ]] \
 716        || [[ -n ${commands[$com]}    ]] ; then
 717
 718         # there is something sensible to execute, just do it.
 719         alcontext='normal'
 720         zle Accept-Line
 721
 722         default_action=$(Accept-Line-getdefault)
 723         zstyle -T ":acceptline:${alcontext}" call_default \
 724             && zle ${default_action}
 725         return
 726     fi
 727
 728     if    [[ -o correct              ]] \
 729        || [[ -o correctall           ]] \
 730        && [[ -n ${functions[$fname]} ]] ; then
 731
 732         # nothing there to execute but there is a function called
 733         # _command_name; a completion widget. Makes no sense to
 734         # call it on the commandline, but the correct{,all} options
 735         # will ask for it nevertheless, so warn the user.
 736         if [[ ${LASTWIDGET} == 'accept-line' ]] ; then
 737             # Okay, we warned the user before, he called us again,
 738             # so have it his way.
 739             alcontext='force'
 740             zle Accept-Line
 741
 742             default_action=$(Accept-Line-getdefault)
 743             zstyle -T ":acceptline:${alcontext}" call_default \
 744                 && zle ${default_action}
 745             return
 746         fi
 747
 748         # prepare warning message for the user, configurable via zstyle.
 749         zstyle -s ":acceptline:${alcontext}" compwarnfmt msg
 750
 751         if [[ -z ${msg} ]] ; then
 752             msg="%c will not execute and completion %f exists."
 753         fi
 754
 755         zformat -f msg "${msg}" "c:${com}" "f:${fname}"
 756
 757         zle -M -- "${msg}"
 758         return
 759     elif [[ -n ${buf//[$' \t\n']##/} ]] ; then
 760         # If we are here, the commandline contains something that is not
 761         # executable, which is neither subject to _command_name correction
 762         # and is not empty. might be a variable assignment
 763         alcontext='misc'
 764         zle Accept-Line
 765
 766         default_action=$(Accept-Line-getdefault)
 767         zstyle -T ":acceptline:${alcontext}" call_default \
 768             && zle ${default_action}
 769         return
 770     fi
 771
 772     # If we got this far, the commandline only contains whitespace, or is empty.
 773     alcontext='empty'
 774     zle Accept-Line
 775
 776     default_action=$(Accept-Line-getdefault)
 777     zstyle -T ":acceptline:${alcontext}" call_default \
 778         && zle ${default_action}
 779 }
 780
 781 zle -N accept-line
 782 zle -N Accept-Line
 783
 784 # }}}
 785
 786 # power completion - abbreviation expansion {{{
 787 # power completion / abbreviation expansion / buffer expansion
 788 # see http://zshwiki.org/home/examples/zleiab for details
 789 # less risky than the global aliases but powerful as well
 790 # just type the abbreviation key and afterwards ',.' to expand it
 791 declare -A abk
 792 setopt extendedglob
 793 setopt interactivecomments
 794 abk=(
 795 #   key   # value                  (#d additional doc string)
 796 #A# start
 797     '...'  '../..'
 798     '....' '../../..'
 799     'BG'   '& exit'
 800     'C'    '| wc -l'
 801     'G'    '|& grep --color=auto '
 802     'H'    '| head'
 803     'Hl'   ' --help |& less -r'    #d (Display help in pager)
 804     'L'    '| less'
 805     'LL'   '|& less -r'
 806     'M'    '| most'
 807     'N'    '&>/dev/null'           #d (No Output)
 808     'R'    '| tr A-z N-za-m'       #d (ROT13)
 809     'SL'   '| sort | less'
 810     'S'    '| sort -u'
 811     'T'    '| tail'
 812     'V'    '|& vim -'
 813 #A# end
 814     'co'   './configure && make && sudo make install'
 815 )
 816
 817 globalias() {
 818     local MATCH
 819
 820     if (( NOABBREVIATION > 0 )) ; then
 821         LBUFFER="${LBUFFER},."
 822         return 0
 823     fi
 824
 825     matched_chars='[.-|_a-zA-Z0-9]#'
 826     LBUFFER=${LBUFFER%%(#m)[.-|_a-zA-Z0-9]#}
 827     LBUFFER+=${abk[$MATCH]:-$MATCH}
 828 }
 829
 830 zle -N globalias
 831 bindkey ",." globalias
 832 # }}}
 833
 834 # {{{ autoloading
 835 zrcautoload zmv    # who needs mmv or rename?
 836 zrcautoload history-search-end
 837
 838 # we don't want to quote/espace URLs on our own...
 839 # if autoload -U url-quote-magic ; then
 840 #    zle -N self-insert url-quote-magic
 841 #    zstyle ':url-quote-magic:*' url-metas '*?[]^()~#{}='
 842 # else
 843 #    print 'Notice: no url-quote-magic available :('
 844 # fi
 845 alias url-quote='autoload -U url-quote-magic ; zle -N self-insert url-quote-magic'
 846
 847 #m# k ESC-h Call \kbd{run-help} for the 1st word on the command line
 848 alias run-help >&/dev/null && unalias run-help
 849 zrcautoload run-help # use via 'esc-h'
 850
 851 # completion system
 852 if zrcautoload compinit && compinit 2>/dev/null ; then
 853     compinit 2>/dev/null || print 'Notice: no compinit available :('
 854 else
 855     print 'Notice: no compinit available :('
 856     function zstyle { }
 857     function compdef { }
 858 fi
 859
 860 is4 && zrcautoload zed # use ZLE editor to edit a file or function
 861
 862 is4 && \
 863 for mod in complist deltochar mathfunc ; do
 864     zmodload -i zsh/${mod} 2>/dev/null || print "Notice: no ${mod} available :("
 865 done
 866
 867 # autoload zsh modules when they are referenced
 868 if is4 ; then
 869     tmpargs=(
 870         a   stat
 871         a   zpty
 872         ap  mapfile
 873     )
 874
 875     while (( ${#tmpargs} > 0 )) ; do
 876         zmodload -${tmpargs[1]} zsh/${tmpargs[2]} ${tmpargs[2]}
 877         shift 2 tmpargs
 878     done
 879     unset tmpargs
 880 fi
 881
 882 if is4 && zrcautoload insert-files && zle -N insert-files ; then
 883     #k# Insert files
 884     bindkey "^Xf" insert-files # C-x-f
 885 fi
 886
 887 bindkey ' '   magic-space    # also do history expansion on space
 888 #k# Trigger menu-complete
 889 bindkey '\ei' menu-complete  # menu completion via esc-i
 890
 891 # press esc-e for editing command line in $EDITOR or $VISUAL
 892 if is4 && zrcautoload edit-command-line && zle -N edit-command-line ; then
 893     #k# Edit the current line in \kbd{\$EDITOR}
 894     bindkey '\ee' edit-command-line
 895 fi
 896
 897 if is4 && [[ -n ${(k)modules[zsh/complist]} ]] ; then
 898     #k# menu selection: pick item but stay in the menu
 899     bindkey -M menuselect '\e^M' accept-and-menu-complete
 900
 901     # accept a completion and try to complete again by using menu
 902     # completion; very useful with completing directories
 903     # by using 'undo' one's got a simple file browser
 904     bindkey -M menuselect '^o' accept-and-infer-next-history
 905 fi
 906
 907 # press "ctrl-e d" to insert the actual date in the form yyyy-mm-dd
 908 _bkdate() { BUFFER="$BUFFER$(date '+%F')"; CURSOR=$#BUFFER; }
 909 zle -N _bkdate
 910
 911 #k# Insert a timestamp on the command line (yyyy-mm-dd)
 912 bindkey '^Ed' _bkdate
 913
 914 # press esc-m for inserting last typed word again (thanks to caphuso!)
 915 insert-last-typed-word() { zle insert-last-word -- 0 -1 };
 916 zle -N insert-last-typed-word;
 917
 918 #k# Insert last typed word
 919 bindkey "\em" insert-last-typed-word
 920
 921 #k# Shortcut for \kbd{fg<enter>}
 922 bindkey -s '^z' "fg\n"
 923
 924 # run command line as user root via sudo:
 925 sudo-command-line() {
 926     [[ -z $BUFFER ]] && zle up-history
 927     [[ $BUFFER != sudo\ * ]] && BUFFER="sudo $BUFFER"
 928 }
 929 zle -N sudo-command-line
 930
 931 #k# Put the current command line into a \kbd{sudo} call
 932 bindkey "^Os" sudo-command-line
 933
 934 ### jump behind the first word on the cmdline.
 935 ### useful to add options.
 936 function jump_after_first_word() {
 937     local words
 938     words=(${(z)BUFFER})
 939
 940     if (( ${#words} <= 1 )) ; then
 941         CURSOR=${#BUFFER}
 942     else
 943         CURSOR=${#${words[1]}}
 944     fi
 945 }
 946 zle -N jump_after_first_word
 947
 948 bindkey '^x1' jump_after_first_word
 949
 950 # }}}
 951
 952 # {{{ set some important options
 953 # Please update these tags, if you change the umask settings below.
 954 #o# r_umask     002
 955 #o# r_umaskstr  rwxrwxr-x
 956 #o# umask       022
 957 #o# umaskstr    rwxr-xr-x
 958 (( EUID != 0 )) && umask 002 || umask 022
 959
 960 # history:
 961 setopt append_history       # append history list to the history file (important for multiple parallel zsh sessions!)
 962 is4 && setopt SHARE_HISTORY # import new commands from the history file also in other zsh-session
 963 setopt extended_history     # save each command's beginning timestamp and the duration to the history file
 964 is4 && setopt histignorealldups # If  a  new  command  line being added to the history
 965                             # list duplicates an older one, the older command is removed from the list
 966 setopt histignorespace      # remove command lines from the history list when
 967                             # the first character on the line is a space
 968 setopt auto_cd              # if a command is issued that can't be executed as a normal command,
 969                             # and the command is the name of a directory, perform the cd command to that directory
 970 setopt extended_glob        # in order to use #, ~ and ^ for filename generation
 971                             # grep word *~(*.gz|*.bz|*.bz2|*.zip|*.Z) ->
 972                             # -> searches for word not in compressed files
 973                             # don't forget to quote '^', '~' and '#'!
 974 setopt longlistjobs         # display PID when suspending processes as well
 975 setopt notify               # report the status of backgrounds jobs immediately
 976 setopt hash_list_all        # Whenever a command completion is attempted, make sure \
 977                             # the entire command path is hashed first.
 978 setopt completeinword       # not just at the end
 979 setopt nohup                # and don't kill them, either
 980 setopt auto_pushd           # make cd push the old directory onto the directory stack.
 981 setopt nonomatch            # try to avoid the 'zsh: no matches found...'
 982 setopt nobeep               # avoid "beep"ing
 983 setopt pushd_ignore_dups    # don't push the same dir twice.
 984 setopt noglobdots           # * shouldn't match dotfiles. ever.
 985
 986 MAILCHECK=30       # mailchecks
 987 REPORTTIME=5       # report about cpu-/system-/user-time of command if running longer than 5 seconds
 988 watch=(notme root) # watch for everyone but me and root
 989
 990 # only slash should be considered as a word separator:
 991 slash-backward-kill-word() {
 992     local WORDCHARS="${WORDCHARS:s@/@}"
 993     # zle backward-word
 994     zle backward-kill-word
 995 }
 996 zle -N slash-backward-kill-word
 997
 998 #k# Kill everything in a word up to its last \kbd{/}
 999 bindkey '\ev' slash-backward-kill-word
1000
1001 # }}}
1002
1003 # {{{ history
1004
1005 ZSHDIR=$HOME/.zsh
1006
1007 #v#
1008 HISTFILE=$HOME/.zsh_history
1009 isgrmlcd && HISTSIZE=500  || HISTSIZE=5000
1010 isgrmlcd && SAVEHIST=1000 || SAVEHIST=10000 # useful for setopt append_history
1011
1012 # }}}
1013
1014 # dirstack handling {{{
1015
1016 DIRSTACKSIZE=${DIRSTACKSIZE:-20}
1017 DIRSTACKFILE=${DIRSTACKFILE:-${HOME}/.zdirs}
1018
1019 if [[ -f ${DIRSTACKFILE} ]] && [[ ${#dirstack[*]} -eq 0 ]] ; then
1020     dirstack=( ${(f)"$(< $DIRSTACKFILE)"} )
1021     # "cd -" won't work after login by just setting $OLDPWD, so
1022     [[ -d $dirstack[0] ]] && cd $dirstack[0] && cd $OLDPWD
1023 fi
1024
1025 chpwd() {
1026     if is42 ; then
1027         builtin print -l ${(u)dirstack} >! ${DIRSTACKFILE}
1028     else
1029         uprint dirstack >! ${DIRSTACKFILE}
1030     fi
1031 }
1032
1033 # }}}
1034
1035 # {{{ display battery status on right side of prompt via running 'BATTERY=1 zsh'
1036 if [[ $BATTERY -gt 0 ]] ; then
1037     if ! check_com -c acpi ; then
1038         BATTERY=0
1039     fi
1040 fi
1041
1042 battery() {
1043 if [[ $BATTERY -gt 0 ]] ; then
1044     PERCENT="${${"$(acpi 2>/dev/null)"}/(#b)[[:space:]]#Battery <->: [^0-9]##, (<->)%*/${match[1]}}"
1045     if [[ -z "$PERCENT" ]] ; then
1046         PERCENT='acpi not present'
1047     else
1048         if [[ "$PERCENT" -lt 20 ]] ; then
1049             PERCENT="warning: ${PERCENT}%%"
1050         else
1051             PERCENT="${PERCENT}%%"
1052         fi
1053     fi
1054 fi
1055 }
1056 # }}}
1057
1058 # set colors for use in prompts {{{
1059 if zrcautoload colors && colors 2>/dev/null ; then
1060     BLUE="%{${fg[blue]}%}"
1061     RED="%{${fg_bold[red]}%}"
1062     GREEN="%{${fg[green]}%}"
1063     CYAN="%{${fg[cyan]}%}"
1064     MAGENTA="%{${fg[magenta]}%}"
1065     YELLOW="%{${fg[yellow]}%}"
1066     WHITE="%{${fg[white]}%}"
1067     NO_COLOUR="%{${reset_color}%}"
1068 else
1069     BLUE=$'%{\e[1;34m%}'
1070     RED=$'%{\e[1;31m%}'
1071     GREEN=$'%{\e[1;32m%}'
1072     CYAN=$'%{\e[1;36m%}'
1073     WHITE=$'%{\e[1;37m%}'
1074     MAGENTA=$'%{\e[1;35m%}'
1075     YELLOW=$'%{\e[1;33m%}'
1076     NO_COLOUR=$'%{\e[0m%}'
1077 fi
1078
1079 # }}}
1080
1081 # gather version control information for inclusion in a prompt {{{
1082
1083 if ! is41 ; then
1084     # Be quiet about version problems in grml's zshrc as the user cannot disable
1085     # loading vcs_info() as it is *in* the zshrc - as you can see. :-)
1086     # Just unset most probable variables and disable vcs_info altogether.
1087     local -i i
1088     for i in {0..9} ; do
1089         unset VCS_INFO_message_${i}_
1090     done
1091     zstyle ':vcs_info:*' enable false
1092 fi
1093
1094 # The following code is imported from the file 'zsh/functions/vcs_info'
1095 # from <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>,
1096 # which distributed under the same terms as zsh itself.
1097
1098 # we will be using two variables, so let the code know now.
1099 zstyle ':vcs_info:*' max-exports 2
1100
1101 # vcs_info() documentation:
1102 #{{{
1103 # REQUIREMENTS:
1104 #{{{
1105 #     This functionality requires zsh version >= 4.1.*.
1106 #}}}
1107 #
1108 # LOADING:
1109 #{{{
1110 # To load vcs_info(), copy this file to your $fpath[] and do:
1111 #   % autoload -Uz vcs_info && vcs_info
1112 #
1113 # To work, vcs_info() needs 'setopt prompt_subst' in your setup.
1114 #}}}
1115 #
1116 # QUICKSTART:
1117 #{{{
1118 # To get vcs_info() working quickly (including colors), you can do the
1119 # following (assuming, you loaded vcs_info() properly - see above):
1120 #
1121 # % RED=$'%{\e[31m%}'
1122 # % GR=$'%{\e[32m%}'
1123 # % MA=$'%{\e[35m%}'
1124 # % YE=$'%{\e[33m%}'
1125 # % NC=$'%{\e[0m%}'
1126 #
1127 # % zstyle ':vcs_info:*' actionformats \
1128 #       "${MA}(${NC}%s${MA})${YE}-${MA}[${GR}%b${YE}|${RED}%a${MA}]${NC} "
1129 #
1130 # % zstyle ':vcs_info:*' formats       \
1131 #       "${MA}(${NC}%s${MA})${Y}-${MA}[${GR}%b${MA}]${NC}%} "
1132 #
1133 # % zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "%b${RED}:${YE}%r"
1134 #
1135 # % precmd () { vcs_info }
1136 # % PS1='${MA}[${GR}%n${MA}] ${MA}(${RED}%!${MA}) ${YE}%3~ ${VCS_INFO_message_0_}${NC}%# '
1137 #
1138 # Obviously, the las two lines are there for demonstration: You need to
1139 # call vcs_info() from your precmd() function (see 'SPECIAL FUNCTIONS' in
1140 # 'man zshmisc'). Once that is done you need a *single* quoted
1141 # '${VCS_INFO_message_0_}' in your prompt.
1142 #
1143 # Now call the 'vcs_info_printsys' utility from the command line:
1144 #
1145 # % vcs_info_printsys
1146 # # list of supported version control backends:
1147 # # disabled systems are prefixed by a hash sign (#)
1148 # git
1149 # hg
1150 # bzr
1151 # darcs
1152 # svk
1153 # mtn
1154 # svn
1155 # cvs
1156 # cdv
1157 # tla
1158 # # flavours (cannot be used in the disable style; they
1159 # # are disabled with their master [git-svn -> git]):
1160 # git-p4
1161 # git-svn
1162 #
1163 # Ten version control backends as you can see. You may not want all
1164 # of these. Because there is no point in running the code to detect
1165 # systems you do not use. ever. So, there is a way to disable some
1166 # backends altogether:
1167 #
1168 # % zstyle ':vcs_info:*' disable bzr cdv darcs mtn svk tla
1169 #
1170 # If you rerun 'vcs_info_printsys' now, you will see the backends listed
1171 # in the 'disable' style marked as diabled by a hash sign. That means the
1172 # detection of these systems is skipped *completely*. No wasted time there.
1173 #
1174 # For more control, read the reference below.
1175 #}}}
1176 #
1177 # CONFIGURATION:
1178 #{{{
1179 # The vcs_info() feature can be configured via zstyle.
1180 #
1181 # First, the context in which we are working:
1182 #       :vcs_info:<vcs-string>:<user-context>
1183 #
1184 # ...where <vcs-string> is one of:
1185 #   - git, git-svn, git-p4, hg, darcs, bzr, cdv, mtn, svn, cvs, svk or tla.
1186 #
1187 # ...and <user-context> is a freely configurable string, assignable by the
1188 # user as the first argument to vcs_info() (see its description below).
1189 #
1190 # There is are three special values for <vcs-string>: The first is named
1191 # 'init', that is in effect as long as there was no decision what vcs
1192 # backend to use. The second is 'preinit; it is used *before* vcs_info()
1193 # is run, when initializing the data exporting variables. The third
1194 # special value is 'formats' and is used by the 'vcs_info_lastmsg' for
1195 # looking up its styles.
1196 #
1197 # There are two pre-defined values for <user-context>:
1198 #   default  - the one used if none is specified
1199 #   command  - used by vcs_info_lastmsg to lookup its styles.
1200 #
1201 # You may *not* use 'print_systems_' as a user-context string, because it
1202 # is used internally.
1203 #
1204 # You can of course use ':vcs_info:*' to match all VCSs in all
1205 # user-contexts at once.
1206 #
1207 # Another special context is 'formats', which is used by the
1208 # vcs_info_lastmsg() utility function (see below).
1209 #
1210 #
1211 # This is a description of all styles, that are looked up:
1212 #   formats             - A list of formats, used when actionformats is not
1213 #                         used (which is most of the time).
1214 #   actionformats       - A list of formats, used if a there is a special
1215 #                         action going on in your current repository;
1216 #                         (like an interactive rebase or a merge conflict)
1217 #   branchformat        - Some backends replace %b in the formats and
1218 #                         actionformats styles above, not only by a branch
1219 #                         name but also by a revision number. This style
1220 #                         let's you modify how that string should look like.
1221 #   nvcsformats         - These "formats" are exported, when we didn't detect
1222 #                         a version control system for the current directory.
1223 #                         This is useful, if you want vcs_info() to completely
1224 #                         take over the generation of your prompt.
1225 #                         You would do something like
1226 #                           PS1='${VCS_INFO_message_0_}'
1227 #                         to accomplish that.
1228 #   max-exports         - Defines the maximum number if VCS_INFO_message_*_
1229 #                         variables vcs_info() will export.
1230 #   enable              - Checked in the 'init' context. If set to false,
1231 #                         vcs_info() will do nothing.
1232 #   disable             - Provide a list of systems, you don't want
1233 #                         the vcs_info() to check for repositories
1234 #                         (checked in the 'init' context, too).
1235 #   disable-patterns    - A list of patterns that are checked against $PWD.
1236 #                         If the pattern matches, vcs_info will be disabled.
1237 #                         Say, ~/.zsh is a directory under version control,
1238 #                         in which you do not want vcs_info to be active, do:
1239 #                         zstyle ':vcs_info:*' disable-patterns "$HOME/.zsh+(|/*)"
1240 #   use-simple          - If there are two different ways of gathering
1241 #                         information, you can select the simpler one
1242 #                         by setting this style to true; the default
1243 #                         is to use the not-that-simple code, which is
1244 #                         potentially a lot slower but might be more
1245 #                         accurate in all possible cases.
1246 #   use-prompt-escapes  - determines if we assume that the assembled
1247 #                         string from vcs_info() includes prompt escapes.
1248 #                         (Used by vcs_info_lastmsg().
1249 #
1250 # The use-simple style is only available for the bzr backend.
1251 #
1252 # The default values for these in all contexts are:
1253 #   formats             " (%s)-[%b|%a]-"
1254 #   actionformats       " (%s)-[%b]-"
1255 #   branchformat        "%b:%r" (for bzr, svn and svk)
1256 #   nvcsformats         ""
1257 #   max-exports         2
1258 #   enable              true
1259 #   disable             (empty list)
1260 #   disable-patterns    (empty list)
1261 #   use-simple          false
1262 #   use-prompt-escapes  true
1263 #
1264 #
1265 # In normal formats and actionformats, the following replacements
1266 # are done:
1267 #   %s  - The vcs in use (git, hg, svn etc.)
1268 #   %b  - Information about the current branch.
1269 #   %a  - An identifier, that describes the action.
1270 #         Only makes sense in actionformats.
1271 #   %R  - base directory of the repository.
1272 #   %r  - repository name
1273 #         If %R is '/foo/bar/repoXY', %r is 'repoXY'.
1274 #   %S  - subdirectory within a repository. if $PWD is
1275 #         '/foo/bar/reposXY/beer/tasty', %S is 'beer/tasty'.
1276 #
1277 #
1278 # In branchformat these replacements are done:
1279 #   %b  - the branch name
1280 #   %r  - the current revision number
1281 #
1282 # Not all vcs backends have to support all replacements.
1283 # nvcsformat does not perform *any* replacements. It is just a string.
1284 #}}}
1285 #
1286 # ODDITIES:
1287 #{{{
1288 # If you want to use the %b (bold off) prompt expansion in 'formats', which
1289 # expands %b itself, use %%b. That will cause the vcs_info() expansion to
1290 # replace %%b with %b. So zsh's prompt expansion mechanism can handle it.
1291 # Similarly, to hand down %b from branchformat, use %%%%b. Sorry for this
1292 # inconvenience, but it cannot be easily avoided. Luckily we do not clash
1293 # with a lot of prompt expansions and this only needs to be done for those.
1294 # See 'man zshmisc' for details about EXPANSION OF PROMPT SEQUENCES.
1295 #}}}
1296 #
1297 # FUNCTION DESCRIPTIONS (public API):
1298 #{{{
1299 #   vcs_info()
1300 #       The main function, that runs all backends and assembles
1301 #       all data into ${VCS_INFO_message_*_}. This is the function
1302 #       you want to call from precmd() if you want to include
1303 #       up-to-date information in your prompt (see VARIABLE
1304 #       DESCRIPTION below).
1305 #
1306 #   vcs_info_printsys()
1307 #       Prints a list of all supported version control systems.
1308 #       Useful to find out possible contexts (and which of them are enabled)
1309 #       or values for the 'disable' style.
1310 #
1311 #   vcs_info_lastmsg()
1312 #       Outputs the last ${VCS_INFO_message_*_} value. Takes into account
1313 #       the value of the use-prompt-escapes style in ':vcs_info:formats'.
1314 #       It also only prints max-exports values.
1315 #
1316 # All functions named VCS_INFO_* are for internal use only.
1317 #}}}
1318 #
1319 # VARIABLE DESCRIPTION:
1320 #{{{
1321 #   ${VCS_INFO_message_N_}    (Note the trailing underscore)
1322 #       Where 'N' is an integer, eg: VCS_INFO_message_0_
1323 #       These variables are the storage for the informational message the
1324 #       last vcs_info() call has assembled. These are strongly connected
1325 #       to the formats, actionformats and nvcsformats styles described
1326 #       above. Those styles are lists. the first member of that list gets
1327 #       expanded into ${VCS_INFO_message_0_}, the second into
1328 #       ${VCS_INFO_message_1_} and the Nth into ${VCS_INFO_message_N-1_}.
1329 #       These parameters are exported into the environment.
1330 #       (See the max-exports style above.)
1331 #}}}
1332 #
1333 # EXAMPLES:
1334 #{{{
1335 #   Don't use vcs_info at all (even though it's in your prompt):
1336 #   % zstyle ':vcs_info:*' enable false
1337 #
1338 #   Disable the backends for bzr and svk:
1339 #   % zstyle ':vcs_info:*' disable bzr svk
1340 #
1341 #   Provide a special formats for git:
1342 #   % zstyle ':vcs_info:git:*' formats       ' GIT, BABY! [%b]'
1343 #   % zstyle ':vcs_info:git:*' actionformats ' GIT ACTION! [%b|%a]'
1344 #
1345 #   Use the quicker bzr backend (if you do, please report if it does
1346 #   the-right-thing[tm] - thanks):
1347 #   % zstyle ':vcs_info:bzr:*' use-simple true
1348 #
1349 #   Display the revision number in yellow for bzr and svn:
1350 #   % zstyle ':vcs_info:(svn|bzr):*' branchformat '%b%{'${fg[yellow]}'%}:%r'
1351 #
1352 # If you want colors, make sure you enclose the color codes in %{...%},
1353 # if you want to use the string provided by vcs_info() in prompts.
1354 #
1355 # Here is how to print the vcs infomation as a command:
1356 #   % alias vcsi='vcs_info command; vcs_info_lastmsg'
1357 #
1358 #   This way, you can even define different formats for output via
1359 #   vcs_info_lastmsg() in the ':vcs_info:command:*' namespace.
1360 #}}}
1361 #}}}
1362 # utilities
1363 VCS_INFO_adjust () { #{{{
1364     [[ -n ${vcs_comm[overwrite_name]} ]] && vcs=${vcs_comm[overwrite_name]}
1365     return 0
1366 }
1367 # }}}
1368 VCS_INFO_check_com () { #{{{
1369     (( ${+commands[$1]} )) && [[ -x ${commands[$1]} ]] && return 0
1370     return 1
1371 }
1372 # }}}
1373 VCS_INFO_formats () { # {{{
1374     setopt localoptions noksharrays
1375     local action=$1 branch=$2 base=$3
1376     local msg
1377     local -i i
1378
1379     if [[ -n ${action} ]] ; then
1380         zstyle -a ":vcs_info:${vcs}:${usercontext}" actionformats msgs
1381         (( ${#msgs} < 1 )) && msgs[1]=' (%s)-[%b|%a]-'
1382     else
1383         zstyle -a ":vcs_info:${vcs}:${usercontext}" formats msgs
1384         (( ${#msgs} < 1 )) && msgs[1]=' (%s)-[%b]-'
1385     fi
1386
1387     (( ${#msgs} > maxexports )) && msgs[$(( maxexports + 1 )),-1]=()
1388     for i in {1..${#msgs}} ; do
1389         zformat -f msg ${msgs[$i]}                      \
1390                         a:${action}                     \
1391                         b:${branch}                     \
1392                         r:${base:t}                     \
1393                         s:${vcs}                        \
1394                         R:${base}                       \
1395                         S:"$(VCS_INFO_reposub ${base})"
1396         msgs[$i]=${msg}
1397     done
1398     return 0
1399 }
1400 # }}}
1401 VCS_INFO_maxexports () { #{{{
1402     zstyle -s ":vcs_info:${vcs}:${usercontext}" "max-exports" maxexports || maxexports=2
1403     if [[ ${maxexports} != <-> ]] || (( maxexports < 1 )); then
1404         printf 'vcs_info(): expecting numeric arg >= 1 for max-exports (got %s).\n' ${maxexports}
1405         printf 'Defaulting to 2.\n'
1406         maxexports=2
1407     fi
1408 }
1409 # }}}
1410 VCS_INFO_nvcsformats () { #{{{
1411     setopt localoptions noksharrays
1412     local c v
1413
1414     if [[ $1 == 'preinit' ]] ; then
1415         c=default
1416         v=preinit
1417     fi
1418     zstyle -a ":vcs_info:${v:-$vcs}:${c:-$usercontext}" nvcsformats msgs
1419     (( ${#msgs} > maxexports )) && msgs[${maxexports},-1]=()
1420 }
1421 # }}}
1422 VCS_INFO_realpath () { #{{{
1423     # a portable 'readlink -f'
1424     # forcing a subshell, to ensure chpwd() is not removed
1425     # from the calling shell (if VCS_INFO_realpath() is called
1426     # manually).
1427     (
1428         (( ${+functions[chpwd]} )) && unfunction chpwd
1429         setopt chaselinks
1430         cd $1 2>/dev/null && pwd
1431     )
1432 }
1433 # }}}
1434 VCS_INFO_reposub () { #{{{
1435     setopt localoptions extendedglob
1436     local base=${1%%/##}
1437
1438     [[ ${PWD} == ${base}/* ]] || {
1439         printf '.'
1440         return 1
1441     }
1442     printf '%s' ${PWD#$base/}
1443     return 0
1444 }
1445 # }}}
1446 VCS_INFO_set () { #{{{
1447     setopt localoptions noksharrays
1448     local -i i j
1449
1450     if [[ $1 == '--clear' ]] ; then
1451         for i in {0..9} ; do
1452             unset VCS_INFO_message_${i}_
1453         done
1454     fi
1455     if [[ $1 == '--nvcs' ]] ; then
1456         [[ $2 == 'preinit' ]] && (( maxexports == 0 )) && (( maxexports = 1 ))
1457         for i in {0..$((maxexports - 1))} ; do
1458             typeset -gx VCS_INFO_message_${i}_=
1459         done
1460         VCS_INFO_nvcsformats $2
1461     fi
1462
1463     (( ${#msgs} - 1 < 0 )) && return 0
1464     for i in {0..$(( ${#msgs} - 1 ))} ; do
1465         (( j = i + 1 ))
1466         typeset -gx VCS_INFO_message_${i}_=${msgs[$j]}
1467     done
1468     return 0
1469 }
1470 # }}}
1471 # information gathering
1472 VCS_INFO_bzr_get_data () { # {{{
1473     setopt localoptions noksharrays
1474     local bzrbase bzrbr
1475     local -a bzrinfo
1476
1477     if zstyle -t ":vcs_info:${vcs}:${usercontext}" "use-simple" ; then
1478         bzrbase=${vcs_comm[basedir]}
1479         bzrinfo[2]=${bzrbase:t}
1480         if [[ -f ${bzrbase}/.bzr/branch/last-revision ]] ; then
1481             bzrinfo[1]=$(< ${bzrbase}/.bzr/branch/last-revision)
1482             bzrinfo[1]=${${bzrinfo[1]}%% *}
1483         fi
1484     else
1485         bzrbase=${${(M)${(f)"$( bzr info )"}:# ##branch\ root:*}/*: ##/}
1486         bzrinfo=( ${${${(M)${(f)"$( bzr version-info )"}:#(#s)(revno|branch-nick)*}/*: /}/*\//} )
1487         bzrbase="$(VCS_INFO_realpath ${bzrbase})"
1488     fi
1489
1490     zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat bzrbr || bzrbr="%b:%r"
1491     zformat -f bzrbr "${bzrbr}" "b:${bzrinfo[2]}" "r:${bzrinfo[1]}"
1492     VCS_INFO_formats '' "${bzrbr}" "${bzrbase}"
1493     return 0
1494 }
1495 # }}}
1496 VCS_INFO_cdv_get_data () { # {{{
1497     local cdvbase
1498
1499     cdvbase=${vcs_comm[basedir]}
1500     VCS_INFO_formats '' "${cdvbase:t}" "${cdvbase}"
1501     return 0
1502 }
1503 # }}}
1504 VCS_INFO_cvs_get_data () { # {{{
1505     local cvsbranch cvsbase basename
1506
1507     cvsbase="."
1508     while [[ -d "${cvsbase}/../CVS" ]]; do
1509         cvsbase="${cvsbase}/.."
1510     done
1511     cvsbase="$(VCS_INFO_realpath ${cvsbase})"
1512     cvsbranch=$(< ./CVS/Repository)
1513     basename=${cvsbase:t}
1514     cvsbranch=${cvsbranch##${basename}/}
1515     [[ -z ${cvsbranch} ]] && cvsbranch=${basename}
1516     VCS_INFO_formats '' "${cvsbranch}" "${cvsbase}"
1517     return 0
1518 }
1519 # }}}
1520 VCS_INFO_darcs_get_data () { # {{{
1521     local darcsbase
1522
1523     darcsbase=${vcs_comm[basedir]}
1524     VCS_INFO_formats '' "${darcsbase:t}" "${darcsbase}"
1525     return 0
1526 }
1527 # }}}
1528 VCS_INFO_git_getaction () { #{{{
1529     local gitaction='' gitdir=$1
1530     local tmp
1531
1532     for tmp in "${gitdir}/rebase-apply" \
1533                "${gitdir}/rebase"       \
1534                "${gitdir}/../.dotest" ; do
1535         if [[ -d ${tmp} ]] ; then
1536             if   [[ -f "${tmp}/rebasing" ]] ; then
1537                 gitaction="rebase"
1538             elif [[ -f "${tmp}/applying" ]] ; then
1539                 gitaction="am"
1540             else
1541                 gitaction="am/rebase"
1542             fi
1543             printf '%s' ${gitaction}
1544             return 0
1545         fi
1546     done
1547
1548     for tmp in "${gitdir}/rebase-merge/interactive" \
1549                "${gitdir}/.dotest-merge/interactive" ; do
1550         if [[ -f "${tmp}" ]] ; then
1551             printf '%s' "rebase-i"
1552             return 0
1553         fi
1554     done
1555
1556     for tmp in "${gitdir}/rebase-merge" \
1557                "${gitdir}/.dotest-merge" ; do
1558         if [[ -d "${tmp}" ]] ; then
1559             printf '%s' "rebase-m"
1560             return 0
1561         fi
1562     done
1563
1564     if [[ -f "${gitdir}/MERGE_HEAD" ]] ; then
1565         printf '%s' "merge"
1566         return 0
1567     fi
1568
1569     if [[ -f "${gitdir}/BISECT_LOG" ]] ; then
1570         printf '%s' "bisect"
1571         return 0
1572     fi
1573     return 1
1574 }
1575 # }}}
1576 VCS_INFO_git_getbranch () { #{{{
1577     local gitbranch gitdir=$1
1578     local gitsymref='git symbolic-ref HEAD'
1579
1580     if    [[ -d "${gitdir}/rebase-apply" ]] \
1581        || [[ -d "${gitdir}/rebase" ]]       \
1582        || [[ -d "${gitdir}/../.dotest" ]]   \
1583        || [[ -f "${gitdir}/MERGE_HEAD" ]] ; then
1584         gitbranch="$(${(z)gitsymref} 2> /dev/null)"
1585         [[ -z ${gitbranch} ]] && [[ -r ${gitdir}/rebase-apply/head-name ]] \
1586             && gitbranch="$(< ${gitdir}/rebase-apply/head-name)"
1587
1588     elif   [[ -f "${gitdir}/rebase-merge/interactive" ]] \
1589         || [[ -d "${gitdir}/rebase-merge" ]] ; then
1590         gitbranch="$(< ${gitdir}/rebase-merge/head-name)"
1591
1592     elif   [[ -f "${gitdir}/.dotest-merge/interactive" ]] \
1593         || [[ -d "${gitdir}/.dotest-merge" ]] ; then
1594         gitbranch="$(< ${gitdir}/.dotest-merge/head-name)"
1595
1596     else
1597         gitbranch="$(${(z)gitsymref} 2> /dev/null)"
1598
1599         if [[ $? -ne 0 ]] ; then
1600             gitbranch="$(git describe --exact-match HEAD 2>/dev/null)"
1601
1602             if [[ $? -ne 0 ]] ; then
1603                 gitbranch="${${"$(< $gitdir/HEAD)"}[1,7]}..."
1604             fi
1605         fi
1606     fi
1607
1608     printf '%s' "${gitbranch##refs/heads/}"
1609     return 0
1610 }
1611 # }}}
1612 VCS_INFO_git_get_data () { # {{{
1613     setopt localoptions extendedglob
1614     local gitdir gitbase gitbranch gitaction
1615
1616     gitdir=${vcs_comm[gitdir]}
1617     gitbranch="$(VCS_INFO_git_getbranch ${gitdir})"
1618
1619     if [[ -z ${gitdir} ]] || [[ -z ${gitbranch} ]] ; then
1620         return 1
1621     fi
1622
1623     VCS_INFO_adjust
1624     gitaction="$(VCS_INFO_git_getaction ${gitdir})"
1625     gitbase=${PWD%/${$( git rev-parse --show-prefix )%/##}}
1626     VCS_INFO_formats "${gitaction}" "${gitbranch}" "${gitbase}"
1627     return 0
1628 }
1629 # }}}
1630 VCS_INFO_hg_get_data () { # {{{
1631     local hgbranch hgbase file
1632
1633     hgbase=${vcs_comm[basedir]}
1634
1635     file="${hgbase}/.hg/branch"
1636     if [[ -r ${file} ]] ; then
1637         hgbranch=$(< ${file})
1638     else
1639         hgbranch='default'
1640     fi
1641
1642     VCS_INFO_formats '' "${hgbranch}" "${hgbase}"
1643     return 0
1644 }
1645 # }}}
1646 VCS_INFO_mtn_get_data () { # {{{
1647     local mtnbranch mtnbase
1648
1649     mtnbase=${vcs_comm[basedir]}
1650     mtnbranch=${${(M)${(f)"$( mtn status )"}:#(#s)Current branch:*}/*: /}
1651     VCS_INFO_formats '' "${mtnbranch}" "${mtnbase}"
1652     return 0
1653 }
1654 # }}}
1655 VCS_INFO_svk_get_data () { # {{{
1656     local svkbranch svkbase
1657
1658     svkbase=${vcs_comm[basedir]}
1659     zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat svkbranch || svkbranch="%b:%r"
1660     zformat -f svkbranch "${svkbranch}" "b:${vcs_comm[branch]}" "r:${vcs_comm[revision]}"
1661     VCS_INFO_formats '' "${svkbranch}" "${svkbase}"
1662     return 0
1663 }
1664 # }}}
1665 VCS_INFO_svn_get_data () { # {{{
1666     setopt localoptions noksharrays
1667     local svnbase svnbranch
1668     local -a svninfo
1669
1670     svnbase="."
1671     while [[ -d "${svnbase}/../.svn" ]]; do
1672         svnbase="${svnbase}/.."
1673     done
1674     svnbase="$(VCS_INFO_realpath ${svnbase})"
1675     svninfo=( ${${${(M)${(f)"$( svn info )"}:#(#s)(URL|Revision)*}/*: /}/*\//} )
1676
1677     zstyle -s ":vcs_info:${vcs}:${usercontext}" branchformat svnbranch || svnbranch="%b:%r"
1678     zformat -f svnbranch "${svnbranch}" "b:${svninfo[1]}" "r:${svninfo[2]}"
1679     VCS_INFO_formats '' "${svnbranch}" "${svnbase}"
1680     return 0
1681 }
1682 # }}}
1683 VCS_INFO_tla_get_data () { # {{{
1684     local tlabase tlabranch
1685
1686     tlabase="$(VCS_INFO_realpath ${vcs_comm[basedir]})"
1687     # tree-id gives us something like 'foo@example.com/demo--1.0--patch-4', so:
1688     tlabranch=${${"$( tla tree-id )"}/*\//}
1689     VCS_INFO_formats '' "${tlabranch}" "${tlabase}"
1690     return 0
1691 }
1692 # }}}
1693 # detection
1694 VCS_INFO_detect_by_dir() { #{{{
1695     local dirname=$1
1696     local basedir="." realbasedir
1697
1698     realbasedir="$(VCS_INFO_realpath ${basedir})"
1699     while [[ ${realbasedir} != '/' ]]; do
1700         if [[ -n ${vcs_comm[detect_need_file]} ]] ; then
1701             [[ -d ${basedir}/${dirname} ]] && \
1702             [[ -e ${basedir}/${dirname}/${vcs_comm[detect_need_file]} ]] && \
1703                 break
1704         else
1705             [[ -d ${basedir}/${dirname} ]] && break
1706         fi
1707
1708         basedir=${basedir}/..
1709         realbasedir="$(VCS_INFO_realpath ${basedir})"
1710     done
1711
1712     [[ ${realbasedir} == "/" ]] && return 1
1713     vcs_comm[basedir]=${realbasedir}
1714     return 0
1715 }
1716 # }}}
1717 VCS_INFO_bzr_detect() { #{{{
1718     VCS_INFO_check_com bzr || return 1
1719     vcs_comm[detect_need_file]=branch/format
1720     VCS_INFO_detect_by_dir '.bzr'
1721     return $?
1722 }
1723 # }}}
1724 VCS_INFO_cdv_detect() { #{{{
1725     VCS_INFO_check_com cdv || return 1
1726     vcs_comm[detect_need_file]=format
1727     VCS_INFO_detect_by_dir '.cdv'
1728     return $?
1729 }
1730 # }}}
1731 VCS_INFO_cvs_detect() { #{{{
1732     VCS_INFO_check_com svn || return 1
1733     [[ -d "./CVS" ]] && [[ -r "./CVS/Repository" ]] && return 0
1734     return 1
1735 }
1736 # }}}
1737 VCS_INFO_darcs_detect() { #{{{
1738     VCS_INFO_check_com darcs || return 1
1739     vcs_comm[detect_need_file]=format
1740     VCS_INFO_detect_by_dir '_darcs'
1741     return $?
1742 }
1743 # }}}
1744 VCS_INFO_git_detect() { #{{{
1745     if VCS_INFO_check_com git && git rev-parse --is-inside-work-tree &> /dev/null ; then
1746         vcs_comm[gitdir]="$(git rev-parse --git-dir 2> /dev/null)" || return 1
1747         if   [[ -d ${vcs_comm[gitdir]}/svn ]]             ; then vcs_comm[overwrite_name]='git-svn'
1748         elif [[ -d ${vcs_comm[gitdir]}/refs/remotes/p4 ]] ; then vcs_comm[overwrite_name]='git-p4' ; fi
1749         return 0
1750     fi
1751     return 1
1752 }
1753 # }}}
1754 VCS_INFO_hg_detect() { #{{{
1755     VCS_INFO_check_com hg || return 1
1756     vcs_comm[detect_need_file]=store
1757     VCS_INFO_detect_by_dir '.hg'
1758     return $?
1759 }
1760 # }}}
1761 VCS_INFO_mtn_detect() { #{{{
1762     VCS_INFO_check_com mtn || return 1
1763     vcs_comm[detect_need_file]=revision
1764     VCS_INFO_detect_by_dir '_MTN'
1765     return $?
1766 }
1767 # }}}
1768 VCS_INFO_svk_detect() { #{{{
1769     setopt localoptions noksharrays extendedglob
1770     local -a info
1771     local -i fhash
1772     fhash=0
1773
1774     VCS_INFO_check_com svk || return 1
1775     [[ -f ~/.svk/config ]] || return 1
1776
1777     # This detection function is a bit different from the others.
1778     # We need to read svk's config file to detect a svk repository
1779     # in the first place. Therefore, we'll just proceed and read
1780     # the other information, too. This is more then any of the
1781     # other detections do but this takes only one file open for
1782     # svk at most. VCS_INFO_svk_get_data() get simpler, too. :-)
1783     while IFS= read -r line ; do
1784         if [[ -n ${vcs_comm[basedir]} ]] ; then
1785             line=${line## ##}
1786             [[ ${line} == depotpath:* ]] && vcs_comm[branch]=${line##*/}
1787             [[ ${line} == revision:* ]] && vcs_comm[revision]=${line##*[[:space:]]##}
1788             [[ -n ${vcs_comm[branch]} ]] && [[ -n ${vcs_comm[revision]} ]] && break
1789             continue
1790         fi
1791         (( fhash > 0 )) && [[ ${line} == '  '[^[:space:]]*:* ]] && break
1792         [[ ${line} == '  hash:'* ]] && fhash=1 && continue
1793         (( fhash == 0 )) && continue
1794         [[ ${PWD}/ == ${${line## ##}%:*}/* ]] && vcs_comm[basedir]=${${line## ##}%:*}
1795     done < ~/.svk/config
1796
1797     [[ -n ${vcs_comm[basedir]} ]]  && \
1798     [[ -n ${vcs_comm[branch]} ]]   && \
1799     [[ -n ${vcs_comm[revision]} ]] && return 0
1800     return 1
1801 }
1802 # }}}
1803 VCS_INFO_svn_detect() { #{{{
1804     VCS_INFO_check_com svn || return 1
1805     [[ -d ".svn" ]] && return 0
1806     return 1
1807 }
1808 # }}}
1809 VCS_INFO_tla_detect() { #{{{
1810     VCS_INFO_check_com tla || return 1
1811     vcs_comm[basedir]="$(tla tree-root 2> /dev/null)" && return 0
1812     return 1
1813 }
1814 # }}}
1815 # public API
1816 vcs_info_printsys () { # {{{
1817     vcs_info print_systems_
1818 }
1819 # }}}
1820 vcs_info_lastmsg () { # {{{
1821     local -i i
1822
1823     VCS_INFO_maxexports
1824     for i in {0..$((maxexports - 1))} ; do
1825         printf '$VCS_INFO_message_%d_: "' $i
1826         if zstyle -T ':vcs_info:formats:command' use-prompt-escapes ; then
1827             print -nP ${(P)${:-VCS_INFO_message_${i}_}}
1828         else
1829             print -n ${(P)${:-VCS_INFO_message_${i}_}}
1830         fi
1831         printf '"\n'
1832     done
1833 }
1834 # }}}
1835 vcs_info () { # {{{
1836     local pat
1837     local -i found
1838     local -a VCSs disabled dps
1839     local -x vcs usercontext
1840     local -ix maxexports
1841     local -ax msgs
1842     local -Ax vcs_comm
1843
1844     vcs="init"
1845     VCSs=(git hg bzr darcs svk mtn svn cvs cdv tla)
1846     case $1 in
1847         (print_systems_)
1848             zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable" disabled
1849             print -l '# list of supported version control backends:' \
1850                      '# disabled systems are prefixed by a hash sign (#)'
1851             for vcs in ${VCSs} ; do
1852                 [[ -n ${(M)disabled:#${vcs}} ]] && printf '#'
1853                 printf '%s\n' ${vcs}
1854             done
1855             print -l '# flavours (cannot be used in the disable style; they' \
1856                      '# are disabled with their master [git-svn -> git]):'   \
1857                      git-{p4,svn}
1858             return 0
1859             ;;
1860         ('')
1861             [[ -z ${usercontext} ]] && usercontext=default
1862             ;;
1863         (*) [[ -z ${usercontext} ]] && usercontext=$1
1864             ;;
1865     esac
1866
1867     zstyle -T ":vcs_info:${vcs}:${usercontext}" "enable" || {
1868         [[ -n ${VCS_INFO_message_0_} ]] && VCS_INFO_set --clear
1869         return 0
1870     }
1871     zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable" disabled
1872
1873     zstyle -a ":vcs_info:${vcs}:${usercontext}" "disable-patterns" dps
1874     for pat in ${dps} ; do
1875         if [[ ${PWD} == ${~pat} ]] ; then
1876             [[ -n ${vcs_info_msg_0_} ]] && VCS_INFO_set --clear
1877             return 0
1878         fi
1879     done
1880
1881     VCS_INFO_maxexports
1882
1883     (( found = 0 ))
1884     for vcs in ${VCSs} ; do
1885         [[ -n ${(M)disabled:#${vcs}} ]] && continue
1886         vcs_comm=()
1887         VCS_INFO_${vcs}_detect && (( found = 1 )) && break
1888     done
1889
1890     (( found == 0 )) && {
1891         VCS_INFO_set --nvcs
1892         return 0
1893     }
1894
1895     VCS_INFO_${vcs}_get_data || {
1896         VCS_INFO_set --nvcs
1897         return 1
1898     }
1899
1900     VCS_INFO_set
1901     return 0
1902 }
1903
1904 VCS_INFO_set --nvcs preinit
1905 # }}}
1906
1907 # Change vcs_info formats for the grml prompt. The 2nd format sets up
1908 # $vcs_info_msg_1_ to contain "zsh: repo-name" used to set our screen title.
1909 # TODO: The included vcs_info() version still uses $VCS_INFO_message_N_.
1910 #       That needs to be the use of $VCS_INFO_message_N_ needs to be changed
1911 #       to $vcs_info_msg_N_ as soon as we use the included version.
1912 if [[ "$TERM" == dumb ]] ; then
1913     zstyle ':vcs_info:*' actionformats "(%s%)-[%b|%a] " "zsh: %r"
1914     zstyle ':vcs_info:*' formats       "(%s%)-[%b] "    "zsh: %r"
1915 else
1916     # these are the same, just with a lot of colours:
1917     zstyle ':vcs_info:*' actionformats "${MAGENTA}(${NO_COLOUR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${YELLOW}|${RED}%a${MAGENTA}]${NO_COLOUR} " \
1918                                        "zsh: %r"
1919     zstyle ':vcs_info:*' formats       "${MAGENTA}(${NO_COLOUR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${MAGENTA}]${NO_COLOUR}%} " \
1920                                        "zsh: %r"
1921     zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "%b${RED}:${YELLOW}%r"
1922 fi
1923
1924 # }}}
1925
1926 # command not found handling {{{
1927
1928 (( ${COMMAND_NOT_FOUND} == 1 )) &&
1929 function command_not_found_handler() {
1930     setopt localoptions no_sh_wordsplit
1931     if [[ -x ${GRML_ZSH_CNF_HANDLER} ]] ; then
1932         ${GRML_ZSH_CNF_HANDLER} $1
1933     fi
1934     return 1
1935 }
1936
1937 # }}}
1938
1939 # {{{ set prompt
1940 if zrcautoload promptinit && promptinit 2>/dev/null ; then
1941     promptinit # people should be able to use their favourite prompt
1942 else
1943     print 'Notice: no promptinit available :('
1944 fi
1945
1946 setopt prompt_subst
1947
1948 # make sure to use right prompt only when not running a command
1949 is41 && setopt transient_rprompt
1950
1951 # TODO: revise all these NO* variables and especially their documentation
1952 #       in zsh-help() below.
1953 is4 && [[ $NOPRECMD -eq 0 ]] && precmd () {
1954     [[ $NOPRECMD -gt 0 ]] && return 0
1955     # update VCS information
1956     vcs_info
1957
1958     if [[ $TERM == screen* ]] ; then
1959         if [[ -n ${VCS_INFO_message_1_} ]] ; then
1960             print -nP "\ek${VCS_INFO_message_1_}\e\\"
1961         else
1962             print -nP "\ekzsh\e\\"
1963         fi
1964     fi
1965     # just use DONTSETRPROMPT=1 to be able to overwrite RPROMPT
1966     if [[ $DONTSETRPROMPT -eq 0 ]] ; then
1967         if [[ $BATTERY -gt 0 ]] ; then
1968             # update battery (dropped into $PERCENT) information
1969             battery
1970             RPROMPT="%(?..:() ${PERCENT}"
1971         else
1972             RPROMPT="%(?..:() "
1973         fi
1974     fi
1975     # adjust title of xterm
1976     # see http://www.faqs.org/docs/Linux-mini/Xterm-Title.html
1977     [[ ${NOTITLE} -gt 0 ]] && return 0
1978     case $TERM in
1979         (xterm*|rxvt*)
1980             print -Pn "\e]0;%n@%m: %~\a"
1981             ;;
1982     esac
1983 }
1984
1985 # preexec() => a function running before every command
1986 is4 && [[ $NOPRECMD -eq 0 ]] && \
1987 preexec () {
1988     [[ $NOPRECMD -gt 0 ]] && return 0
1989 # set hostname if not running on host with name 'grml'
1990     if [[ -n "$HOSTNAME" ]] && [[ "$HOSTNAME" != $(hostname) ]] ; then
1991        NAME="@$HOSTNAME"
1992     fi
1993 # get the name of the program currently running and hostname of local machine
1994 # set screen window title if running in a screen
1995     if [[ "$TERM" == screen* ]] ; then
1996         # local CMD=${1[(wr)^(*=*|sudo|ssh|-*)]}       # don't use hostname
1997         local CMD="${1[(wr)^(*=*|sudo|ssh|-*)]}$NAME" # use hostname
1998         echo -ne "\ek$CMD\e\\"
1999     fi
2000 # adjust title of xterm
2001     [[ ${NOTITLE} -gt 0 ]] && return 0
2002     case $TERM in
2003         (xterm*|rxvt*)
2004             print -Pn "\e]0;%n@%m: $1\a"
2005             ;;
2006     esac
2007 }
2008
2009 EXITCODE="%(?..%?%1v )"
2010 PS2='\`%_> '      # secondary prompt, printed when the shell needs more information to complete a command.
2011 PS3='?# '         # selection prompt used within a select loop.
2012 PS4='+%N:%i:%_> ' # the execution trace prompt (setopt xtrace). default: '+%N:%i>'
2013
2014 # set variable debian_chroot if running in a chroot with /etc/debian_chroot
2015 if [[ -z "$debian_chroot" ]] && [[ -r /etc/debian_chroot ]] ; then
2016     debian_chroot=$(cat /etc/debian_chroot)
2017 fi
2018
2019 # don't use colors on dumb terminals (like emacs):
2020 if [[ "$TERM" == dumb ]] ; then
2021     PROMPT="${EXITCODE}${debian_chroot:+($debian_chroot)}%n@%m %40<...<%B%~%b%<< "'${VCS_INFO_message_0_}'"%# "
2022 else
2023     # only if $GRMLPROMPT is set (e.g. via 'GRMLPROMPT=1 zsh') use the extended prompt
2024     # set variable identifying the chroot you work in (used in the prompt below)
2025     if [[ $GRMLPROMPT -gt 0 ]] ; then
2026         PROMPT="${RED}${EXITCODE}${CYAN}[%j running job(s)] ${GREEN}{history#%!} ${RED}%(3L.+.) ${BLUE}%* %D
2027 ${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< %# "
2028     else
2029         # This assembles the primary prompt string
2030         if (( EUID != 0 )); then
2031             PROMPT="${RED}${EXITCODE}${WHITE}${debian_chroot:+($debian_chroot)}${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "'${VCS_INFO_message_0_}'"%# "
2032         else
2033             PROMPT="${BLUE}${EXITCODE}${WHITE}${debian_chroot:+($debian_chroot)}${RED}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "'${VCS_INFO_message_0_}'"%# "
2034         fi
2035     fi
2036 fi
2037
2038 # if we are inside a grml-chroot set a specific prompt theme
2039 if [[ -n "$GRML_CHROOT" ]] ; then
2040     PROMPT="%{$fg[red]%}(CHROOT) %{$fg_bold[red]%}%n%{$fg_no_bold[white]%}@%m %40<...<%B%~%b%<< %\# "
2041 fi
2042 # }}}
2043
2044 # {{{ 'hash' some often used directories
2045 #d# start
2046 hash -d deb=/var/cache/apt/archives
2047 hash -d doc=/usr/share/doc
2048 hash -d linux=/lib/modules/$(command uname -r)/build/
2049 hash -d log=/var/log
2050 hash -d slog=/var/log/syslog
2051 hash -d src=/usr/src
2052 hash -d templ=/usr/share/doc/grml-templates
2053 hash -d tt=/usr/share/doc/texttools-doc
2054 hash -d www=/var/www
2055 #d# end
2056 # }}}
2057
2058 # {{{ some aliases
2059 if check_com -c screen ; then
2060     if [[ $UID -eq 0 ]] ; then
2061         [[ -r /etc/grml/screenrc ]] && alias screen="${commands[screen]} -c /etc/grml/screenrc"
2062     elif [[ -r $HOME/.screenrc ]] ; then
2063         alias screen="${commands[screen]} -c $HOME/.screenrc"
2064     else
2065         [[ -r /etc/grml/screenrc_grml ]] && alias screen="${commands[screen]} -c /etc/grml/screenrc_grml"
2066     fi
2067 fi
2068
2069 # do we have GNU ls with color-support?
2070 if ls --help 2>/dev/null | grep -- --color= >/dev/null && [[ "$TERM" != dumb ]] ; then
2071     #a1# execute \kbd{@a@}:\quad ls with colors
2072     alias ls='ls -b -CF --color=auto'
2073     #a1# execute \kbd{@a@}:\quad list all files, with colors
2074     alias la='ls -la --color=auto'
2075     #a1# long colored list, without dotfiles (@a@)
2076     alias ll='ls -l --color=auto'
2077     #a1# long colored list, human readable sizes (@a@)
2078     alias lh='ls -hAl --color=auto'
2079     #a1# List files, append qualifier to filenames \\&\quad(\kbd{/} for directories, \kbd{@} for symlinks ...)
2080     alias l='ls -lF --color=auto'
2081 else
2082     alias ls='ls -b -CF'
2083     alias la='ls -la'
2084     alias ll='ls -l'
2085     alias lh='ls -hAl'
2086     alias l='ls -lF'
2087 fi
2088
2089 alias mdstat='cat /proc/mdstat'
2090 alias ...='cd ../../'
2091
2092 # generate alias named "$KERNELVERSION-reboot" so you can use boot with kexec:
2093 if [[ -x /sbin/kexec ]] && [[ -r /proc/cmdline ]] ; then
2094     alias "$(uname -r)-reboot"="kexec -l --initrd=/boot/initrd.img-"$(uname -r)" --command-line=\"$(cat /proc/cmdline)\" /boot/vmlinuz-"$(uname -r)""
2095 fi
2096
2097 alias cp='nocorrect cp'         # no spelling correction on cp
2098 alias mkdir='nocorrect mkdir'   # no spelling correction on mkdir
2099 alias mv='nocorrect mv'         # no spelling correction on mv
2100 alias rm='nocorrect rm'         # no spelling correction on rm
2101
2102 #a1# Execute \kbd{rmdir}
2103 alias rd='rmdir'
2104 #a1# Execute \kbd{rmdir}
2105 alias md='mkdir'
2106
2107 # see http://www.cl.cam.ac.uk/~mgk25/unicode.html#term for details
2108 alias term2iso="echo 'Setting terminal to iso mode' ; print -n '\e%@'"
2109 alias term2utf="echo 'Setting terminal to utf-8 mode'; print -n '\e%G'"
2110
2111 # make sure it is not assigned yet
2112 [[ $(whence -w utf2iso &>/dev/null) == 'utf2iso: alias' ]] && unalias utf2iso
2113
2114 utf2iso() {
2115     if isutfenv ; then
2116         for ENV in $(env | command grep -i '.utf') ; do
2117             eval export "$(echo $ENV | sed 's/UTF-8/iso885915/ ; s/utf8/iso885915/')"
2118         done
2119     fi
2120 }
2121
2122 # make sure it is not assigned yet
2123 [[ $(whence -w iso2utf &>/dev/null) == 'iso2utf: alias' ]] && unalias iso2utf
2124 iso2utf() {
2125     if ! isutfenv ; then
2126         for ENV in $(env | command grep -i '\.iso') ; do
2127             eval export "$(echo $ENV | sed 's/iso.*/UTF-8/ ; s/ISO.*/UTF-8/')"
2128         done
2129     fi
2130 }
2131
2132 # set up software synthesizer via speakup
2133 swspeak() {
2134     if [ -x /usr/sbin/swspeak-setup ] ; then
2135        setopt singlelinezle
2136        unsetopt prompt_cr
2137        export PS1="%m%# "
2138        /usr/sbin/swspeak-setup $@
2139      else # old version:
2140         aumix -w 90 -v 90 -p 90 -m 90
2141         if ! [[ -r /dev/softsynth ]] ; then
2142             flite -o play -t "Sorry, software synthesizer not available. Did you boot with swspeak bootoption?"
2143             return 1
2144         else
2145            setopt singlelinezle
2146            unsetopt prompt_cr
2147            export PS1="%m%# "
2148             nice -n -20 speechd-up
2149             sleep 2
2150             flite -o play -t "Finished setting up software synthesizer"
2151         fi
2152      fi
2153 }
2154
2155 # I like clean prompt, so provide simple way to get that
2156 check_com 0 || alias 0='return 0'
2157
2158 # for really lazy people like mika:
2159 check_com S &>/dev/null || alias S='screen'
2160 check_com s &>/dev/null || alias s='ssh'
2161
2162 # get top 10 shell commands:
2163 alias top10='print -l ? ${(o)history%% *} | uniq -c | sort -nr | head -n 10'
2164
2165 # truecrypt; use e.g. via 'truec /dev/ice /mnt/ice' or 'truec -i'
2166 if check_com -c truecrypt ; then
2167     if isutfenv ; then
2168         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077,utf8" '
2169     else
2170         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077" '
2171     fi
2172 fi
2173
2174 #f1# Hints for the use of zsh on grml
2175 zsh-help() {
2176     print "$bg[white]$fg[black]
2177 zsh-help - hints for use of zsh on grml
2178 =======================================$reset_color"
2179
2180     print '
2181 Main configuration of zsh happens in /etc/zsh/zshrc.
2182 That file is part of the package grml-etc-core, if you want to
2183 use them on a non-grml-system just get the tar.gz from
2184 http://deb.grml.org/ or (preferably) get it from the git repository:
2185
2186   http://git.grml.org/f/grml-etc-core/etc/zsh/zshrc
2187
2188 This version of grml'\''s zsh setup does not use skel/.zshrc anymore.
2189 The file is still there, but it is empty for backwards compatibility.
2190
2191 For your own changes use these two files:
2192     $HOME/.zshrc.pre
2193     $HOME/.zshrc.local
2194
2195 The former is sourced very early in our zshrc, the latter is sourced
2196 very lately.
2197
2198 System wide configuration without touching configuration files of grml
2199 can take place in /etc/zsh/zshrc.local.
2200
2201 Normally, the root user (EUID == 0) does not get the whole grml setup.
2202 If you want to force the whole setup for that user, too, set
2203 GRML_ALWAYS_LOAD_ALL=1 in .zshrc.pre in root'\''s home directory.
2204
2205 For information regarding zsh start at http://grml.org/zsh/
2206
2207 Take a look at grml'\''s zsh refcard:
2208 % xpdf =(zcat /usr/share/doc/grml-docs/zsh/grml-zsh-refcard.pdf.gz)
2209
2210 Check out the main zsh refcard:
2211 % '$BROWSER' http://www.bash2zsh.com/zsh_refcard/refcard.pdf
2212
2213 And of course visit the zsh-lovers:
2214 % man zsh-lovers
2215
2216 You can adjust some options through environment variables when
2217 invoking zsh without having to edit configuration files.
2218 Basically meant for bash users who are not used to the power of
2219 the zsh yet. :)
2220
2221   "NOCOR=1    zsh" => deactivate automatic correction
2222   "NOMENU=1   zsh" => do not use auto menu completion (note: use ctrl-d for completion instead!)
2223   "NOPRECMD=1 zsh" => disable the precmd + preexec commands (set GNU screen title)
2224   "NOTITLE=1  zsh" => disable setting the title of xterms without disabling
2225                       preexec() and precmd() completely
2226   "BATTERY=1  zsh" => activate battery status (via acpi) on right side of prompt
2227   "COMMAND_NOT_FOUND=1 zsh"
2228                    => Enable a handler if an external command was not found
2229                       The command called in the handler can be altered by setting
2230                       the GRML_ZSH_CNF_HANDLER variable, the default is:
2231                       "/usr/share/command-not-found/command-not-found"
2232
2233 A value greater than 0 is enables a feature; a value equal to zero
2234 disables it. If you like one or the other of these settings, you can
2235 add them to ~/.zshrc.pre to ensure they are set when sourcing grml'\''s
2236 zshrc.'
2237
2238     print "
2239 $bg[white]$fg[black]
2240 Please report wishes + bugs to the grml-team: http://grml.org/bugs/
2241 Enjoy your grml system with the zsh!$reset_color"
2242 }
2243
2244 # debian stuff
2245 if [[ -r /etc/debian_version ]] ; then
2246     #a3# Execute \kbd{apt-cache search}
2247     alias acs='apt-cache search'
2248     #a3# Execute \kbd{apt-cache show}
2249     alias acsh='apt-cache show'
2250     #a3# Execute \kbd{apt-cache policy}
2251     alias acp='apt-cache policy'
2252     #a3# Execute \kbd{apt-get dist-upgrade}
2253     salias adg="apt-get dist-upgrade"
2254     #a3# Execute \kbd{apt-get install}
2255     salias agi="apt-get install"
2256     #a3# Execute \kbd{aptitude install}
2257     salias ati="aptitude install"
2258     #a3# Execute \kbd{apt-get upgrade}
2259     salias ag="apt-get upgrade"
2260     #a3# Execute \kbd{apt-get update}
2261     salias au="apt-get update"
2262     #a3# Execute \kbd{aptitude update ; aptitude safe-upgrade}
2263     salias -a up="aptitude update ; aptitude safe-upgrade"
2264     #a3# Execute \kbd{dpkg-buildpackage}
2265     alias dbp='dpkg-buildpackage'
2266     #a3# Execute \kbd{grep-excuses}
2267     alias ge='grep-excuses'
2268
2269     # debian upgrade
2270     #f3# Execute \kbd{apt-get update \&\& }\\&\quad \kbd{apt-get dist-upgrade}
2271     upgrade() {
2272         if [[ -z "$1" ]] ; then
2273             $SUDO apt-get update
2274             $SUDO apt-get -u upgrade
2275         else
2276             ssh $1 $SUDO apt-get update
2277             # ask before the upgrade
2278             local dummy
2279             ssh $1 $SUDO apt-get --no-act upgrade
2280             echo -n 'Process the upgrade?'
2281             read -q dummy
2282             if [[ $dummy == "y" ]] ; then
2283                 ssh $1 $SUDO apt-get -u upgrade --yes
2284             fi
2285         fi
2286     }
2287
2288     # get a root shell as normal user in live-cd mode:
2289     if isgrmlcd && [[ $UID -ne 0 ]] ; then
2290        alias su="sudo su"
2291      fi
2292
2293     #a1# Take a look at the syslog: \kbd{\$PAGER /var/log/syslog}
2294     salias llog="$PAGER /var/log/syslog"     # take a look at the syslog
2295     #a1# Take a look at the syslog: \kbd{tail -f /var/log/syslog}
2296     salias tlog="tail -f /var/log/syslog"    # follow the syslog
2297 fi
2298
2299 # sort installed Debian-packages by size
2300 if check_com -c grep-status ; then
2301     #a3# List installed Debian-packages sorted by size
2302     alias debs-by-size='grep-status -FStatus -sInstalled-Size,Package -n "install ok installed" | paste -sd "  \n" | sort -rn'
2303 fi
2304
2305 # if cdrecord is a symlink (to wodim) or isn't present at all warn:
2306 if [[ -L /usr/bin/cdrecord ]] || ! check_com -c cdrecord ; then
2307     if check_com -c wodim ; then
2308         alias cdrecord="echo 'cdrecord is not provided under its original name by Debian anymore.
2309 See #377109 in the BTS of Debian for more details.
2310
2311 Please use the wodim binary instead' ; return 1"
2312     fi
2313 fi
2314
2315 # get_tw_cli has been renamed into get_3ware
2316 if check_com -c get_3ware ; then
2317     get_tw_cli() {
2318         echo 'Warning: get_tw_cli has been renamed into get_3ware. Invoking get_3ware for you.'>&2
2319         get_3ware
2320     }
2321 fi
2322
2323 # I hate lacking backward compatibility, so provide an alternative therefore
2324 if ! check_com -c apache2-ssl-certificate ; then
2325
2326     apache2-ssl-certificate() {
2327
2328     print 'Debian does not ship apache2-ssl-certificate anymore (see #398520). :('
2329     print 'You might want to take a look at Debian the package ssl-cert as well.'
2330     print 'To generate a certificate for use with apache2 follow the instructions:'
2331
2332     echo '
2333
2334 export RANDFILE=/dev/random
2335 mkdir /etc/apache2/ssl/
2336 openssl req $@ -new -x509 -days 365 -nodes -out /etc/apache2/ssl/apache.pem -keyout /etc/apache2/ssl/apache.pem
2337 chmod 600 /etc/apache2/ssl/apache.pem
2338
2339 Run "grml-tips ssl-certificate" if you need further instructions.
2340 '
2341     }
2342 fi
2343 # }}}
2344
2345 # {{{ Use hard limits, except for a smaller stack and no core dumps
2346 unlimit
2347 is425 && limit stack 8192
2348 isgrmlcd && limit core 0 # important for a live-cd-system
2349 limit -s
2350 # }}}
2351
2352 # {{{ completion system
2353
2354 # called later (via is4 && grmlcomp)
2355 # note: use 'zstyle' for getting current settings
2356 #         press ^Xh (control-x h) for getting tags in context; ^X? (control-x ?) to run complete_debug with trace output
2357 grmlcomp() {
2358     # TODO: This could use some additional information
2359
2360     # allow one error for every three characters typed in approximate completer
2361     zstyle ':completion:*:approximate:'    max-errors 'reply=( $((($#PREFIX+$#SUFFIX)/3 )) numeric )'
2362
2363     # don't complete backup files as executables
2364     zstyle ':completion:*:complete:-command-::commands' ignored-patterns '(aptitude-*|*\~)'
2365
2366     # start menu completion only if it could find no unambiguous initial string
2367     zstyle ':completion:*:correct:*'       insert-unambiguous true
2368     zstyle ':completion:*:corrections'     format $'%{\e[0;31m%}%d (errors: %e)%{\e[0m%}'
2369     zstyle ':completion:*:correct:*'       original true
2370
2371     # activate color-completion
2372     zstyle ':completion:*:default'         list-colors ${(s.:.)LS_COLORS}
2373
2374     # format on completion
2375     zstyle ':completion:*:descriptions'    format $'%{\e[0;31m%}completing %B%d%b%{\e[0m%}'
2376
2377     # complete 'cd -<tab>' with menu
2378     zstyle ':completion:*:*:cd:*:directory-stack' menu yes select
2379
2380     # insert all expansions for expand completer
2381     zstyle ':completion:*:expand:*'        tag-order all-expansions
2382     zstyle ':completion:*:history-words'   list false
2383
2384     # activate menu
2385     zstyle ':completion:*:history-words'   menu yes
2386
2387     # ignore duplicate entries
2388     zstyle ':completion:*:history-words'   remove-all-dups yes
2389     zstyle ':completion:*:history-words'   stop yes
2390
2391     # match uppercase from lowercase
2392     zstyle ':completion:*'                 matcher-list 'm:{a-z}={A-Z}'
2393
2394     # separate matches into groups
2395     zstyle ':completion:*:matches'         group 'yes'
2396     zstyle ':completion:*'                 group-name ''
2397
2398     if [[ "$NOMENU" -eq 0 ]] ; then
2399         # if there are more than 5 options allow selecting from a menu
2400         zstyle ':completion:*'               menu select=5
2401     else
2402         # don't use any menus at all
2403         setopt no_auto_menu
2404     fi
2405
2406     zstyle ':completion:*:messages'        format '%d'
2407     zstyle ':completion:*:options'         auto-description '%d'
2408
2409     # describe options in full
2410     zstyle ':completion:*:options'         description 'yes'
2411
2412     # on processes completion complete all user processes
2413     zstyle ':completion:*:processes'       command 'ps -au$USER'
2414
2415     # offer indexes before parameters in subscripts
2416     zstyle ':completion:*:*:-subscript-:*' tag-order indexes parameters
2417
2418     # provide verbose completion information
2419     zstyle ':completion:*'                 verbose true
2420
2421     # recent (as of Dec 2007) zsh versions are able to provide descriptions
2422     # for commands (read: 1st word in the line) that it will list for the user
2423     # to choose from. The following disables that, because it's not exactly fast.
2424     zstyle ':completion:*:-command-:*:'    verbose false
2425
2426     # set format for warnings
2427     zstyle ':completion:*:warnings'        format $'%{\e[0;31m%}No matches for:%{\e[0m%} %d'
2428
2429     # define files to ignore for zcompile
2430     zstyle ':completion:*:*:zcompile:*'    ignored-patterns '(*~|*.zwc)'
2431     zstyle ':completion:correct:'          prompt 'correct to: %e'
2432
2433     # Ignore completion functions for commands you don't have:
2434     zstyle ':completion::(^approximate*):*:functions' ignored-patterns '_*'
2435
2436     # Provide more processes in completion of programs like killall:
2437     zstyle ':completion:*:processes-names' command 'ps c -u ${USER} -o command | uniq'
2438
2439     # complete manual by their section
2440     zstyle ':completion:*:manuals'    separate-sections true
2441     zstyle ':completion:*:manuals.*'  insert-sections   true
2442     zstyle ':completion:*:man:*'      menu yes select
2443
2444     # provide .. as a completion
2445     zstyle ':completion:*' special-dirs ..
2446
2447     # run rehash on completion so new installed program are found automatically:
2448     _force_rehash() {
2449         (( CURRENT == 1 )) && rehash
2450         return 1
2451     }
2452
2453     ## correction
2454     # some people don't like the automatic correction - so run 'NOCOR=1 zsh' to deactivate it
2455     if [[ "$NOCOR" -gt 0 ]] ; then
2456         zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete _files _ignored
2457         setopt nocorrect
2458     else
2459         # try to be smart about when to use what completer...
2460         setopt correct
2461         zstyle -e ':completion:*' completer '
2462             if [[ $_last_try != "$HISTNO$BUFFER$CURSOR" ]] ; then
2463                 _last_try="$HISTNO$BUFFER$CURSOR"
2464                 reply=(_complete _match _ignored _prefix _files)
2465             else
2466                 if [[ $words[1] == (rm|mv) ]] ; then
2467                     reply=(_complete _files)
2468                 else
2469                     reply=(_oldlist _expand _force_rehash _complete _ignored _correct _approximate _files)
2470                 fi
2471             fi'
2472     fi
2473
2474     # command for process lists, the local web server details and host completion
2475     zstyle ':completion:*:urls' local 'www' '/var/www/' 'public_html'
2476
2477     # caching
2478     [[ -d $ZSHDIR/cache ]] && zstyle ':completion:*' use-cache yes && \
2479                             zstyle ':completion::complete:*' cache-path $ZSHDIR/cache/
2480
2481     # host completion /* add brackets as vim can't parse zsh's complex cmdlines 8-) {{{ */
2482     if is42 ; then
2483         [[ -r ~/.ssh/known_hosts ]] && _ssh_hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[\|]*}%%\ *}%%,*}) || _ssh_hosts=()
2484         [[ -r /etc/hosts ]] && : ${(A)_etc_hosts:=${(s: :)${(ps:\t:)${${(f)~~"$(</etc/hosts)"}%%\#*}##[:blank:]#[^[:blank:]]#}}} || _etc_hosts=()
2485     else
2486         _ssh_hosts=()
2487         _etc_hosts=()
2488     fi
2489     hosts=(
2490         $(hostname)
2491         "$_ssh_hosts[@]"
2492         "$_etc_hosts[@]"
2493         grml.org
2494         localhost
2495     )
2496     zstyle ':completion:*:hosts' hosts $hosts
2497     # TODO: so, why is this here?
2498     #  zstyle '*' hosts $hosts
2499
2500     # use generic completion system for programs not yet defined; (_gnu_generic works
2501     # with commands that provide a --help option with "standard" gnu-like output.)
2502     for compcom in tail head feh cp mv df stow uname ipacsum fetchipac; do
2503         [[ -z ${_comps[$compcom]} ]] && compdef _gnu_generic ${compcom}
2504     done; unset compcom
2505
2506     # see upgrade function in this file
2507     compdef _hosts upgrade
2508 }
2509 # }}}
2510
2511 # {{{ grmlstuff
2512 grmlstuff() {
2513 # people should use 'grml-x'!
2514     startx() {
2515         if [[ -e /etc/X11/xorg.conf ]] ; then
2516             [[ -x /usr/bin/startx ]] && /usr/bin/startx "$@" || /usr/X11R6/bin/startx "$@"
2517         else
2518             echo "Please use the script \"grml-x\" for starting the X Window System
2519 because there does not exist /etc/X11/xorg.conf yet.
2520 If you want to use startx anyway please call \"/usr/bin/startx\"."
2521             return -1
2522         fi
2523     }
2524
2525     xinit() {
2526         if [[ -e /etc/X11/xorg.conf ]] ; then
2527             [[ -x /usr/bin/xinit ]] && /usr/bin/xinit || /usr/X11R6/bin/xinit
2528         else
2529             echo "Please use the script \"grml-x\" for starting the X Window System.
2530 because there does not exist /etc/X11/xorg.conf yet.
2531 If you want to use xinit anyway please call \"/usr/bin/xinit\"."
2532             return -1
2533         fi
2534     }
2535
2536     if check_com -c 915resolution ; then
2537         alias 855resolution='echo -e "Please use 915resolution as resolution modify tool for Intel graphic chipset."; return -1'
2538     fi
2539
2540     #a1# Output version of running grml
2541     alias grml-version='cat /etc/grml_version'
2542
2543     if check_com -c rebuildfstab ; then
2544         #a1# Rebuild /etc/fstab
2545         alias grml-rebuildfstab='rebuildfstab -v -r -config'
2546     fi
2547
2548     if check_com -c grml-debootstrap ; then
2549         alias debian2hd='print "Installing debian to harddisk is possible via using grml-debootstrap." ; return 1'
2550     fi
2551 }
2552 # }}}
2553
2554 # {{{ now run the functions
2555 isgrml && checkhome
2556 is4    && isgrml    && grmlstuff
2557 is4    && grmlcomp
2558 # }}}
2559
2560 # {{{ keephack
2561 is4 && xsource "/etc/zsh/keephack"
2562 # }}}
2563
2564 # {{{ wonderful idea of using "e" glob qualifier by Peter Stephenson
2565 # You use it as follows:
2566 # $ NTREF=/reference/file
2567 # $ ls -l *(e:nt:)
2568 # This lists all the files in the current directory newer than the reference file.
2569 # You can also specify the reference file inline; note quotes:
2570 # $ ls -l *(e:'nt ~/.zshenv':)
2571 is4 && nt() {
2572     if [[ -n $1 ]] ; then
2573         local NTREF=${~1}
2574     fi
2575     [[ $REPLY -nt $NTREF ]]
2576 }
2577 # }}}
2578
2579 # shell functions {{{
2580
2581 #f1# Provide csh compatibility
2582 setenv()  { typeset -x "${1}${1:+=}${(@)argv[2,$#]}" }  # csh compatibility
2583
2584 #f1# Reload an autoloadable function
2585 freload() { while (( $# )); do; unfunction $1; autoload -U $1; shift; done }
2586
2587 #f1# Reload zsh setup
2588 reload() {
2589     if [[ "$#*" -eq 0 ]] ; then
2590         [[ -r ~/.zshrc ]] && . ~/.zshrc
2591     else
2592         local fn
2593         for fn in "$@"; do
2594             unfunction $fn
2595             autoload -U $fn
2596         done
2597     fi
2598 }
2599 compdef _functions reload freload
2600
2601 #f1# List symlinks in detail (more detailed version of 'readlink -f' and 'whence -s')
2602 sll() {
2603     [[ -z "$1" ]] && printf 'Usage: %s <file(s)>\n' "$0" && return 1
2604     for i in "$@" ; do
2605         file=$i
2606         while [[ -h "$file" ]] ; do
2607             ls -l $file
2608             file=$(readlink "$file")
2609         done
2610     done
2611 }
2612
2613 # fast manual access
2614 if check_com qma ; then
2615     #f1# View the zsh manual
2616     manzsh()  { qma zshall "$1" }
2617     compdef _man qma
2618 else
2619     manzsh()  { /usr/bin/man zshall |  vim -c "se ft=man| se hlsearch" +/"$1" - ; }
2620 fi
2621
2622 if check_com -c $PAGER ; then
2623     #f1# View Debian's changelog of a given package
2624     dchange() {
2625         if [[ -r /usr/share/doc/${1}/changelog.Debian.gz ]] ; then
2626             $PAGER /usr/share/doc/${1}/changelog.Debian.gz
2627         elif [[ -r /usr/share/doc/${1}/changelog.gz ]] ; then
2628             $PAGER /usr/share/doc/${1}/changelog.gz
2629         else
2630             if check_com -c aptitude ; then
2631                 echo "No changelog for package $1 found, using aptitude to retrieve it."
2632                 if isgrml ; then
2633                     aptitude -t unstable changelog ${1}
2634                 else
2635                     aptitude changelog ${1}
2636                 fi
2637             else
2638                 echo "No changelog for package $1 found, sorry."
2639                 return 1
2640             fi
2641         fi
2642     }
2643     _dchange() { _files -W /usr/share/doc -/ }
2644     compdef _dchange dchange
2645
2646     #f1# View Debian's NEWS of a given package
2647     dnews() {
2648         if [[ -r /usr/share/doc/${1}/NEWS.Debian.gz ]] ; then
2649             $PAGER /usr/share/doc/${1}/NEWS.Debian.gz
2650         else
2651             if [[ -r /usr/share/doc/${1}/NEWS.gz ]] ; then
2652                 $PAGER /usr/share/doc/${1}/NEWS.gz
2653             else
2654                 echo "No NEWS file for package $1 found, sorry."
2655                 return 1
2656             fi
2657         fi
2658     }
2659     _dnews() { _files -W /usr/share/doc -/ }
2660     compdef _dnews dnews
2661
2662     #f1# View upstream's changelog of a given package
2663     uchange() {
2664         if [[ -r /usr/share/doc/${1}/changelog.gz ]] ; then
2665             $PAGER /usr/share/doc/${1}/changelog.gz
2666         else
2667             echo "No changelog for package $1 found, sorry."
2668             return 1
2669         fi
2670     }
2671     _uchange() { _files -W /usr/share/doc -/ }
2672     compdef _uchange uchange
2673 fi
2674
2675 # zsh profiling
2676 profile() {
2677     ZSH_PROFILE_RC=1 $SHELL "$@"
2678 }
2679
2680 #f1# Edit an alias via zle
2681 edalias() {
2682     [[ -z "$1" ]] && { echo "Usage: edalias <alias_to_edit>" ; return 1 } || vared aliases'[$1]' ;
2683 }
2684 compdef _aliases edalias
2685
2686 #f1# Edit a function via zle
2687 edfunc() {
2688     [[ -z "$1" ]] && { echo "Usage: edfun <function_to_edit>" ; return 1 } || zed -f "$1" ;
2689 }
2690 compdef _functions edfunc
2691
2692 # use it e.g. via 'Restart apache2'
2693 #m# f6 Start() \kbd{/etc/init.d/\em{process}}\quad\kbd{start}
2694 #m# f6 Restart() \kbd{/etc/init.d/\em{process}}\quad\kbd{restart}
2695 #m# f6 Stop() \kbd{/etc/init.d/\em{process}}\quad\kbd{stop}
2696 #m# f6 Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{reload}
2697 #m# f6 Force-Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{force-reload}
2698 if [[ -d /etc/init.d || -d /etc/service ]] ; then
2699     __start_stop() {
2700         local action_="${1:l}"  # e.g Start/Stop/Restart
2701         local service_="$2"
2702         local param_="$3"
2703
2704         local service_target_="$(readlink /etc/init.d/$service_)"
2705         if [[ $service_target_ == "/usr/bin/sv" ]]; then
2706             # runit
2707             case "${action_}" in
2708                 start) if [[ ! -e /etc/service/$service_ ]]; then
2709                            $SUDO ln -s "/etc/sv/$service_" "/etc/service/"
2710                        else
2711                            $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
2712                        fi ;;
2713                 # there is no reload in runits sysv emulation
2714                 reload) $SUDO "/etc/init.d/$service_" "force-reload" "$param_" ;;
2715                 *) $SUDO "/etc/init.d/$service_" "${action_}" "$param_" ;;
2716             esac
2717         else
2718             # sysvinit
2719             $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
2720         fi
2721     }
2722
2723     for i in Start Restart Stop Force-Reload Reload ; do
2724         eval "$i() { __start_stop $i \"\$1\" \"\$2\" ; }"
2725     done
2726 fi
2727
2728 #f1# Provides useful information on globbing
2729 H-Glob() {
2730     echo -e "
2731     /      directories
2732     .      plain files
2733     @      symbolic links
2734     =      sockets
2735     p      named pipes (FIFOs)
2736     *      executable plain files (0100)
2737     %      device files (character or block special)
2738     %b     block special files
2739     %c     character special files
2740     r      owner-readable files (0400)
2741     w      owner-writable files (0200)
2742     x      owner-executable files (0100)
2743     A      group-readable files (0040)
2744     I      group-writable files (0020)
2745     E      group-executable files (0010)
2746     R      world-readable files (0004)
2747     W      world-writable files (0002)
2748     X      world-executable files (0001)
2749     s      setuid files (04000)
2750     S      setgid files (02000)
2751     t      files with the sticky bit (01000)
2752
2753   print *(m-1)          # Files modified up to a day ago
2754   print *(a1)           # Files accessed a day ago
2755   print *(@)            # Just symlinks
2756   print *(Lk+50)        # Files bigger than 50 kilobytes
2757   print *(Lk-50)        # Files smaller than 50 kilobytes
2758   print **/*.c          # All *.c files recursively starting in \$PWD
2759   print **/*.c~file.c   # Same as above, but excluding 'file.c'
2760   print (foo|bar).*     # Files starting with 'foo' or 'bar'
2761   print *~*.*           # All Files that do not contain a dot
2762   chmod 644 *(.^x)      # make all plain non-executable files publically readable
2763   print -l *(.c|.h)     # Lists *.c and *.h
2764   print **/*(g:users:)  # Recursively match all files that are owned by group 'users'
2765   echo /proc/*/cwd(:h:t:s/self//) # Analogous to >ps ax | awk '{print $1}'<"
2766 }
2767 alias help-zshglob=H-Glob
2768
2769 check_com -c qma && alias ?='qma zshall'
2770
2771 # grep for running process, like: 'any vim'
2772 any() {
2773     if [[ -z "$1" ]] ; then
2774         echo "any - grep for process(es) by keyword" >&2
2775         echo "Usage: any <keyword>" >&2 ; return 1
2776     else
2777         local STRING=$1
2778         local LENGTH=$(expr length $STRING)
2779         local FIRSCHAR=$(echo $(expr substr $STRING 1 1))
2780         local REST=$(echo $(expr substr $STRING 2 $LENGTH))
2781         ps xauwww| grep "[$FIRSCHAR]$REST"
2782     fi
2783 }
2784
2785 # After resuming from suspend, system is paging heavily, leading to very bad interactivity.
2786 # taken from $LINUX-KERNELSOURCE/Documentation/power/swsusp.txt
2787 [[ -r /proc/1/maps ]] && \
2788 deswap() {
2789     print 'Reading /proc/[0-9]*/maps and sending output to /dev/null, this might take a while.'
2790     cat $(sed -ne 's:.* /:/:p' /proc/[0-9]*/maps | sort -u | grep -v '^/dev/')  > /dev/null
2791     print 'Finished, running "swapoff -a; swapon -a" may also be useful.'
2792 }
2793
2794 # print hex value of a number
2795 hex() {
2796     [[ -n "$1" ]] && printf "%x\n" $1 || { print 'Usage: hex <number-to-convert>' ; return 1 }
2797 }
2798
2799 # calculate (or eval at all ;-)) with perl => p[erl-]eval
2800 # hint: also take a look at zcalc -> 'autoload zcalc' -> 'man zshmodules | less -p MATHFUNC'
2801 peval() {
2802     [[ -n "$1" ]] && CALC="$*" || print "Usage: calc [expression]"
2803     perl -e "print eval($CALC),\"\n\";"
2804 }
2805 functions peval &>/dev/null && alias calc=peval
2806
2807 # brltty seems to have problems with utf8 environment and/or font Uni3-Terminus16 under
2808 # certain circumstances, so work around it, no matter which environment we have
2809 brltty() {
2810     if [[ -z "$DISPLAY" ]] ; then
2811         consolechars -f /usr/share/consolefonts/default8x16.psf.gz
2812         command brltty "$@"
2813     else
2814         command brltty "$@"
2815     fi
2816 }
2817
2818 # just press 'asdf' keys to toggle between dvorak and us keyboard layout
2819 aoeu() {
2820     echo -n 'Switching to us keyboard layout: '
2821     [[ -z "$DISPLAY" ]] && $SUDO loadkeys us &>/dev/null || setxkbmap us &>/dev/null
2822     echo 'Done'
2823 }
2824 asdf() {
2825     echo -n 'Switching to dvorak keyboard layout: '
2826     [[ -z "$DISPLAY" ]] && $SUDO loadkeys dvorak &>/dev/null || setxkbmap dvorak &>/dev/null
2827     echo 'Done'
2828 }
2829 # just press 'asdf' key to toggle from neon layout to us keyboard layout
2830 uiae() {
2831     echo -n 'Switching to us keyboard layout: '
2832     setxkbmap us && echo 'Done' || echo 'Failed'
2833 }
2834
2835 # set up an ipv6 tunnel
2836 ipv6-tunnel() {
2837     case $1 in
2838         start)
2839             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2840                 print 'ipv6 tunnel already set up, nothing to be done.'
2841                 print 'execute: "ifconfig sit1 down ; ifconfig sit0 down" to remove ipv6-tunnel.' ; return 1
2842             else
2843                 [[ -n "$PUBLIC_IP" ]] || \
2844                     local PUBLIC_IP=$(ifconfig $(route -n | awk '/^0\.0\.0\.0/{print $8; exit}') | \
2845                                       awk '/inet addr:/ {print $2}' | tr -d 'addr:')
2846
2847                 [[ -n "$PUBLIC_IP" ]] || { print 'No $PUBLIC_IP set and could not determine default one.' ; return 1 }
2848                 local IPV6ADDR=$(printf "2002:%02x%02x:%02x%02x:1::1" $(print ${PUBLIC_IP//./ }))
2849                 print -n "Setting up ipv6 tunnel $IPV6ADDR via ${PUBLIC_IP}: "
2850                 ifconfig sit0 tunnel ::192.88.99.1 up
2851                 ifconfig sit1 add "$IPV6ADDR" && print done || print failed
2852             fi
2853             ;;
2854         status)
2855             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2856                 print 'ipv6 tunnel available' ; return 0
2857             else
2858                 print 'ipv6 tunnel not available' ; return 1
2859             fi
2860             ;;
2861         stop)
2862             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2863                 print -n 'Stopping ipv6 tunnel (sit0 + sit1): '
2864                 ifconfig sit1 down ; ifconfig sit0 down && print done || print failed
2865             else
2866                 print 'No ipv6 tunnel found, nothing to be done.' ; return 1
2867             fi
2868             ;;
2869         *)
2870             print "Usage: ipv6-tunnel [start|stop|status]">&2 ; return 1
2871             ;;
2872     esac
2873 }
2874
2875 # run dhclient for wireless device
2876 iwclient() {
2877     salias dhclient "$(wavemon -d | awk '/device/{print $2}')"
2878 }
2879
2880 # spawn a minimally set up ksh - useful if you want to umount /usr/.
2881 minimal-shell() {
2882     exec env -i ENV="/etc/minimal-shellrc" HOME="$HOME" TERM="$TERM" ksh
2883 }
2884
2885 # a wrapper for vim, that deals with title setting
2886 #   VIM_OPTIONS
2887 #       set this array to a set of options to vim you always want
2888 #       to have set when calling vim (in .zshrc.local), like:
2889 #           VIM_OPTIONS=( -p )
2890 #       This will cause vim to send every file given on the
2891 #       commandline to be send to it's own tab (needs vim7).
2892 vim() {
2893     VIM_PLEASE_SET_TITLE='yes' command vim ${VIM_OPTIONS} "$@"
2894 }
2895
2896 # make a backup of a file
2897 bk() {
2898     cp -a "$1" "${1}_$(date --iso-8601=seconds)"
2899 }
2900
2901 #f1# grep for patterns in grml's zsh setup
2902 zg() {
2903 #{{{
2904     LANG=C perl -e '
2905
2906 sub usage {
2907     print "usage: zg -[anr] <pattern>\n";
2908     print " Search for patterns in grml'\''s zshrc.\n";
2909     print " zg takes no or exactly one option plus a non empty pattern.\n\n";
2910     print "   options:\n";
2911     print "     --  no options (use if your pattern starts in with a dash.\n";
2912     print "     -a  search for the pattern in all code regions\n";
2913     print "     -n  search for the pattern in non-root code only\n";
2914     print "     -r  search in code for everyone (also root) only\n\n";
2915     print "   The default is -a for non-root users and -r for root.\n\n";
2916     print " If you installed the zshrc to a non-default locations (ie *NOT*\n";
2917     print " in /etc/zsh/zshrc) do: export GRML_ZSHRC=\$HOME/.zshrc\n";
2918     print " ...in case you copied the file to that location.\n\n";
2919     exit 1;
2920 }
2921
2922 if ($ENV{GRML_ZSHRC} ne "") {
2923     $RC = $ENV{GRML_ZSHRC};
2924 } else {
2925     $RC = "/etc/zsh/zshrc";
2926 }
2927
2928 usage if ($#ARGV < 0 || $#ARGV > 1);
2929 if ($> == 0) { $mode = "allonly"; }
2930 else { $mode = "all"; }
2931
2932 $opt = $ARGV[0];
2933 if ($opt eq "--")     { shift; }
2934 elsif ($opt eq "-a")  { $mode = "all"; shift; }
2935 elsif ($opt eq "-n")  { $mode = "nonroot"; shift; }
2936 elsif ($opt eq "-r" ) { $mode = "allonly"; shift; }
2937 elsif ($opt =~ m/^-/ || $#ARGV > 0) { usage(); }
2938
2939 $pattern = $ARGV[0];
2940 usage() if ($pattern eq "");
2941
2942 open FH, "<$RC" or die "zg: Could not open $RC: $!\n";
2943 while ($line = <FH>) {
2944     chomp $line;
2945     if ($line =~ m/^#:grep:marker:for:mika:/) { $markerfound = 1; next; }
2946     next if ($mode eq "nonroot" && markerfound == 0);
2947     break if ($mode eq "allonly" && markerfound == 1);
2948     print $line, "\n" if ($line =~ /$pattern/);
2949 }
2950 close FH;
2951 exit 0;
2952
2953     ' -- "$@"
2954 #}}}
2955     return $?
2956 }
2957
2958 # }}}
2959
2960 # {{{ make sure our environment is clean regarding colors
2961 for color in BLUE RED GREEN CYAN YELLOW MAGENTA WHITE ; unset $color
2962 # }}}
2963
2964 # "persistent history" {{{
2965 # just write important commands you always need to ~/.important_commands
2966 if [[ -r ~/.important_commands ]] ; then
2967     fc -R ~/.important_commands
2968 fi
2969 # }}}
2970
2971 #:grep:marker:for:mika: :-)
2972 ### non-root (EUID != 0) code below
2973 ###
2974
2975 if (( GRML_ALWAYS_LOAD_ALL == 0 )) && (( $EUID == 0 )) ; then
2976     zrclocal
2977     return 0
2978 fi
2979
2980
2981 # variables {{{
2982
2983 # set terminal property (used e.g. by msgid-chooser)
2984 export COLORTERM="yes"
2985
2986 # set default browser
2987 if [[ -z "$BROWSER" ]] ; then
2988     if [[ -n "$DISPLAY" ]] ; then
2989         #v# If X11 is running
2990         check_com -c firefox && export BROWSER=firefox
2991     else
2992         #v# If no X11 is running
2993         check_com -c w3m && export BROWSER=w3m
2994     fi
2995 fi
2996
2997 #m# v QTDIR \kbd{/usr/share/qt[34]}\quad [for non-root only]
2998 [[ -d /usr/share/qt3 ]] && export QTDIR=/usr/share/qt3
2999 [[ -d /usr/share/qt4 ]] && export QTDIR=/usr/share/qt4
3000
3001 # support running 'jikes *.java && jamvm HelloWorld' OOTB:
3002 #v# [for non-root only]
3003 [[ -f /usr/share/classpath/glibj.zip ]] && export JIKESPATH=/usr/share/classpath/glibj.zip
3004 # }}}
3005
3006 # aliases {{{
3007
3008 # Xterm resizing-fu.
3009 # Based on http://svn.kitenet.net/trunk/home-full/.zshrc?rev=11710&view=log (by Joey Hess)
3010 alias hide='echo -en "\033]50;nil2\007"'
3011 alias tiny='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-80-*-*-c-*-iso8859-15\007"'
3012 alias small='echo -en "\033]50;6x10\007"'
3013 alias medium='echo -en "\033]50;-misc-fixed-medium-r-normal--13-120-75-75-c-80-iso8859-15\007"'
3014 alias default='echo -e "\033]50;-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-15\007"'
3015 alias large='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-150-*-*-c-*-iso8859-15\007"'
3016 alias huge='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-210-*-*-c-*-iso8859-15\007"'
3017 alias smartfont='echo -en "\033]50;-artwiz-smoothansi-*-*-*-*-*-*-*-*-*-*-*-*\007"'
3018 alias semifont='echo -en "\033]50;-misc-fixed-medium-r-semicondensed-*-*-120-*-*-*-*-iso8859-15\007"'
3019
3020 # general
3021 #a2# Execute \kbd{du -sch}
3022 alias da='du -sch'
3023 #a2# Execute \kbd{jobs -l}
3024 alias j='jobs -l'
3025
3026 # compile stuff
3027 #a2# Execute \kbd{./configure}
3028 alias CO="./configure"
3029 #a2# Execute \kbd{./configure --help}
3030 alias CH="./configure --help"
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 zrclocal
4255
4256 ## genrefcard.pl settings {{{
4257
4258 ### doc strings for external functions from files
4259 #m# f5 grml-wallpaper() Sets a wallpaper (try completion for possible values)
4260
4261 ### example: split functions-search 8,16,24,32
4262 #@# split functions-search 8
4263
4264 ## }}}
4265
4266 ## END OF FILE #################################################################
4267 # vim:filetype=zsh foldmethod=marker autoindent expandtab shiftwidth=4