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 # USAGE
  15 # If you are using this file as your ~/.zshrc file, please use ~/.zshrc.pre
  16 # and ~/.zshrc.local for your own customisations. The former file is read
  17 # before ~/.zshrc, the latter is read after it. Also, consider reading the
  18 # refcard and the reference manual for this setup, both available from:
  19 #     <http://grml.org/zsh/>
  20
  21 # Contributing:
  22 # If you want to help to improve grml's zsh setup, clone the grml-etc-core
  23 # repository from git.grml.org:
  24 #   git clone git://git.grml.org/grml-etc-core.git
  25 #
  26 # Make your changes, commit them; use 'git format-patch' to create a series
  27 # of patches and send those to the following address via 'git send-email':
  28 #   grml-etc-core@grml.org
  29 #
  30 # Doing so makes sure the right people get your patches for review and
  31 # possibly inclusion.
  32
  33 # zsh-refcard-tag documentation:
  34 #   You may notice strange looking comments in this file.
  35 #   These are there for a purpose. grml's zsh-refcard can now be
  36 #   automatically generated from the contents of the actual configuration
  37 #   file. However, we need a little extra information on which comments
  38 #   and what lines of code to take into account (and for what purpose).
  39 #
  40 # Here is what they mean:
  41 #
  42 # List of tags (comment types) used:
  43 #   #a#     Next line contains an important alias, that should
  44 #           be included in the grml-zsh-refcard.
  45 #           (placement tag: @@INSERT-aliases@@)
  46 #   #f#     Next line contains the beginning of an important function.
  47 #           (placement tag: @@INSERT-functions@@)
  48 #   #v#     Next line contains an important variable.
  49 #           (placement tag: @@INSERT-variables@@)
  50 #   #k#     Next line contains an important keybinding.
  51 #           (placement tag: @@INSERT-keybindings@@)
  52 #   #d#     Hashed directories list generation:
  53 #               start   denotes the start of a list of 'hash -d'
  54 #                       definitions.
  55 #               end     denotes its end.
  56 #           (placement tag: @@INSERT-hasheddirs@@)
  57 #   #A#     Abbreviation expansion list generation:
  58 #               start   denotes the beginning of abbreviations.
  59 #               end     denotes their end.
  60 #           Lines within this section that end in '#d .*' provide
  61 #           extra documentation to be included in the refcard.
  62 #           (placement tag: @@INSERT-abbrev@@)
  63 #   #m#     This tag allows you to manually generate refcard entries
  64 #           for code lines that are hard/impossible to parse.
  65 #               Example:
  66 #                   #m# k ESC-h Call the run-help function
  67 #               That would add a refcard entry in the keybindings table
  68 #               for 'ESC-h' with the given comment.
  69 #           So the syntax is: #m# <section> <argument> <comment>
  70 #   #o#     This tag lets you insert entries to the 'other' hash.
  71 #           Generally, this should not be used. It is there for
  72 #           things that cannot be done easily in another way.
  73 #           (placement tag: @@INSERT-other-foobar@@)
  74 #
  75 #   All of these tags (except for m and o) take two arguments, the first
  76 #   within the tag, the other after the tag:
  77 #
  78 #   #<tag><section># <comment>
  79 #
  80 #   Where <section> is really just a number, which are defined by the
  81 #   @secmap array on top of 'genrefcard.pl'. The reason for numbers
  82 #   instead of names is, that for the reader, the tag should not differ
  83 #   much from a regular comment. For zsh, it is a regular comment indeed.
  84 #   The numbers have got the following meanings:
  85 #         0 -> "default"
  86 #         1 -> "system"
  87 #         2 -> "user"
  88 #         3 -> "debian"
  89 #         4 -> "search"
  90 #         5 -> "shortcuts"
  91 #         6 -> "services"
  92 #
  93 #   So, the following will add an entry to the 'functions' table in the
  94 #   'system' section, with a (hopefully) descriptive comment:
  95 #       #f1# Edit an alias via zle
  96 #       edalias() {
  97 #
  98 #   It will then show up in the @@INSERT-aliases-system@@ replacement tag
  99 #   that can be found in 'grml-zsh-refcard.tex.in'.
 100 #   If the section number is omitted, the 'default' section is assumed.
 101 #   Furthermore, in 'grml-zsh-refcard.tex.in' @@INSERT-aliases@@ is
 102 #   exactly the same as @@INSERT-aliases-default@@. If you want a list of
 103 #   *all* aliases, for example, use @@INSERT-aliases-all@@.
 104
 105 # zsh profiling
 106 # just execute 'ZSH_PROFILE_RC=1 zsh' and run 'zprof' to get the details
 107 if [[ $ZSH_PROFILE_RC -gt 0 ]] ; then
 108     zmodload zsh/zprof
 109 fi
 110
 111 # load .zshrc.pre to give the user the chance to overwrite the defaults
 112 [[ -r ${HOME}/.zshrc.pre ]] && source ${HOME}/.zshrc.pre
 113
 114 # check for version/system
 115 # check for versions (compatibility reasons)
 116 is4(){
 117     [[ $ZSH_VERSION == <4->* ]] && return 0
 118     return 1
 119 }
 120
 121 is41(){
 122     [[ $ZSH_VERSION == 4.<1->* || $ZSH_VERSION == <5->* ]] && return 0
 123     return 1
 124 }
 125
 126 is42(){
 127     [[ $ZSH_VERSION == 4.<2->* || $ZSH_VERSION == <5->* ]] && return 0
 128     return 1
 129 }
 130
 131 is425(){
 132     [[ $ZSH_VERSION == 4.2.<5->* || $ZSH_VERSION == 4.<3->* || $ZSH_VERSION == <5->* ]] && return 0
 133     return 1
 134 }
 135
 136 is43(){
 137     [[ $ZSH_VERSION == 4.<3->* || $ZSH_VERSION == <5->* ]] && return 0
 138     return 1
 139 }
 140
 141 is433(){
 142     [[ $ZSH_VERSION == 4.3.<3->* || $ZSH_VERSION == 4.<4->* || $ZSH_VERSION == <5->* ]] && return 0
 143     return 1
 144 }
 145
 146 is439(){
 147     [[ $ZSH_VERSION == 4.3.<9->* || $ZSH_VERSION == 4.<4->* || $ZSH_VERSION == <5->* ]] && return 0
 148     return 1
 149 }
 150
 151 #f1# Checks whether or not you're running grml
 152 isgrml(){
 153     [[ -f /etc/grml_version ]] && return 0
 154     return 1
 155 }
 156
 157 #f1# Checks whether or not you're running a grml cd
 158 isgrmlcd(){
 159     [[ -f /etc/grml_cd ]] && return 0
 160     return 1
 161 }
 162
 163 if isgrml ; then
 164 #f1# Checks whether or not you're running grml-small
 165     isgrmlsmall() {
 166         [[ ${${${(f)"$(</etc/grml_version)"}%% *}##*-} == 'small' ]] && return 0 ; return 1
 167     }
 168 else
 169     isgrmlsmall() { return 1 }
 170 fi
 171
 172 isdarwin(){
 173     [[ $OSTYPE == darwin* ]] && return 0
 174     return 1
 175 }
 176
 177 #f1# are we running within an utf environment?
 178 isutfenv() {
 179     case "$LANG $CHARSET $LANGUAGE" in
 180         *utf*) return 0 ;;
 181         *UTF*) return 0 ;;
 182         *)     return 1 ;;
 183     esac
 184 }
 185
 186 # check for user, if not running as root set $SUDO to sudo
 187 (( EUID != 0 )) && SUDO='sudo' || SUDO=''
 188
 189 # change directory to home on first invocation of zsh
 190 # important for rungetty -> autologin
 191 # Thanks go to Bart Schaefer!
 192 isgrml && checkhome() {
 193     if [[ -z "$ALREADY_DID_CD_HOME" ]] ; then
 194         export ALREADY_DID_CD_HOME=$HOME
 195         cd
 196     fi
 197 }
 198
 199 # check for zsh v3.1.7+
 200
 201 if ! [[ ${ZSH_VERSION} == 3.1.<7->*      \
 202      || ${ZSH_VERSION} == 3.<2->.<->*    \
 203      || ${ZSH_VERSION} == <4->.<->*   ]] ; then
 204
 205     printf '-!-\n'
 206     printf '-!- In this configuration we try to make use of features, that only\n'
 207     printf '-!- require version 3.1.7 of the shell; That way this setup can be\n'
 208     printf '-!- used with a wide range of zsh versions, while using fairly\n'
 209     printf '-!- advanced features in all supported versions.\n'
 210     printf '-!-\n'
 211     printf '-!- However, you are running zsh version %s.\n' "$ZSH_VERSION"
 212     printf '-!-\n'
 213     printf '-!- While this *may* work, it might as well fail.\n'
 214     printf '-!- Please consider updating to at least version 3.1.7 of zsh.\n'
 215     printf '-!-\n'
 216     printf '-!- DO NOT EXPECT THIS TO WORK FLAWLESSLY!\n'
 217     printf '-!- If it does today, you'\''ve been lucky.\n'
 218     printf '-!-\n'
 219     printf '-!- Ye been warned!\n'
 220     printf '-!-\n'
 221
 222     function zstyle() { : }
 223 fi
 224
 225 # autoload wrapper - use this one instead of autoload directly
 226 # We need to define this function as early as this, because autoloading
 227 # 'is-at-least()' needs it.
 228 function zrcautoload() {
 229     emulate -L zsh
 230     setopt extended_glob
 231     local fdir ffile
 232     local -i ffound
 233
 234     ffile=$1
 235     (( found = 0 ))
 236     for fdir in ${fpath} ; do
 237         [[ -e ${fdir}/${ffile} ]] && (( ffound = 1 ))
 238     done
 239
 240     (( ffound == 0 )) && return 1
 241     if [[ $ZSH_VERSION == 3.1.<6-> || $ZSH_VERSION == <4->* ]] ; then
 242         autoload -U ${ffile} || return 1
 243     else
 244         autoload ${ffile} || return 1
 245     fi
 246     return 0
 247 }
 248
 249 # Load is-at-least() for more precise version checks
 250 # Note that this test will *always* fail, if the is-at-least
 251 # function could not be marked for autoloading.
 252 zrcautoload is-at-least || is-at-least() { return 1 }
 253
 254 # set some important options (as early as possible)
 255 setopt append_history       # append history list to the history file (important for multiple parallel zsh sessions!)
 256 is4 && setopt SHARE_HISTORY # import new commands from the history file also in other zsh-session
 257 setopt extended_history     # save each command's beginning timestamp and the duration to the history file
 258 is4 && setopt histignorealldups # If  a  new  command  line being added to the history
 259                             # list duplicates an older one, the older command is removed from the list
 260 setopt histignorespace      # remove command lines from the history list when
 261                             # the first character on the line is a space
 262 setopt auto_cd              # if a command is issued that can't be executed as a normal command,
 263                             # and the command is the name of a directory, perform the cd command to that directory
 264 setopt extended_glob        # in order to use #, ~ and ^ for filename generation
 265                             # grep word *~(*.gz|*.bz|*.bz2|*.zip|*.Z) ->
 266                             # -> searches for word not in compressed files
 267                             # don't forget to quote '^', '~' and '#'!
 268 setopt longlistjobs         # display PID when suspending processes as well
 269 setopt notify               # report the status of backgrounds jobs immediately
 270 setopt hash_list_all        # Whenever a command completion is attempted, make sure \
 271                             # the entire command path is hashed first.
 272 setopt completeinword       # not just at the end
 273 setopt nohup                # and don't kill them, either
 274 setopt auto_pushd           # make cd push the old directory onto the directory stack.
 275 setopt nonomatch            # try to avoid the 'zsh: no matches found...'
 276 setopt nobeep               # avoid "beep"ing
 277 setopt pushd_ignore_dups    # don't push the same dir twice.
 278 setopt noglobdots           # * shouldn't match dotfiles. ever.
 279 setopt noshwordsplit        # use zsh style word splitting
 280 setopt unset                # don't error out when unset parameters are used
 281
 282 # setting some default values
 283
 284 NOCOR=${NOCOR:-0}
 285 NOMENU=${NOMENU:-0}
 286 NOPRECMD=${NOPRECMD:-0}
 287 COMMAND_NOT_FOUND=${COMMAND_NOT_FOUND:-0}
 288 GRML_ZSH_CNF_HANDLER=${GRML_ZSH_CNF_HANDLER:-/usr/share/command-not-found/command-not-found}
 289 BATTERY=${BATTERY:-0}
 290 GRMLSMALL_SPECIFIC=${GRMLSMALL_SPECIFIC:-1}
 291 GRML_ALWAYS_LOAD_ALL=${GRML_ALWAYS_LOAD_ALL:-0}
 292 ZSH_NO_DEFAULT_LOCALE=${ZSH_NO_DEFAULT_LOCALE:-0}
 293
 294 # utility functions
 295 # this function checks if a command exists and returns either true
 296 # or false. This avoids using 'which' and 'whence', which will
 297 # avoid problems with aliases for which on certain weird systems. :-)
 298 # Usage: check_com [-c|-g] word
 299 #   -c  only checks for external commands
 300 #   -g  does the usual tests and also checks for global aliases
 301 check_com() {
 302     emulate -L zsh
 303     local -i comonly gatoo
 304
 305     if [[ $1 == '-c' ]] ; then
 306         (( comonly = 1 ))
 307         shift
 308     elif [[ $1 == '-g' ]] ; then
 309         (( gatoo = 1 ))
 310     else
 311         (( comonly = 0 ))
 312         (( gatoo = 0 ))
 313     fi
 314
 315     if (( ${#argv} != 1 )) ; then
 316         printf 'usage: check_com [-c] <command>\n' >&2
 317         return 1
 318     fi
 319
 320     if (( comonly > 0 )) ; then
 321         [[ -n ${commands[$1]}  ]] && return 0
 322         return 1
 323     fi
 324
 325     if   [[ -n ${commands[$1]}    ]] \
 326       || [[ -n ${functions[$1]}   ]] \
 327       || [[ -n ${aliases[$1]}     ]] \
 328       || [[ -n ${reswords[(r)$1]} ]] ; then
 329
 330         return 0
 331     fi
 332
 333     if (( gatoo > 0 )) && [[ -n ${galiases[$1]} ]] ; then
 334         return 0
 335     fi
 336
 337     return 1
 338 }
 339
 340 # creates an alias and precedes the command with
 341 # sudo if $EUID is not zero.
 342 salias() {
 343     emulate -L zsh
 344     local only=0 ; local multi=0
 345     while [[ $1 == -* ]] ; do
 346         case $1 in
 347             (-o) only=1 ;;
 348             (-a) multi=1 ;;
 349             (--) shift ; break ;;
 350             (-h)
 351                 printf 'usage: salias [-h|-o|-a] <alias-expression>\n'
 352                 printf '  -h      shows this help text.\n'
 353                 printf '  -a      replace '\'' ; '\'' sequences with '\'' ; sudo '\''.\n'
 354                 printf '          be careful using this option.\n'
 355                 printf '  -o      only sets an alias if a preceding sudo would be needed.\n'
 356                 return 0
 357                 ;;
 358             (*) printf "unkown option: '%s'\n" "$1" ; return 1 ;;
 359         esac
 360         shift
 361     done
 362
 363     if (( ${#argv} > 1 )) ; then
 364         printf 'Too many arguments %s\n' "${#argv}"
 365         return 1
 366     fi
 367
 368     key="${1%%\=*}" ;  val="${1#*\=}"
 369     if (( EUID == 0 )) && (( only == 0 )); then
 370         alias -- "${key}=${val}"
 371     elif (( EUID > 0 )) ; then
 372         (( multi > 0 )) && val="${val// ; / ; sudo }"
 373         alias -- "${key}=sudo ${val}"
 374     fi
 375
 376     return 0
 377 }
 378
 379 # a "print -l ${(u)foo}"-workaround for pre-4.2.0 shells
 380 # usage: uprint foo
 381 #   Where foo is the *name* of the parameter you want printed.
 382 #   Note that foo is no typo; $foo would be wrong here!
 383 if ! is42 ; then
 384     uprint () {
 385         emulate -L zsh
 386         local -a u
 387         local w
 388         local parameter=$1
 389
 390         if [[ -z ${parameter} ]] ; then
 391             printf 'usage: uprint <parameter>\n'
 392             return 1
 393         fi
 394
 395         for w in ${(P)parameter} ; do
 396             [[ -z ${(M)u:#$w} ]] && u=( $u $w )
 397         done
 398
 399         builtin print -l $u
 400     }
 401 fi
 402
 403 # Check if we can read given files and source those we can.
 404 xsource() {
 405     if (( ${#argv} < 1 )) ; then
 406         printf 'usage: xsource FILE(s)...\n' >&2
 407         return 1
 408     fi
 409
 410     while (( ${#argv} > 0 )) ; do
 411         [[ -r "$1" ]] && source "$1"
 412         shift
 413     done
 414     return 0
 415 }
 416
 417 # Check if we can read a given file and 'cat(1)' it.
 418 xcat() {
 419     emulate -L zsh
 420     if (( ${#argv} != 1 )) ; then
 421         printf 'usage: xcat FILE\n' >&2
 422         return 1
 423     fi
 424
 425     [[ -r $1 ]] && cat $1
 426     return 0
 427 }
 428
 429 # Remove these functions again, they are of use only in these
 430 # setup files. This should be called at the end of .zshrc.
 431 xunfunction() {
 432     emulate -L zsh
 433     local -a funcs
 434     funcs=(salias xcat xsource xunfunction zrcautoload)
 435
 436     for func in $funcs ; do
 437         [[ -n ${functions[$func]} ]] \
 438             && unfunction $func
 439     done
 440     return 0
 441 }
 442
 443 # this allows us to stay in sync with grml's zshrc and put own
 444 # modifications in ~/.zshrc.local
 445 zrclocal() {
 446     xsource "/etc/zsh/zshrc.local"
 447     xsource "${HOME}/.zshrc.local"
 448     return 0
 449 }
 450
 451 # locale setup
 452 if (( ZSH_NO_DEFAULT_LOCALE == 0 )); then
 453     xsource "/etc/default/locale"
 454 fi
 455
 456 for var in LANG LC_ALL LC_MESSAGES ; do
 457     [[ -n ${(P)var} ]] && export $var
 458 done
 459
 460 xsource "/etc/sysconfig/keyboard"
 461
 462 TZ=$(xcat /etc/timezone)
 463
 464 # set some variables
 465 if check_com -c vim ; then
 466 #v#
 467     export EDITOR=${EDITOR:-vim}
 468 else
 469     export EDITOR=${EDITOR:-vi}
 470 fi
 471
 472 #v#
 473 export PAGER=${PAGER:-less}
 474
 475 #v#
 476 export MAIL=${MAIL:-/var/mail/$USER}
 477
 478 # if we don't set $SHELL then aterm, rxvt,.. will use /bin/sh or /bin/bash :-/
 479 export SHELL='/bin/zsh'
 480
 481 # color setup for ls:
 482 check_com -c dircolors && eval $(dircolors -b)
 483 # color setup for ls on OS X:
 484 isdarwin && export CLICOLOR=1
 485
 486 # do MacPorts setup on darwin
 487 if isdarwin && [[ -d /opt/local ]]; then
 488     # Note: PATH gets set in /etc/zprofile on Darwin, so this can't go into
 489     # zshenv.
 490     PATH="/opt/local/bin:/opt/local/sbin:$PATH"
 491     MANPATH="/opt/local/share/man:$MANPATH"
 492 fi
 493 # do Fink setup on darwin
 494 isdarwin && xsource /sw/bin/init.sh
 495
 496 # load our function and completion directories
 497 for fdir in /usr/share/grml/zsh/completion /usr/share/grml/zsh/functions; do
 498     fpath=( ${fdir} ${fdir}/**/*(/N) ${fpath} )
 499     if [[ ${fpath} == '/usr/share/grml/zsh/functions' ]] ; then
 500         for func in ${fdir}/**/[^_]*[^~](N.) ; do
 501             zrcautoload ${func:t}
 502         done
 503     fi
 504 done
 505 unset fdir func
 506
 507 # support colors in less
 508 export LESS_TERMCAP_mb=$'\E[01;31m'
 509 export LESS_TERMCAP_md=$'\E[01;31m'
 510 export LESS_TERMCAP_me=$'\E[0m'
 511 export LESS_TERMCAP_se=$'\E[0m'
 512 export LESS_TERMCAP_so=$'\E[01;44;33m'
 513 export LESS_TERMCAP_ue=$'\E[0m'
 514 export LESS_TERMCAP_us=$'\E[01;32m'
 515
 516 MAILCHECK=30       # mailchecks
 517 REPORTTIME=5       # report about cpu-/system-/user-time of command if running longer than 5 seconds
 518 watch=(notme root) # watch for everyone but me and root
 519
 520 # automatically remove duplicates from these arrays
 521 typeset -U path cdpath fpath manpath
 522
 523 # keybindings
 524 if [[ "$TERM" != emacs ]] ; then
 525     [[ -z "$terminfo[kdch1]" ]] || bindkey -M emacs "$terminfo[kdch1]" delete-char
 526     [[ -z "$terminfo[khome]" ]] || bindkey -M emacs "$terminfo[khome]" beginning-of-line
 527     [[ -z "$terminfo[kend]"  ]] || bindkey -M emacs "$terminfo[kend]"  end-of-line
 528     [[ -z "$terminfo[kdch1]" ]] || bindkey -M vicmd "$terminfo[kdch1]" vi-delete-char
 529     [[ -z "$terminfo[khome]" ]] || bindkey -M vicmd "$terminfo[khome]" vi-beginning-of-line
 530     [[ -z "$terminfo[kend]"  ]] || bindkey -M vicmd "$terminfo[kend]"  vi-end-of-line
 531     [[ -z "$terminfo[cuu1]"  ]] || bindkey -M viins "$terminfo[cuu1]"  vi-up-line-or-history
 532     [[ -z "$terminfo[cuf1]"  ]] || bindkey -M viins "$terminfo[cuf1]"  vi-forward-char
 533     [[ -z "$terminfo[kcuu1]" ]] || bindkey -M viins "$terminfo[kcuu1]" vi-up-line-or-history
 534     [[ -z "$terminfo[kcud1]" ]] || bindkey -M viins "$terminfo[kcud1]" vi-down-line-or-history
 535     [[ -z "$terminfo[kcuf1]" ]] || bindkey -M viins "$terminfo[kcuf1]" vi-forward-char
 536     [[ -z "$terminfo[kcub1]" ]] || bindkey -M viins "$terminfo[kcub1]" vi-backward-char
 537     # ncurses stuff:
 538     [[ "$terminfo[kcuu1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcuu1]/O/[}" vi-up-line-or-history
 539     [[ "$terminfo[kcud1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcud1]/O/[}" vi-down-line-or-history
 540     [[ "$terminfo[kcuf1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcuf1]/O/[}" vi-forward-char
 541     [[ "$terminfo[kcub1]" == $'\eO'* ]] && bindkey -M viins "${terminfo[kcub1]/O/[}" vi-backward-char
 542     [[ "$terminfo[khome]" == $'\eO'* ]] && bindkey -M viins "${terminfo[khome]/O/[}" beginning-of-line
 543     [[ "$terminfo[kend]"  == $'\eO'* ]] && bindkey -M viins "${terminfo[kend]/O/[}"  end-of-line
 544     [[ "$terminfo[khome]" == $'\eO'* ]] && bindkey -M emacs "${terminfo[khome]/O/[}" beginning-of-line
 545     [[ "$terminfo[kend]"  == $'\eO'* ]] && bindkey -M emacs "${terminfo[kend]/O/[}"  end-of-line
 546 fi
 547
 548 ## keybindings (run 'bindkeys' for details, more details via man zshzle)
 549 # use emacs style per default:
 550 bindkey -e
 551 # use vi style:
 552 # bindkey -v
 553
 554 ## beginning-of-line OR beginning-of-buffer OR beginning of history
 555 ## by: Bart Schaefer <schaefer@brasslantern.com>, Bernhard Tittelbach
 556 beginning-or-end-of-somewhere() {
 557     local hno=$HISTNO
 558     if [[ ( "${LBUFFER[-1]}" == $'\n' && "${WIDGET}" == beginning-of* ) || \
 559       ( "${RBUFFER[1]}" == $'\n' && "${WIDGET}" == end-of* ) ]]; then
 560         zle .${WIDGET:s/somewhere/buffer-or-history/} "$@"
 561     else
 562         zle .${WIDGET:s/somewhere/line-hist/} "$@"
 563         if (( HISTNO != hno )); then
 564             zle .${WIDGET:s/somewhere/buffer-or-history/} "$@"
 565         fi
 566     fi
 567 }
 568 zle -N beginning-of-somewhere beginning-or-end-of-somewhere
 569 zle -N end-of-somewhere beginning-or-end-of-somewhere
 570
 571
 572 #if [[ "$TERM" == screen ]] ; then
 573
 574 ## with HOME/END, move to beginning/end of line (on multiline) on first keypress
 575 ## to beginning/end of buffer on second keypress
 576 ## and to beginning/end of history on (at most) the third keypress
 577 # terminator & non-debian xterm
 578 bindkey '\eOH' beginning-of-somewhere  # home
 579 bindkey '\eOF' end-of-somewhere        # end
 580 # freebsd console
 581 bindkey '\e[H' beginning-of-somewhere   # home
 582 bindkey '\e[F' end-of-somewhere         # end
 583 # xterm,gnome-terminal,quake,etc
 584 bindkey '^[[1~' beginning-of-somewhere  # home
 585 bindkey '^[[4~' end-of-somewhere        # end
 586 # if terminal type is set to 'rxvt':
 587 bindkey '\e[7~' beginning-of-somewhere  # home
 588 bindkey '\e[8~' end-of-somewhere        # end
 589 #fi
 590
 591 bindkey '\e[A'  up-line-or-search       # cursor up
 592 bindkey '\e[B'  down-line-or-search     # <ESC>-
 593
 594 ## alt-backspace is already the default for backwards-delete-word
 595 ## let's also set alt-delete for deleting current word (right of cursor)
 596 #k# Kill right-side word
 597 bindkey "3~" delete-word
 598
 599 ## use Ctrl-left-arrow and Ctrl-right-arrow for jumping to word-beginnings on the CL
 600 bindkey "\e[5C" forward-word
 601 bindkey "\e[5D" backward-word
 602 bindkey "\e[1;5C" forward-word
 603 bindkey "\e[1;5D" backward-word
 604 ## the same for alt-left-arrow and alt-right-arrow
 605 bindkey '^[[1;3C' forward-word
 606 bindkey '^[[1;3D' backward-word
 607
 608 # Search backward in the history for a line beginning with the current
 609 # line up to the cursor and move the cursor to the end of the line then
 610 zle -N history-beginning-search-backward-end history-search-end
 611 zle -N history-beginning-search-forward-end  history-search-end
 612 #k# search history backward for entry beginning with typed text
 613 bindkey '^xp'   history-beginning-search-backward-end
 614 #k# search history forward for entry beginning with typed text
 615 bindkey '^xP'   history-beginning-search-forward-end
 616 #k# search history backward for entry beginning with typed text
 617 bindkey "\e[5~" history-beginning-search-backward-end # PageUp
 618 #k# search history forward for entry beginning with typed text
 619 bindkey "\e[6~" history-beginning-search-forward-end  # PageDown
 620
 621 # bindkey -s '^L' "|less\n"             # ctrl-L pipes to less
 622 # bindkey -s '^B' " &\n"                # ctrl-B runs it in the background
 623
 624 # insert unicode character
 625 # usage example: 'ctrl-x i' 00A7 'ctrl-x i' will give you an §
 626 # See for example http://unicode.org/charts/ for unicode characters code
 627 zrcautoload insert-unicode-char
 628 zle -N insert-unicode-char
 629 #k# Insert Unicode character
 630 bindkey '^Xi' insert-unicode-char
 631
 632 #m# k Shift-tab Perform backwards menu completion
 633 if [[ -n "$terminfo[kcbt]" ]]; then
 634     bindkey "$terminfo[kcbt]" reverse-menu-complete
 635 elif [[ -n "$terminfo[cbt]" ]]; then # required for GNU screen
 636     bindkey "$terminfo[cbt]"  reverse-menu-complete
 637 fi
 638
 639 ## toggle the ,. abbreviation feature on/off
 640 # NOABBREVIATION: default abbreviation-state
 641 #                 0 - enabled (default)
 642 #                 1 - disabled
 643 NOABBREVIATION=${NOABBREVIATION:-0}
 644
 645 grml_toggle_abbrev() {
 646     if (( ${NOABBREVIATION} > 0 )) ; then
 647         NOABBREVIATION=0
 648     else
 649         NOABBREVIATION=1
 650     fi
 651 }
 652
 653 zle -N grml_toggle_abbrev
 654 bindkey '^xA' grml_toggle_abbrev
 655
 656 # add a command line to the shells history without executing it
 657 commit-to-history() {
 658     print -s ${(z)BUFFER}
 659     zle send-break
 660 }
 661 zle -N commit-to-history
 662 bindkey "^x^h" commit-to-history
 663
 664 # only slash should be considered as a word separator:
 665 slash-backward-kill-word() {
 666     local WORDCHARS="${WORDCHARS:s@/@}"
 667     # zle backward-word
 668     zle backward-kill-word
 669 }
 670 zle -N slash-backward-kill-word
 671
 672 #k# Kill left-side word or everything up to next slash
 673 bindkey '\ev' slash-backward-kill-word
 674 #k# Kill left-side word or everything up to next slash
 675 bindkey '\e^h' slash-backward-kill-word
 676 #k# Kill left-side word or everything up to next slash
 677 bindkey '\e^?' slash-backward-kill-word
 678
 679 # use the new *-pattern-* widgets for incremental history search
 680 if is439 ; then
 681     bindkey '^r' history-incremental-pattern-search-backward
 682     bindkey '^s' history-incremental-pattern-search-forward
 683 fi
 684
 685 # a generic accept-line wrapper
 686
 687 # This widget can prevent unwanted autocorrections from command-name
 688 # to _command-name, rehash automatically on enter and call any number
 689 # of builtin and user-defined widgets in different contexts.
 690 #
 691 # For a broader description, see:
 692 # <http://bewatermyfriend.org/posts/2007/12-26.11-50-38-tooltime.html>
 693 #
 694 # The code is imported from the file 'zsh/functions/accept-line' from
 695 # <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>, which
 696 # distributed under the same terms as zsh itself.
 697
 698 # A newly added command will may not be found or will cause false
 699 # correction attempts, if you got auto-correction set. By setting the
 700 # following style, we force accept-line() to rehash, if it cannot
 701 # find the first word on the command line in the $command[] hash.
 702 zstyle ':acceptline:*' rehash true
 703
 704 function Accept-Line() {
 705     setopt localoptions noksharrays
 706     local -a subs
 707     local -xi aldone
 708     local sub
 709     local alcontext=${1:-$alcontext}
 710
 711     zstyle -a ":acceptline:${alcontext}" actions subs
 712
 713     (( ${#subs} < 1 )) && return 0
 714
 715     (( aldone = 0 ))
 716     for sub in ${subs} ; do
 717         [[ ${sub} == 'accept-line' ]] && sub='.accept-line'
 718         zle ${sub}
 719
 720         (( aldone > 0 )) && break
 721     done
 722 }
 723
 724 function Accept-Line-getdefault() {
 725     emulate -L zsh
 726     local default_action
 727
 728     zstyle -s ":acceptline:${alcontext}" default_action default_action
 729     case ${default_action} in
 730         ((accept-line|))
 731             printf ".accept-line"
 732             ;;
 733         (*)
 734             printf ${default_action}
 735             ;;
 736     esac
 737 }
 738
 739 function Accept-Line-HandleContext() {
 740     zle Accept-Line
 741
 742     default_action=$(Accept-Line-getdefault)
 743     zstyle -T ":acceptline:${alcontext}" call_default \
 744         && zle ${default_action}
 745 }
 746
 747 function accept-line() {
 748     setopt localoptions noksharrays
 749     local -ax cmdline
 750     local -x alcontext
 751     local buf com fname format msg default_action
 752
 753     alcontext='default'
 754     buf="${BUFFER}"
 755     cmdline=(${(z)BUFFER})
 756     com="${cmdline[1]}"
 757     fname="_${com}"
 758
 759     Accept-Line 'preprocess'
 760
 761     zstyle -t ":acceptline:${alcontext}" rehash \
 762         && [[ -z ${commands[$com]} ]]           \
 763         && rehash
 764
 765     if    [[ -n ${com}               ]] \
 766        && [[ -n ${reswords[(r)$com]} ]] \
 767        || [[ -n ${aliases[$com]}     ]] \
 768        || [[ -n ${functions[$com]}   ]] \
 769        || [[ -n ${builtins[$com]}    ]] \
 770        || [[ -n ${commands[$com]}    ]] ; then
 771
 772         # there is something sensible to execute, just do it.
 773         alcontext='normal'
 774         Accept-Line-HandleContext
 775
 776         return
 777     fi
 778
 779     if    [[ -o correct              ]] \
 780        || [[ -o correctall           ]] \
 781        && [[ -n ${functions[$fname]} ]] ; then
 782
 783         # nothing there to execute but there is a function called
 784         # _command_name; a completion widget. Makes no sense to
 785         # call it on the commandline, but the correct{,all} options
 786         # will ask for it nevertheless, so warn the user.
 787         if [[ ${LASTWIDGET} == 'accept-line' ]] ; then
 788             # Okay, we warned the user before, he called us again,
 789             # so have it his way.
 790             alcontext='force'
 791             Accept-Line-HandleContext
 792
 793             return
 794         fi
 795
 796         if zstyle -t ":acceptline:${alcontext}" nocompwarn ; then
 797             alcontext='normal'
 798             Accept-Line-HandleContext
 799         else
 800             # prepare warning message for the user, configurable via zstyle.
 801             zstyle -s ":acceptline:${alcontext}" compwarnfmt msg
 802
 803             if [[ -z ${msg} ]] ; then
 804                 msg="%c will not execute and completion %f exists."
 805             fi
 806
 807             zformat -f msg "${msg}" "c:${com}" "f:${fname}"
 808
 809             zle -M -- "${msg}"
 810         fi
 811         return
 812     elif [[ -n ${buf//[$' \t\n']##/} ]] ; then
 813         # If we are here, the commandline contains something that is not
 814         # executable, which is neither subject to _command_name correction
 815         # and is not empty. might be a variable assignment
 816         alcontext='misc'
 817         Accept-Line-HandleContext
 818
 819         return
 820     fi
 821
 822     # If we got this far, the commandline only contains whitespace, or is empty.
 823     alcontext='empty'
 824     Accept-Line-HandleContext
 825 }
 826
 827 zle -N accept-line
 828 zle -N Accept-Line
 829 zle -N Accept-Line-HandleContext
 830
 831 # power completion - abbreviation expansion
 832 # power completion / abbreviation expansion / buffer expansion
 833 # see http://zshwiki.org/home/examples/zleiab for details
 834 # less risky than the global aliases but powerful as well
 835 # just type the abbreviation key and afterwards ',.' to expand it
 836 declare -A abk
 837 setopt extendedglob
 838 setopt interactivecomments
 839 abk=(
 840 #   key   # value                  (#d additional doc string)
 841 #A# start
 842     '...'  '../..'
 843     '....' '../../..'
 844     'BG'   '& exit'
 845     'C'    '| wc -l'
 846     'G'    '|& grep --color=auto '
 847     'H'    '| head'
 848     'Hl'   ' --help |& less -r'    #d (Display help in pager)
 849     'L'    '| less'
 850     'LL'   '|& less -r'
 851     'M'    '| most'
 852     'N'    '&>/dev/null'           #d (No Output)
 853     'R'    '| tr A-z N-za-m'       #d (ROT13)
 854     'SL'   '| sort | less'
 855     'S'    '| sort -u'
 856     'T'    '| tail'
 857     'V'    '|& vim -'
 858 #A# end
 859     'co'   './configure && make && sudo make install'
 860 )
 861
 862 globalias() {
 863     emulate -L zsh
 864     setopt extendedglob
 865     local MATCH
 866
 867     if (( NOABBREVIATION > 0 )) ; then
 868         LBUFFER="${LBUFFER},."
 869         return 0
 870     fi
 871
 872     matched_chars='[.-|_a-zA-Z0-9]#'
 873     LBUFFER=${LBUFFER%%(#m)[.-|_a-zA-Z0-9]#}
 874     LBUFFER+=${abk[$MATCH]:-$MATCH}
 875 }
 876
 877 zle -N globalias
 878 bindkey ",." globalias
 879
 880 # autoloading
 881 zrcautoload zmv    # who needs mmv or rename?
 882 zrcautoload history-search-end
 883
 884 # we don't want to quote/espace URLs on our own...
 885 # if autoload -U url-quote-magic ; then
 886 #    zle -N self-insert url-quote-magic
 887 #    zstyle ':url-quote-magic:*' url-metas '*?[]^()~#{}='
 888 # else
 889 #    print 'Notice: no url-quote-magic available :('
 890 # fi
 891 alias url-quote='autoload -U url-quote-magic ; zle -N self-insert url-quote-magic'
 892
 893 #m# k ESC-h Call \kbd{run-help} for the 1st word on the command line
 894 alias run-help >&/dev/null && unalias run-help
 895 for rh in run-help{,-git,-svk,-svn}; do
 896     zrcautoload $rh
 897 done; unset rh
 898
 899 # completion system
 900 if zrcautoload compinit ; then
 901     compinit || print 'Notice: no compinit available :('
 902 else
 903     print 'Notice: no compinit available :('
 904     function zstyle { }
 905     function compdef { }
 906 fi
 907
 908 is4 && zrcautoload zed # use ZLE editor to edit a file or function
 909
 910 is4 && \
 911 for mod in complist deltochar mathfunc ; do
 912     zmodload -i zsh/${mod} 2>/dev/null || print "Notice: no ${mod} available :("
 913 done
 914
 915 # autoload zsh modules when they are referenced
 916 if is4 ; then
 917     zmodload -a  zsh/stat    zstat
 918     zmodload -a  zsh/zpty    zpty
 919     zmodload -ap zsh/mapfile mapfile
 920 fi
 921
 922 if is4 && zrcautoload insert-files && zle -N insert-files ; then
 923     #k# Insert files and test globbing
 924     bindkey "^Xf" insert-files # C-x-f
 925 fi
 926
 927 bindkey ' '   magic-space    # also do history expansion on space
 928 #k# Trigger menu-complete
 929 bindkey '\ei' menu-complete  # menu completion via esc-i
 930
 931 # press esc-e for editing command line in $EDITOR or $VISUAL
 932 if is4 && zrcautoload edit-command-line && zle -N edit-command-line ; then
 933     #k# Edit the current line in \kbd{\$EDITOR}
 934     bindkey '\ee' edit-command-line
 935 fi
 936
 937 if is4 && [[ -n ${(k)modules[zsh/complist]} ]] ; then
 938     #k# menu selection: pick item but stay in the menu
 939     bindkey -M menuselect '\e^M' accept-and-menu-complete
 940     # also use + and INSERT since it's easier to press repeatedly
 941     bindkey -M menuselect "+" accept-and-menu-complete
 942     bindkey -M menuselect "^[[2~" accept-and-menu-complete
 943
 944     # accept a completion and try to complete again by using menu
 945     # completion; very useful with completing directories
 946     # by using 'undo' one's got a simple file browser
 947     bindkey -M menuselect '^o' accept-and-infer-next-history
 948 fi
 949
 950 # press "ctrl-e d" to insert the actual date in the form yyyy-mm-dd
 951 insert-datestamp() { LBUFFER+=${(%):-'%D{%Y-%m-%d}'}; }
 952 zle -N insert-datestamp
 953
 954 #k# Insert a timestamp on the command line (yyyy-mm-dd)
 955 bindkey '^Ed' insert-datestamp
 956
 957 # press esc-m for inserting last typed word again (thanks to caphuso!)
 958 insert-last-typed-word() { zle insert-last-word -- 0 -1 };
 959 zle -N insert-last-typed-word;
 960
 961 #k# Insert last typed word
 962 bindkey "\em" insert-last-typed-word
 963
 964 function grml-zsh-fg() {
 965   if (( ${#jobstates} )); then
 966     zle .push-input
 967     [[ -o hist_ignore_space ]] && BUFFER=' ' || BUFFER=''
 968     BUFFER="${BUFFER}fg"
 969     zle .accept-line
 970   else
 971     zle -M 'No background jobs. Doing nothing.'
 972   fi
 973 }
 974 zle -N grml-zsh-fg
 975 #k# A smart shortcut for \kbd{fg<enter>}
 976 bindkey '^z' grml-zsh-fg
 977
 978 # run command line as user root via sudo:
 979 sudo-command-line() {
 980     [[ -z $BUFFER ]] && zle up-history
 981     if [[ $BUFFER != sudo\ * ]]; then
 982         BUFFER="sudo $BUFFER"
 983         CURSOR=$(( CURSOR+5 ))
 984     fi
 985 }
 986 zle -N sudo-command-line
 987
 988 #k# prepend the current command with "sudo"
 989 bindkey "^Os" sudo-command-line
 990
 991 ### jump behind the first word on the cmdline.
 992 ### useful to add options.
 993 function jump_after_first_word() {
 994     local words
 995     words=(${(z)BUFFER})
 996
 997     if (( ${#words} <= 1 )) ; then
 998         CURSOR=${#BUFFER}
 999     else
1000         CURSOR=${#${words[1]}}
1001     fi
1002 }
1003 zle -N jump_after_first_word
1004 #k# jump to after first word (for adding options)
1005 bindkey '^x1' jump_after_first_word
1006
1007 # complete word from history with menu (from Book: ZSH, OpenSource-Press)
1008 zle -C hist-complete complete-word _generic
1009 zstyle ':completion:hist-complete:*' completer _history
1010 #k# complete word from history with menu
1011 bindkey "^X^X" hist-complete
1012
1013 ## complete word from currently visible Screen or Tmux buffer.
1014 if check_com -c screen || check_com -c tmux; then
1015     _complete_screen_display() {
1016         [[ "$TERM" != "screen" ]] && return 1
1017
1018         local TMPFILE=$(mktemp)
1019         local -U -a _screen_display_wordlist
1020         trap "rm -f $TMPFILE" EXIT
1021
1022         # fill array with contents from screen hardcopy
1023         if ((${+TMUX})); then
1024             #works, but crashes tmux below version 1.4
1025             #luckily tmux -V option to ask for version, was also added in 1.4
1026             tmux -V &>/dev/null || return
1027             tmux -q capture-pane \; save-buffer -b 0 $TMPFILE \; delete-buffer -b 0
1028         else
1029             screen -X hardcopy $TMPFILE
1030             #screen sucks, it dumps in latin1, apparently always. so recode it to system charset
1031             check_com recode && recode latin1 $TMPFILE
1032         fi
1033         _screen_display_wordlist=( ${(QQ)$(<$TMPFILE)} )
1034         # remove PREFIX to be completed from that array
1035         _screen_display_wordlist[${_screen_display_wordlist[(i)$PREFIX]}]=""
1036         compadd -a _screen_display_wordlist
1037     }
1038     #k# complete word from currently visible GNU screen buffer
1039     bindkey -r "^XS"
1040     compdef -k _complete_screen_display complete-word '^XS'
1041 fi
1042
1043 # history
1044
1045 ZSHDIR=$HOME/.zsh
1046
1047 #v#
1048 HISTFILE=$HOME/.zsh_history
1049 isgrmlcd && HISTSIZE=500  || HISTSIZE=5000
1050 isgrmlcd && SAVEHIST=1000 || SAVEHIST=10000 # useful for setopt append_history
1051
1052 # dirstack handling
1053
1054 DIRSTACKSIZE=${DIRSTACKSIZE:-20}
1055 DIRSTACKFILE=${DIRSTACKFILE:-${HOME}/.zdirs}
1056
1057 if [[ -f ${DIRSTACKFILE} ]] && [[ ${#dirstack[*]} -eq 0 ]] ; then
1058     dirstack=( ${(f)"$(< $DIRSTACKFILE)"} )
1059     # "cd -" won't work after login by just setting $OLDPWD, so
1060     [[ -d $dirstack[1] ]] && cd $dirstack[1] && cd $OLDPWD
1061 fi
1062
1063 chpwd() {
1064     local -ax my_stack
1065     my_stack=( ${PWD} ${dirstack} )
1066     if is42 ; then
1067         builtin print -l ${(u)my_stack} >! ${DIRSTACKFILE}
1068     else
1069         uprint my_stack >! ${DIRSTACKFILE}
1070     fi
1071 }
1072
1073 # directory based profiles
1074
1075 if is433 ; then
1076
1077 CHPWD_PROFILE='default'
1078 function chpwd_profiles() {
1079     # Say you want certain settings to be active in certain directories.
1080     # This is what you want.
1081     #
1082     # zstyle ':chpwd:profiles:/usr/src/grml(|/|/*)'   profile grml
1083     # zstyle ':chpwd:profiles:/usr/src/debian(|/|/*)' profile debian
1084     #
1085     # When that's done and you enter a directory that matches the pattern
1086     # in the third part of the context, a function called chpwd_profile_grml,
1087     # for example, is called (if it exists).
1088     #
1089     # If no pattern matches (read: no profile is detected) the profile is
1090     # set to 'default', which means chpwd_profile_default is attempted to
1091     # be called.
1092     #
1093     # A word about the context (the ':chpwd:profiles:*' stuff in the zstyle
1094     # command) which is used: The third part in the context is matched against
1095     # ${PWD}. That's why using a pattern such as /foo/bar(|/|/*) makes sense.
1096     # Because that way the profile is detected for all these values of ${PWD}:
1097     #   /foo/bar
1098     #   /foo/bar/
1099     #   /foo/bar/baz
1100     # So, if you want to make double damn sure a profile works in /foo/bar
1101     # and everywhere deeper in that tree, just use (|/|/*) and be happy.
1102     #
1103     # The name of the detected profile will be available in a variable called
1104     # 'profile' in your functions. You don't need to do anything, it'll just
1105     # be there.
1106     #
1107     # Then there is the parameter $CHPWD_PROFILE is set to the profile, that
1108     # was is currently active. That way you can avoid running code for a
1109     # profile that is already active, by running code such as the following
1110     # at the start of your function:
1111     #
1112     # function chpwd_profile_grml() {
1113     #     [[ ${profile} == ${CHPWD_PROFILE} ]] && return 1
1114     #   ...
1115     # }
1116     #
1117     # The initial value for $CHPWD_PROFILE is 'default'.
1118     #
1119     # Version requirement:
1120     #   This feature requires zsh 4.3.3 or newer.
1121     #   If you use this feature and need to know whether it is active in your
1122     #   current shell, there are several ways to do that. Here are two simple
1123     #   ways:
1124     #
1125     #   a) If knowing if the profiles feature is active when zsh starts is
1126     #      good enough for you, you can put the following snippet into your
1127     #      .zshrc.local:
1128     #
1129     #   (( ${+functions[chpwd_profiles]} )) && print "directory profiles active"
1130     #
1131     #   b) If that is not good enough, and you would prefer to be notified
1132     #      whenever a profile changes, you can solve that by making sure you
1133     #      start *every* profile function you create like this:
1134     #
1135     #   function chpwd_profile_myprofilename() {
1136     #       [[ ${profile} == ${CHPWD_PROFILE} ]] && return 1
1137     #       print "chpwd(): Switching to profile: $profile"
1138     #     ...
1139     #   }
1140     #
1141     #      That makes sure you only get notified if a profile is *changed*,
1142     #      not everytime you change directory, which would probably piss
1143     #      you off fairly quickly. :-)
1144     #
1145     # There you go. Now have fun with that.
1146     local -x profile
1147
1148     zstyle -s ":chpwd:profiles:${PWD}" profile profile || profile='default'
1149     if (( ${+functions[chpwd_profile_$profile]} )) ; then
1150         chpwd_profile_${profile}
1151     fi
1152
1153     CHPWD_PROFILE="${profile}"
1154     return 0
1155 }
1156 chpwd_functions=( ${chpwd_functions} chpwd_profiles )
1157
1158 fi # is433
1159
1160 # display battery status on right side of prompt via running 'BATTERY=1 zsh'
1161 if [[ $BATTERY -gt 0 ]] ; then
1162     if ! check_com -c acpi ; then
1163         BATTERY=0
1164     fi
1165 fi
1166
1167 battery() {
1168 if [[ $BATTERY -gt 0 ]] ; then
1169     PERCENT="${${"$(acpi 2>/dev/null)"}/(#b)[[:space:]]#Battery <->: [^0-9]##, (<->)%*/${match[1]}}"
1170     if [[ -z "$PERCENT" ]] ; then
1171         PERCENT='acpi not present'
1172     else
1173         if [[ "$PERCENT" -lt 20 ]] ; then
1174             PERCENT="warning: ${PERCENT}%%"
1175         else
1176             PERCENT="${PERCENT}%%"
1177         fi
1178     fi
1179 fi
1180 }
1181 # set colors for use in prompts
1182 if zrcautoload colors && colors 2>/dev/null ; then
1183     BLUE="%{${fg[blue]}%}"
1184     RED="%{${fg_bold[red]}%}"
1185     GREEN="%{${fg[green]}%}"
1186     CYAN="%{${fg[cyan]}%}"
1187     MAGENTA="%{${fg[magenta]}%}"
1188     YELLOW="%{${fg[yellow]}%}"
1189     WHITE="%{${fg[white]}%}"
1190     NO_COLOUR="%{${reset_color}%}"
1191 else
1192     BLUE=$'%{\e[1;34m%}'
1193     RED=$'%{\e[1;31m%}'
1194     GREEN=$'%{\e[1;32m%}'
1195     CYAN=$'%{\e[1;36m%}'
1196     WHITE=$'%{\e[1;37m%}'
1197     MAGENTA=$'%{\e[1;35m%}'
1198     YELLOW=$'%{\e[1;33m%}'
1199     NO_COLOUR=$'%{\e[0m%}'
1200 fi
1201
1202 # gather version control information for inclusion in a prompt
1203
1204 if zrcautoload vcs_info; then
1205     # `vcs_info' in zsh versions 4.3.10 and below have a broken `_realpath'
1206     # function, which can cause a lot of trouble with our directory-based
1207     # profiles. So:
1208     if [[ ${ZSH_VERSION} == 4.3.<-10> ]] ; then
1209         function VCS_INFO_realpath () {
1210             setopt localoptions NO_shwordsplit chaselinks
1211             ( builtin cd -q $1 2> /dev/null && pwd; )
1212         }
1213     fi
1214
1215     zstyle ':vcs_info:*' max-exports 2
1216
1217     if [[ -o restricted ]]; then
1218         zstyle ':vcs_info:*' enable NONE
1219     fi
1220 fi
1221
1222 # Change vcs_info formats for the grml prompt. The 2nd format sets up
1223 # $vcs_info_msg_1_ to contain "zsh: repo-name" used to set our screen title.
1224 # TODO: The included vcs_info() version still uses $VCS_INFO_message_N_.
1225 #       That needs to be the use of $VCS_INFO_message_N_ needs to be changed
1226 #       to $vcs_info_msg_N_ as soon as we use the included version.
1227 if [[ "$TERM" == dumb ]] ; then
1228     zstyle ':vcs_info:*' actionformats "(%s%)-[%b|%a] " "zsh: %r"
1229     zstyle ':vcs_info:*' formats       "(%s%)-[%b] "    "zsh: %r"
1230 else
1231     # these are the same, just with a lot of colours:
1232     zstyle ':vcs_info:*' actionformats "${MAGENTA}(${NO_COLOUR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${YELLOW}|${RED}%a${MAGENTA}]${NO_COLOUR} " \
1233                                        "zsh: %r"
1234     zstyle ':vcs_info:*' formats       "${MAGENTA}(${NO_COLOUR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${MAGENTA}]${NO_COLOUR}%} " \
1235                                        "zsh: %r"
1236     zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "%b${RED}:${YELLOW}%r"
1237 fi
1238
1239 # command not found handling
1240
1241 (( ${COMMAND_NOT_FOUND} == 1 )) &&
1242 function command_not_found_handler() {
1243     emulate -L zsh
1244     if [[ -x ${GRML_ZSH_CNF_HANDLER} ]] ; then
1245         ${GRML_ZSH_CNF_HANDLER} $1
1246     fi
1247     return 1
1248 }
1249
1250 # set prompt
1251 if zrcautoload promptinit && promptinit 2>/dev/null ; then
1252     promptinit # people should be able to use their favourite prompt
1253 else
1254     print 'Notice: no promptinit available :('
1255 fi
1256
1257 setopt prompt_subst
1258
1259 # make sure to use right prompt only when not running a command
1260 is41 && setopt transient_rprompt
1261
1262
1263 function ESC_print () {
1264     info_print $'\ek' $'\e\\' "$@"
1265 }
1266 function set_title () {
1267     info_print  $'\e]0;' $'\a' "$@"
1268 }
1269
1270 function info_print () {
1271     local esc_begin esc_end
1272     esc_begin="$1"
1273     esc_end="$2"
1274     shift 2
1275     printf '%s' ${esc_begin}
1276     printf '%s' "$*"
1277     printf '%s' "${esc_end}"
1278 }
1279
1280 # TODO: revise all these NO* variables and especially their documentation
1281 #       in zsh-help() below.
1282 is4 && [[ $NOPRECMD -eq 0 ]] && precmd () {
1283     [[ $NOPRECMD -gt 0 ]] && return 0
1284     # update VCS information
1285     (( ${+functions[vcs_info]} )) && vcs_info
1286
1287     if [[ $TERM == screen* ]] ; then
1288         if [[ -n ${vcs_info_msg_1_} ]] ; then
1289             ESC_print ${vcs_info_msg_1_}
1290         else
1291             ESC_print "zsh"
1292         fi
1293     fi
1294     # just use DONTSETRPROMPT=1 to be able to overwrite RPROMPT
1295     if [[ ${DONTSETRPROMPT:-} -eq 0 ]] ; then
1296         if [[ $BATTERY -gt 0 ]] ; then
1297             # update battery (dropped into $PERCENT) information
1298             battery
1299             RPROMPT="%(?..:() ${PERCENT}"
1300         else
1301             RPROMPT="%(?..:() "
1302         fi
1303     fi
1304     # adjust title of xterm
1305     # see http://www.faqs.org/docs/Linux-mini/Xterm-Title.html
1306     [[ ${NOTITLE:-} -gt 0 ]] && return 0
1307     case $TERM in
1308         (xterm*|rxvt*)
1309             set_title ${(%):-"%n@%m: %~"}
1310             ;;
1311     esac
1312 }
1313
1314 # preexec() => a function running before every command
1315 is4 && [[ $NOPRECMD -eq 0 ]] && \
1316 preexec () {
1317     [[ $NOPRECMD -gt 0 ]] && return 0
1318 # set hostname if not running on host with name 'grml'
1319     if [[ -n "$HOSTNAME" ]] && [[ "$HOSTNAME" != $(hostname) ]] ; then
1320        NAME="@$HOSTNAME"
1321     fi
1322 # get the name of the program currently running and hostname of local machine
1323 # set screen window title if running in a screen
1324     if [[ "$TERM" == screen* ]] ; then
1325         # local CMD=${1[(wr)^(*=*|sudo|ssh|-*)]}       # don't use hostname
1326         local CMD="${1[(wr)^(*=*|sudo|ssh|-*)]}$NAME" # use hostname
1327         ESC_print ${CMD}
1328     fi
1329 # adjust title of xterm
1330     [[ ${NOTITLE} -gt 0 ]] && return 0
1331     case $TERM in
1332         (xterm*|rxvt*)
1333             set_title "${(%):-"%n@%m:"}" "$1"
1334             ;;
1335     esac
1336 }
1337
1338 EXITCODE="%(?..%?%1v )"
1339 PS2='\`%_> '      # secondary prompt, printed when the shell needs more information to complete a command.
1340 PS3='?# '         # selection prompt used within a select loop.
1341 PS4='+%N:%i:%_> ' # the execution trace prompt (setopt xtrace). default: '+%N:%i>'
1342
1343 # set variable debian_chroot if running in a chroot with /etc/debian_chroot
1344 if [[ -z "$debian_chroot" ]] && [[ -r /etc/debian_chroot ]] ; then
1345     debian_chroot=$(cat /etc/debian_chroot)
1346 fi
1347
1348 # don't use colors on dumb terminals (like emacs):
1349 if [[ "$TERM" == dumb ]] ; then
1350     PROMPT="${EXITCODE}${debian_chroot:+($debian_chroot)}%n@%m %40<...<%B%~%b%<< "
1351 else
1352     # only if $GRMLPROMPT is set (e.g. via 'GRMLPROMPT=1 zsh') use the extended prompt
1353     # set variable identifying the chroot you work in (used in the prompt below)
1354     if [[ $GRMLPROMPT -gt 0 ]] ; then
1355         PROMPT="${RED}${EXITCODE}${CYAN}[%j running job(s)] ${GREEN}{history#%!} ${RED}%(3L.+.) ${BLUE}%* %D
1356 ${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "
1357     else
1358         # This assembles the primary prompt string
1359         if (( EUID != 0 )); then
1360             PROMPT="${RED}${EXITCODE}${WHITE}${debian_chroot:+($debian_chroot)}${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "
1361         else
1362             PROMPT="${BLUE}${EXITCODE}${WHITE}${debian_chroot:+($debian_chroot)}${RED}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "
1363         fi
1364     fi
1365 fi
1366
1367 PROMPT="${PROMPT}"'${vcs_info_msg_0_}'"%# "
1368
1369 # if we are inside a grml-chroot set a specific prompt theme
1370 if [[ -n "$GRML_CHROOT" ]] ; then
1371     PROMPT="%{$fg[red]%}(CHROOT) %{$fg_bold[red]%}%n%{$fg_no_bold[white]%}@%m %40<...<%B%~%b%<< %\# "
1372 fi
1373
1374 # 'hash' some often used directories
1375 #d# start
1376 hash -d deb=/var/cache/apt/archives
1377 hash -d doc=/usr/share/doc
1378 hash -d linux=/lib/modules/$(command uname -r)/build/
1379 hash -d log=/var/log
1380 hash -d slog=/var/log/syslog
1381 hash -d src=/usr/src
1382 hash -d templ=/usr/share/doc/grml-templates
1383 hash -d tt=/usr/share/doc/texttools-doc
1384 hash -d www=/var/www
1385 #d# end
1386
1387 # some aliases
1388 if check_com -c screen ; then
1389     if [[ $UID -eq 0 ]] ; then
1390         [[ -r /etc/grml/screenrc ]] && alias screen="${commands[screen]} -c /etc/grml/screenrc"
1391     elif [[ -r $HOME/.screenrc ]] ; then
1392         alias screen="${commands[screen]} -c $HOME/.screenrc"
1393     else
1394         if [[ -r /etc/grml/screenrc_grml ]]; then
1395             alias screen="${commands[screen]} -c /etc/grml/screenrc_grml"
1396         else
1397             [[ -r /etc/grml/screenrc ]] && alias screen="${commands[screen]} -c /etc/grml/screenrc"
1398         fi
1399     fi
1400 fi
1401
1402 # do we have GNU ls with color-support?
1403 if ls --help 2>/dev/null | grep -- --color= >/dev/null && [[ "$TERM" != dumb ]] ; then
1404     #a1# execute \kbd{@a@}:\quad ls with colors
1405     alias ls='ls -b -CF --color=auto'
1406     #a1# execute \kbd{@a@}:\quad list all files, with colors
1407     alias la='ls -la --color=auto'
1408     #a1# long colored list, without dotfiles (@a@)
1409     alias ll='ls -l --color=auto'
1410     #a1# long colored list, human readable sizes (@a@)
1411     alias lh='ls -hAl --color=auto'
1412     #a1# List files, append qualifier to filenames \\&\quad(\kbd{/} for directories, \kbd{@} for symlinks ...)
1413     alias l='ls -lF --color=auto'
1414 else
1415     alias ls='ls -b -CF'
1416     alias la='ls -la'
1417     alias ll='ls -l'
1418     alias lh='ls -hAl'
1419     alias l='ls -lF'
1420 fi
1421
1422 alias mdstat='cat /proc/mdstat'
1423 alias ...='cd ../../'
1424
1425 # generate alias named "$KERNELVERSION-reboot" so you can use boot with kexec:
1426 if [[ -x /sbin/kexec ]] && [[ -r /proc/cmdline ]] ; then
1427     alias "$(uname -r)-reboot"="kexec -l --initrd=/boot/initrd.img-"$(uname -r)" --command-line=\"$(cat /proc/cmdline)\" /boot/vmlinuz-"$(uname -r)""
1428 fi
1429
1430 alias cp='nocorrect cp'         # no spelling correction on cp
1431 alias mkdir='nocorrect mkdir'   # no spelling correction on mkdir
1432 alias mv='nocorrect mv'         # no spelling correction on mv
1433 alias rm='nocorrect rm'         # no spelling correction on rm
1434
1435 #a1# Execute \kbd{rmdir}
1436 alias rd='rmdir'
1437 #a1# Execute \kbd{mkdir}
1438 alias md='mkdir'
1439
1440 # see http://www.cl.cam.ac.uk/~mgk25/unicode.html#term for details
1441 alias term2iso="echo 'Setting terminal to iso mode' ; print -n '\e%@'"
1442 alias term2utf="echo 'Setting terminal to utf-8 mode'; print -n '\e%G'"
1443
1444 # make sure it is not assigned yet
1445 [[ -n ${aliases[utf2iso]} ]] && unalias utf2iso
1446 utf2iso() {
1447     if isutfenv ; then
1448         for ENV in $(env | command grep -i '.utf') ; do
1449             eval export "$(echo $ENV | sed 's/UTF-8/iso885915/ ; s/utf8/iso885915/')"
1450         done
1451     fi
1452 }
1453
1454 # make sure it is not assigned yet
1455 [[ -n ${aliases[iso2utf]} ]] && unalias iso2utf
1456 iso2utf() {
1457     if ! isutfenv ; then
1458         for ENV in $(env | command grep -i '\.iso') ; do
1459             eval export "$(echo $ENV | sed 's/iso.*/UTF-8/ ; s/ISO.*/UTF-8/')"
1460         done
1461     fi
1462 }
1463
1464 # I like clean prompt, so provide simple way to get that
1465 check_com 0 || alias 0='return 0'
1466
1467 # for really lazy people like mika:
1468 check_com S &>/dev/null || alias S='screen'
1469 check_com s &>/dev/null || alias s='ssh'
1470
1471 # especially for roadwarriors using GNU screen and ssh:
1472 if ! check_com asc &>/dev/null ; then
1473   asc() { autossh -t "$@" 'screen -RdU' }
1474   compdef asc=ssh
1475 fi
1476
1477 # get top 10 shell commands:
1478 alias top10='print -l ${(o)history%% *} | uniq -c | sort -nr | head -n 10'
1479
1480 # truecrypt; use e.g. via 'truec /dev/ice /mnt/ice' or 'truec -i'
1481 if check_com -c truecrypt ; then
1482     if isutfenv ; then
1483         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077,utf8" '
1484     else
1485         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077" '
1486     fi
1487 fi
1488
1489 #f1# Hints for the use of zsh on grml
1490 zsh-help() {
1491     print "$bg[white]$fg[black]
1492 zsh-help - hints for use of zsh on grml
1493 =======================================$reset_color"
1494
1495     print '
1496 Main configuration of zsh happens in /etc/zsh/zshrc.
1497 That file is part of the package grml-etc-core, if you want to
1498 use them on a non-grml-system just get the tar.gz from
1499 http://deb.grml.org/ or (preferably) get it from the git repository:
1500
1501   http://git.grml.org/f/grml-etc-core/etc/zsh/zshrc
1502
1503 This version of grml'\''s zsh setup does not use skel/.zshrc anymore.
1504 The file is still there, but it is empty for backwards compatibility.
1505
1506 For your own changes use these two files:
1507     $HOME/.zshrc.pre
1508     $HOME/.zshrc.local
1509
1510 The former is sourced very early in our zshrc, the latter is sourced
1511 very lately.
1512
1513 System wide configuration without touching configuration files of grml
1514 can take place in /etc/zsh/zshrc.local.
1515
1516 Normally, the root user (EUID == 0) does not get the whole grml setup.
1517 If you want to force the whole setup for that user, too, set
1518 GRML_ALWAYS_LOAD_ALL=1 in .zshrc.pre in root'\''s home directory.
1519
1520 For information regarding zsh start at http://grml.org/zsh/
1521
1522 Take a look at grml'\''s zsh refcard:
1523 % xpdf =(zcat /usr/share/doc/grml-docs/zsh/grml-zsh-refcard.pdf.gz)
1524
1525 Check out the main zsh refcard:
1526 % '$BROWSER' http://www.bash2zsh.com/zsh_refcard/refcard.pdf
1527
1528 And of course visit the zsh-lovers:
1529 % man zsh-lovers
1530
1531 You can adjust some options through environment variables when
1532 invoking zsh without having to edit configuration files.
1533 Basically meant for bash users who are not used to the power of
1534 the zsh yet. :)
1535
1536   "NOCOR=1    zsh" => deactivate automatic correction
1537   "NOMENU=1   zsh" => do not use auto menu completion (note: use ctrl-d for completion instead!)
1538   "NOPRECMD=1 zsh" => disable the precmd + preexec commands (set GNU screen title)
1539   "NOTITLE=1  zsh" => disable setting the title of xterms without disabling
1540                       preexec() and precmd() completely
1541   "BATTERY=1  zsh" => activate battery status (via acpi) on right side of prompt
1542   "COMMAND_NOT_FOUND=1 zsh"
1543                    => Enable a handler if an external command was not found
1544                       The command called in the handler can be altered by setting
1545                       the GRML_ZSH_CNF_HANDLER variable, the default is:
1546                       "/usr/share/command-not-found/command-not-found"
1547
1548 A value greater than 0 is enables a feature; a value equal to zero
1549 disables it. If you like one or the other of these settings, you can
1550 add them to ~/.zshrc.pre to ensure they are set when sourcing grml'\''s
1551 zshrc.'
1552
1553     print "
1554 $bg[white]$fg[black]
1555 Please report wishes + bugs to the grml-team: http://grml.org/bugs/
1556 Enjoy your grml system with the zsh!$reset_color"
1557 }
1558
1559 # debian stuff
1560 if [[ -r /etc/debian_version ]] ; then
1561     #a3# Execute \kbd{apt-cache search}
1562     alias acs='apt-cache search'
1563     #a3# Execute \kbd{apt-cache show}
1564     alias acsh='apt-cache show'
1565     #a3# Execute \kbd{apt-cache policy}
1566     alias acp='apt-cache policy'
1567     #a3# Execute \kbd{apt-get dist-upgrade}
1568     salias adg="apt-get dist-upgrade"
1569     #a3# Execute \kbd{apt-get install}
1570     salias agi="apt-get install"
1571     #a3# Execute \kbd{aptitude install}
1572     salias ati="aptitude install"
1573     #a3# Execute \kbd{apt-get upgrade}
1574     salias ag="apt-get upgrade"
1575     #a3# Execute \kbd{apt-get update}
1576     salias au="apt-get update"
1577     #a3# Execute \kbd{aptitude update ; aptitude safe-upgrade}
1578     salias -a up="aptitude update ; aptitude safe-upgrade"
1579     #a3# Execute \kbd{dpkg-buildpackage}
1580     alias dbp='dpkg-buildpackage'
1581     #a3# Execute \kbd{grep-excuses}
1582     alias ge='grep-excuses'
1583
1584     # debian upgrade
1585     #f3# Execute \kbd{apt-get update \&\& }\\&\quad \kbd{apt-get dist-upgrade}
1586     upgrade() {
1587         emulate -L zsh
1588         if [[ -z $1 ]] ; then
1589             $SUDO apt-get update
1590             $SUDO apt-get -u upgrade
1591         else
1592             ssh $1 $SUDO apt-get update
1593             # ask before the upgrade
1594             local dummy
1595             ssh $1 $SUDO apt-get --no-act upgrade
1596             echo -n 'Process the upgrade?'
1597             read -q dummy
1598             if [[ $dummy == "y" ]] ; then
1599                 ssh $1 $SUDO apt-get -u upgrade --yes
1600             fi
1601         fi
1602     }
1603
1604     # get a root shell as normal user in live-cd mode:
1605     if isgrmlcd && [[ $UID -ne 0 ]] ; then
1606        alias su="sudo su"
1607      fi
1608
1609     #a1# Take a look at the syslog: \kbd{\$PAGER /var/log/syslog}
1610     salias llog="$PAGER /var/log/syslog"     # take a look at the syslog
1611     #a1# Take a look at the syslog: \kbd{tail -f /var/log/syslog}
1612     salias tlog="tail -f /var/log/syslog"    # follow the syslog
1613 fi
1614
1615 # sort installed Debian-packages by size
1616 if check_com -c dpkg-query ; then
1617     #a3# List installed Debian-packages sorted by size
1618     alias debs-by-size="dpkg-query -Wf 'x \${Installed-Size} \${Package} \${Status}\n' | sed -ne '/^x  /d' -e '/^x \(.*\) install ok installed$/s//\1/p' | sort -nr"
1619 fi
1620
1621 # if cdrecord is a symlink (to wodim) or isn't present at all warn:
1622 if [[ -L /usr/bin/cdrecord ]] || ! check_com -c cdrecord; then
1623     if check_com -c wodim; then
1624         cdrecord() {
1625             cat <<EOMESS
1626 cdrecord is not provided under its original name by Debian anymore.
1627 See #377109 in the BTS of Debian for more details.
1628
1629 Please use the wodim binary instead
1630 EOMESS
1631             return 1
1632         }
1633     fi
1634 fi
1635
1636 # get_tw_cli has been renamed into get_3ware
1637 if check_com -c get_3ware ; then
1638     get_tw_cli() {
1639         echo 'Warning: get_tw_cli has been renamed into get_3ware. Invoking get_3ware for you.'>&2
1640         get_3ware
1641     }
1642 fi
1643
1644 # I hate lacking backward compatibility, so provide an alternative therefore
1645 if ! check_com -c apache2-ssl-certificate ; then
1646
1647     apache2-ssl-certificate() {
1648
1649     print 'Debian does not ship apache2-ssl-certificate anymore (see #398520). :('
1650     print 'You might want to take a look at Debian the package ssl-cert as well.'
1651     print 'To generate a certificate for use with apache2 follow the instructions:'
1652
1653     echo '
1654
1655 export RANDFILE=/dev/random
1656 mkdir /etc/apache2/ssl/
1657 openssl req $@ -new -x509 -days 365 -nodes -out /etc/apache2/ssl/apache.pem -keyout /etc/apache2/ssl/apache.pem
1658 chmod 600 /etc/apache2/ssl/apache.pem
1659
1660 Run "grml-tips ssl-certificate" if you need further instructions.
1661 '
1662     }
1663 fi
1664
1665 # Use hard limits, except for a smaller stack and no core dumps
1666 unlimit
1667 is425 && limit stack 8192
1668 isgrmlcd && limit core 0 # important for a live-cd-system
1669 limit -s
1670
1671 # completion system
1672
1673 # called later (via is4 && grmlcomp)
1674 # note: use 'zstyle' for getting current settings
1675 #         press ^Xh (control-x h) for getting tags in context; ^X? (control-x ?) to run complete_debug with trace output
1676 grmlcomp() {
1677     # TODO: This could use some additional information
1678
1679     # allow one error for every three characters typed in approximate completer
1680     zstyle ':completion:*:approximate:'    max-errors 'reply=( $((($#PREFIX+$#SUFFIX)/3 )) numeric )'
1681
1682     # don't complete backup files as executables
1683     zstyle ':completion:*:complete:-command-::commands' ignored-patterns '(aptitude-*|*\~)'
1684
1685     # start menu completion only if it could find no unambiguous initial string
1686     zstyle ':completion:*:correct:*'       insert-unambiguous true
1687     zstyle ':completion:*:corrections'     format $'%{\e[0;31m%}%d (errors: %e)%{\e[0m%}'
1688     zstyle ':completion:*:correct:*'       original true
1689
1690     # activate color-completion
1691     zstyle ':completion:*:default'         list-colors ${(s.:.)LS_COLORS}
1692
1693     # format on completion
1694     zstyle ':completion:*:descriptions'    format $'%{\e[0;31m%}completing %B%d%b%{\e[0m%}'
1695
1696     # automatically complete 'cd -<tab>' and 'cd -<ctrl-d>' with menu
1697     # zstyle ':completion:*:*:cd:*:directory-stack' menu yes select
1698
1699     # insert all expansions for expand completer
1700     zstyle ':completion:*:expand:*'        tag-order all-expansions
1701     zstyle ':completion:*:history-words'   list false
1702
1703     # activate menu
1704     zstyle ':completion:*:history-words'   menu yes
1705
1706     # ignore duplicate entries
1707     zstyle ':completion:*:history-words'   remove-all-dups yes
1708     zstyle ':completion:*:history-words'   stop yes
1709
1710     # match uppercase from lowercase
1711     zstyle ':completion:*'                 matcher-list 'm:{a-z}={A-Z}'
1712
1713     # separate matches into groups
1714     zstyle ':completion:*:matches'         group 'yes'
1715     zstyle ':completion:*'                 group-name ''
1716
1717     if [[ "$NOMENU" -eq 0 ]] ; then
1718         # if there are more than 5 options allow selecting from a menu
1719         zstyle ':completion:*'               menu select=5
1720     else
1721         # don't use any menus at all
1722         setopt no_auto_menu
1723     fi
1724
1725     zstyle ':completion:*:messages'        format '%d'
1726     zstyle ':completion:*:options'         auto-description '%d'
1727
1728     # describe options in full
1729     zstyle ':completion:*:options'         description 'yes'
1730
1731     # on processes completion complete all user processes
1732     zstyle ':completion:*:processes'       command 'ps -au$USER'
1733
1734     # offer indexes before parameters in subscripts
1735     zstyle ':completion:*:*:-subscript-:*' tag-order indexes parameters
1736
1737     # provide verbose completion information
1738     zstyle ':completion:*'                 verbose true
1739
1740     # recent (as of Dec 2007) zsh versions are able to provide descriptions
1741     # for commands (read: 1st word in the line) that it will list for the user
1742     # to choose from. The following disables that, because it's not exactly fast.
1743     zstyle ':completion:*:-command-:*:'    verbose false
1744
1745     # set format for warnings
1746     zstyle ':completion:*:warnings'        format $'%{\e[0;31m%}No matches for:%{\e[0m%} %d'
1747
1748     # define files to ignore for zcompile
1749     zstyle ':completion:*:*:zcompile:*'    ignored-patterns '(*~|*.zwc)'
1750     zstyle ':completion:correct:'          prompt 'correct to: %e'
1751
1752     # Ignore completion functions for commands you don't have:
1753     zstyle ':completion::(^approximate*):*:functions' ignored-patterns '_*'
1754
1755     # Provide more processes in completion of programs like killall:
1756     zstyle ':completion:*:processes-names' command 'ps c -u ${USER} -o command | uniq'
1757
1758     # complete manual by their section
1759     zstyle ':completion:*:manuals'    separate-sections true
1760     zstyle ':completion:*:manuals.*'  insert-sections   true
1761     zstyle ':completion:*:man:*'      menu yes select
1762
1763     # provide .. as a completion
1764     zstyle ':completion:*' special-dirs ..
1765
1766     # run rehash on completion so new installed program are found automatically:
1767     _force_rehash() {
1768         (( CURRENT == 1 )) && rehash
1769         return 1
1770     }
1771
1772     ## correction
1773     # some people don't like the automatic correction - so run 'NOCOR=1 zsh' to deactivate it
1774     if [[ "$NOCOR" -gt 0 ]] ; then
1775         zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete _files _ignored
1776         setopt nocorrect
1777     else
1778         # try to be smart about when to use what completer...
1779         setopt correct
1780         zstyle -e ':completion:*' completer '
1781             if [[ $_last_try != "$HISTNO$BUFFER$CURSOR" ]] ; then
1782                 _last_try="$HISTNO$BUFFER$CURSOR"
1783                 reply=(_complete _match _ignored _prefix _files)
1784             else
1785                 if [[ $words[1] == (rm|mv) ]] ; then
1786                     reply=(_complete _files)
1787                 else
1788                     reply=(_oldlist _expand _force_rehash _complete _ignored _correct _approximate _files)
1789                 fi
1790             fi'
1791     fi
1792
1793     # command for process lists, the local web server details and host completion
1794     zstyle ':completion:*:urls' local 'www' '/var/www/' 'public_html'
1795
1796     # caching
1797     [[ -d $ZSHDIR/cache ]] && zstyle ':completion:*' use-cache yes && \
1798                             zstyle ':completion::complete:*' cache-path $ZSHDIR/cache/
1799
1800     # host completion
1801     if is42 ; then
1802         [[ -r ~/.ssh/known_hosts ]] && _ssh_hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[\|]*}%%\ *}%%,*}) || _ssh_hosts=()
1803         [[ -r /etc/hosts ]] && : ${(A)_etc_hosts:=${(s: :)${(ps:\t:)${${(f)~~"$(</etc/hosts)"}%%\#*}##[:blank:]#[^[:blank:]]#}}} || _etc_hosts=()
1804     else
1805         _ssh_hosts=()
1806         _etc_hosts=()
1807     fi
1808     hosts=(
1809         $(hostname)
1810         "$_ssh_hosts[@]"
1811         "$_etc_hosts[@]"
1812         grml.org
1813         localhost
1814     )
1815     zstyle ':completion:*:hosts' hosts $hosts
1816     # TODO: so, why is this here?
1817     #  zstyle '*' hosts $hosts
1818
1819     # use generic completion system for programs not yet defined; (_gnu_generic works
1820     # with commands that provide a --help option with "standard" gnu-like output.)
1821     for compcom in cp deborphan df feh fetchipac head hnb ipacsum mv \
1822                    pal stow tail uname ; do
1823         [[ -z ${_comps[$compcom]} ]] && compdef _gnu_generic ${compcom}
1824     done; unset compcom
1825
1826     # see upgrade function in this file
1827     compdef _hosts upgrade
1828 }
1829
1830 # grmlstuff
1831 grmlstuff() {
1832 # people should use 'grml-x'!
1833     if check_com -c 915resolution; then
1834         855resolution() {
1835             echo "Please use 915resolution as resolution modifying tool for Intel \
1836 graphic chipset."
1837             return -1
1838         }
1839     fi
1840
1841     #a1# Output version of running grml
1842     alias grml-version='cat /etc/grml_version'
1843
1844     if check_com -c rebuildfstab ; then
1845         #a1# Rebuild /etc/fstab
1846         alias grml-rebuildfstab='rebuildfstab -v -r -config'
1847     fi
1848
1849     if check_com -c grml-debootstrap ; then
1850         debian2hd() {
1851             echo "Installing debian to harddisk is possible by using grml-debootstrap."
1852             return 1
1853         }
1854     fi
1855 }
1856
1857 # now run the functions
1858 isgrml && checkhome
1859 is4    && isgrml    && grmlstuff
1860 is4    && grmlcomp
1861
1862 # keephack
1863 is4 && xsource "/etc/zsh/keephack"
1864
1865 # wonderful idea of using "e" glob qualifier by Peter Stephenson
1866 # You use it as follows:
1867 # $ NTREF=/reference/file
1868 # $ ls -l *(e:nt:)
1869 # This lists all the files in the current directory newer than the reference file.
1870 # You can also specify the reference file inline; note quotes:
1871 # $ ls -l *(e:'nt ~/.zshenv':)
1872 is4 && nt() {
1873     if [[ -n $1 ]] ; then
1874         local NTREF=${~1}
1875     fi
1876     [[ $REPLY -nt $NTREF ]]
1877 }
1878
1879 # shell functions
1880
1881 #f1# Provide csh compatibility
1882 setenv()  { typeset -x "${1}${1:+=}${(@)argv[2,$#]}" }  # csh compatibility
1883
1884 #f1# Reload an autoloadable function
1885 freload() { while (( $# )); do; unfunction $1; autoload -U $1; shift; done }
1886 compdef _functions freload
1887
1888 #f1# List symlinks in detail (more detailed version of 'readlink -f' and 'whence -s')
1889 sll() {
1890     [[ -z "$1" ]] && printf 'Usage: %s <file(s)>\n' "$0" && return 1
1891     for file in "$@" ; do
1892         while [[ -h "$file" ]] ; do
1893             ls -l $file
1894             file=$(readlink "$file")
1895         done
1896     done
1897 }
1898
1899 # fast manual access
1900 if check_com qma ; then
1901     #f1# View the zsh manual
1902     manzsh()  { qma zshall "$1" }
1903     compdef _man qma
1904 else
1905     manzsh()  { /usr/bin/man zshall |  vim -c "se ft=man| se hlsearch" +/"$1" - ; }
1906 fi
1907
1908 # TODO: Is it supported to use pager settings like this?
1909 #   PAGER='less -Mr' - If so, the use of $PAGER here needs fixing
1910 # with respect to wordsplitting. (ie. ${=PAGER})
1911 if check_com -c $PAGER ; then
1912     #f1# View Debian's changelog of a given package
1913     dchange() {
1914         emulate -L zsh
1915         if [[ -r /usr/share/doc/$1/changelog.Debian.gz ]] ; then
1916             $PAGER /usr/share/doc/$1/changelog.Debian.gz
1917         elif [[ -r /usr/share/doc/$1/changelog.gz ]] ; then
1918             $PAGER /usr/share/doc/$1/changelog.gz
1919         else
1920             if check_com -c aptitude ; then
1921                 echo "No changelog for package $1 found, using aptitude to retrieve it."
1922                 if isgrml ; then
1923                     aptitude -t unstable changelog $1
1924                 else
1925                     aptitude changelog $1
1926                 fi
1927             else
1928                 echo "No changelog for package $1 found, sorry."
1929                 return 1
1930             fi
1931         fi
1932     }
1933     _dchange() { _files -W /usr/share/doc -/ }
1934     compdef _dchange dchange
1935
1936     #f1# View Debian's NEWS of a given package
1937     dnews() {
1938         emulate -L zsh
1939         if [[ -r /usr/share/doc/$1/NEWS.Debian.gz ]] ; then
1940             $PAGER /usr/share/doc/$1/NEWS.Debian.gz
1941         else
1942             if [[ -r /usr/share/doc/$1/NEWS.gz ]] ; then
1943                 $PAGER /usr/share/doc/$1/NEWS.gz
1944             else
1945                 echo "No NEWS file for package $1 found, sorry."
1946                 return 1
1947             fi
1948         fi
1949     }
1950     _dnews() { _files -W /usr/share/doc -/ }
1951     compdef _dnews dnews
1952
1953     #f1# View upstream's changelog of a given package
1954     uchange() {
1955         emulate -L zsh
1956         if [[ -r /usr/share/doc/$1/changelog.gz ]] ; then
1957             $PAGER /usr/share/doc/$1/changelog.gz
1958         else
1959             echo "No changelog for package $1 found, sorry."
1960             return 1
1961         fi
1962     }
1963     _uchange() { _files -W /usr/share/doc -/ }
1964     compdef _uchange uchange
1965 fi
1966
1967 # zsh profiling
1968 profile() {
1969     ZSH_PROFILE_RC=1 $SHELL "$@"
1970 }
1971
1972 #f1# Edit an alias via zle
1973 edalias() {
1974     [[ -z "$1" ]] && { echo "Usage: edalias <alias_to_edit>" ; return 1 } || vared aliases'[$1]' ;
1975 }
1976 compdef _aliases edalias
1977
1978 #f1# Edit a function via zle
1979 edfunc() {
1980     [[ -z "$1" ]] && { echo "Usage: edfunc <function_to_edit>" ; return 1 } || zed -f "$1" ;
1981 }
1982 compdef _functions edfunc
1983
1984 # use it e.g. via 'Restart apache2'
1985 #m# f6 Start() \kbd{/etc/init.d/\em{process}}\quad\kbd{start}
1986 #m# f6 Restart() \kbd{/etc/init.d/\em{process}}\quad\kbd{restart}
1987 #m# f6 Stop() \kbd{/etc/init.d/\em{process}}\quad\kbd{stop}
1988 #m# f6 Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{reload}
1989 #m# f6 Force-Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{force-reload}
1990 if [[ -d /etc/init.d || -d /etc/service ]] ; then
1991     __start_stop() {
1992         local action_="${1:l}"  # e.g Start/Stop/Restart
1993         local service_="$2"
1994         local param_="$3"
1995
1996         local service_target_="$(readlink /etc/init.d/$service_)"
1997         if [[ $service_target_ == "/usr/bin/sv" ]]; then
1998             # runit
1999             case "${action_}" in
2000                 start) if [[ ! -e /etc/service/$service_ ]]; then
2001                            $SUDO ln -s "/etc/sv/$service_" "/etc/service/"
2002                        else
2003                            $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
2004                        fi ;;
2005                 # there is no reload in runits sysv emulation
2006                 reload) $SUDO "/etc/init.d/$service_" "force-reload" "$param_" ;;
2007                 *) $SUDO "/etc/init.d/$service_" "${action_}" "$param_" ;;
2008             esac
2009         else
2010             # sysvinit
2011             $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
2012         fi
2013     }
2014
2015     _grmlinitd() {
2016         local -a scripts
2017         scripts=( /etc/init.d/*(x:t) )
2018         _describe "service startup script" scripts
2019     }
2020
2021     for i in Start Restart Stop Force-Reload Reload ; do
2022         eval "$i() { __start_stop $i \"\$1\" \"\$2\" ; }"
2023         compdef _grmlinitd $i
2024     done
2025 fi
2026
2027 #f1# Provides useful information on globbing
2028 H-Glob() {
2029     echo -e "
2030     /      directories
2031     .      plain files
2032     @      symbolic links
2033     =      sockets
2034     p      named pipes (FIFOs)
2035     *      executable plain files (0100)
2036     %      device files (character or block special)
2037     %b     block special files
2038     %c     character special files
2039     r      owner-readable files (0400)
2040     w      owner-writable files (0200)
2041     x      owner-executable files (0100)
2042     A      group-readable files (0040)
2043     I      group-writable files (0020)
2044     E      group-executable files (0010)
2045     R      world-readable files (0004)
2046     W      world-writable files (0002)
2047     X      world-executable files (0001)
2048     s      setuid files (04000)
2049     S      setgid files (02000)
2050     t      files with the sticky bit (01000)
2051
2052   print *(m-1)          # Files modified up to a day ago
2053   print *(a1)           # Files accessed a day ago
2054   print *(@)            # Just symlinks
2055   print *(Lk+50)        # Files bigger than 50 kilobytes
2056   print *(Lk-50)        # Files smaller than 50 kilobytes
2057   print **/*.c          # All *.c files recursively starting in \$PWD
2058   print **/*.c~file.c   # Same as above, but excluding 'file.c'
2059   print (foo|bar).*     # Files starting with 'foo' or 'bar'
2060   print *~*.*           # All Files that do not contain a dot
2061   chmod 644 *(.^x)      # make all plain non-executable files publically readable
2062   print -l *(.c|.h)     # Lists *.c and *.h
2063   print **/*(g:users:)  # Recursively match all files that are owned by group 'users'
2064   echo /proc/*/cwd(:h:t:s/self//) # Analogous to >ps ax | awk '{print $1}'<"
2065 }
2066 alias help-zshglob=H-Glob
2067
2068 #v1# set number of lines to display per page
2069 HELP_LINES_PER_PAGE=20
2070 #v1# set location of help-zle cache file
2071 HELP_ZLE_CACHE_FILE=~/.cache/zsh_help_zle_lines.zsh
2072 #f1# helper function for help-zle, actually generates the help text
2073 help_zle_parse_keybindings()
2074 {
2075     emulate -L zsh
2076     setopt extendedglob
2077     unsetopt ksharrays  #indexing starts at 1
2078
2079     #v1# choose files that help-zle will parse for keybindings
2080     ((${+HELPZLE_KEYBINDING_FILES})) || HELPZLE_KEYBINDING_FILES=( /etc/zsh/zshrc ~/.zshrc.pre ~/.zshrc ~/.zshrc.local )
2081
2082     if [[ -r $HELP_ZLE_CACHE_FILE ]]; then
2083         local load_cache=0
2084         for f ($KEYBINDING_FILES) [[ $f -nt $HELP_ZLE_CACHE_FILE ]] && load_cache=1
2085         [[ $load_cache -eq 0 ]] && . $HELP_ZLE_CACHE_FILE && return
2086     fi
2087
2088     #fill with default keybindings, possibly to be overwriten in a file later
2089     #Note that due to zsh inconsistency on escaping assoc array keys, we encase the key in '' which we will remove later
2090     local -A help_zle_keybindings
2091     help_zle_keybindings['<Ctrl>@']="set MARK"
2092     help_zle_keybindings['<Ctrl>X<Ctrl>J']="vi-join lines"
2093     help_zle_keybindings['<Ctrl>X<Ctrl>B']="jump to matching brace"
2094     help_zle_keybindings['<Ctrl>X<Ctrl>U']="undo"
2095     help_zle_keybindings['<Ctrl>_']="undo"
2096     help_zle_keybindings['<Ctrl>X<Ctrl>F<c>']="find <c> in cmdline"
2097     help_zle_keybindings['<Ctrl>A']="goto beginning of line"
2098     help_zle_keybindings['<Ctrl>E']="goto end of line"
2099     help_zle_keybindings['<Ctrl>t']="transpose charaters"
2100     help_zle_keybindings['<Alt>T']="transpose words"
2101     help_zle_keybindings['<Alt>s']="spellcheck word"
2102     help_zle_keybindings['<Ctrl>K']="backward kill buffer"
2103     help_zle_keybindings['<Ctrl>U']="forward kill buffer"
2104     help_zle_keybindings['<Ctrl>y']="insert previously killed word/string"
2105     help_zle_keybindings["<Alt>'"]="quote line"
2106     help_zle_keybindings['<Alt>"']="quote from mark to cursor"
2107     help_zle_keybindings['<Alt><arg>']="repeat next cmd/char <arg> times (<Alt>-<Alt>1<Alt>0a -> -10 times 'a')"
2108     help_zle_keybindings['<Alt>U']="make next word Uppercase"
2109     help_zle_keybindings['<Alt>l']="make next word lowercase"
2110     help_zle_keybindings['<Ctrl>Xd']="preview expansion under cursor"
2111     help_zle_keybindings['<Alt>q']="push current CL into background, freeing it. Restore on next CL"
2112     help_zle_keybindings['<Alt>.']="insert (and interate through) last word from prev CLs"
2113     help_zle_keybindings['<Alt>,']="complete word from newer history (consecutive hits)"
2114     help_zle_keybindings['<Alt>m']="repeat last typed word on current CL"
2115     help_zle_keybindings['<Ctrl>V']="insert next keypress symbol literally (e.g. for bindkey)"
2116     help_zle_keybindings['!!:n*<Tab>']="insert last n arguments of last command"
2117     help_zle_keybindings['!!:n-<Tab>']="insert arguments n..N-2 of last command (e.g. mv s s d)"
2118     help_zle_keybindings['<Alt>H']="run help on current command"
2119
2120     #init global variables
2121     unset help_zle_lines help_zle_sln
2122     typeset -g -a help_zle_lines
2123     typeset -g help_zle_sln=1
2124
2125     local k v
2126     local lastkeybind_desc contents     #last description starting with #k# that we found
2127     local num_lines_elapsed=0            #number of lines between last description and keybinding
2128     #search config files in the order they a called (and thus the order in which they overwrite keybindings)
2129     for f in $HELPZLE_KEYBINDING_FILES; do
2130         [[ -r "$f" ]] || continue   #not readable ? skip it
2131         contents="$(<$f)"
2132         for cline in "${(f)contents}"; do
2133             #zsh pattern: matches lines like: #k# ..............
2134             if [[ "$cline" == (#s)[[:space:]]#\#k\#[[:space:]]##(#b)(*)[[:space:]]#(#e) ]]; then
2135                 lastkeybind_desc="$match[*]"
2136                 num_lines_elapsed=0
2137             #zsh pattern: matches lines that set a keybinding using bindkey or compdef -k
2138             #             ignores lines that are commentend out
2139             #             grabs first in '' or "" enclosed string with length between 1 and 6 characters
2140             elif [[ "$cline" == [^#]#(bindkey|compdef -k)[[:space:]](*)(#b)(\"((?)(#c1,6))\"|\'((?)(#c1,6))\')(#B)(*)  ]]; then
2141                 #description prevously found ? description not more than 2 lines away ? keybinding not empty ?
2142                 if [[ -n $lastkeybind_desc && $num_lines_elapsed -lt 2 && -n $match[1] ]]; then
2143                     #substitute keybinding string with something readable
2144                     k=${${${${${${${match[1]/\\e\^h/<Alt><BS>}/\\e\^\?/<Alt><BS>}/\\e\[5~/<PageUp>}/\\e\[6~/<PageDown>}//(\\e|\^\[)/<Alt>}//\^/<Ctrl>}/3~/<Alt><Del>}
2145                     #put keybinding in assoc array, possibly overwriting defaults or stuff found in earlier files
2146                     #Note that we are extracting the keybinding-string including the quotes (see Note at beginning)
2147                     help_zle_keybindings[${k}]=$lastkeybind_desc
2148                 fi
2149                 lastkeybind_desc=""
2150             else
2151               ((num_lines_elapsed++))
2152             fi
2153         done
2154     done
2155     unset contents
2156     #calculate length of keybinding column
2157     local kstrlen=0
2158     for k (${(k)help_zle_keybindings[@]}) ((kstrlen < ${#k})) && kstrlen=${#k}
2159     #convert the assoc array into preformated lines, which we are able to sort
2160     for k v in ${(kv)help_zle_keybindings[@]}; do
2161         #pad keybinding-string to kstrlen chars and remove outermost characters (i.e. the quotes)
2162         help_zle_lines+=("${(r:kstrlen:)k[2,-2]}${v}")
2163     done
2164     #sort lines alphabetically
2165     help_zle_lines=("${(i)help_zle_lines[@]}")
2166     [[ -d ${HELP_ZLE_CACHE_FILE:h} ]] || mkdir -p "${HELP_ZLE_CACHE_FILE:h}"
2167     echo "help_zle_lines=(${(q)help_zle_lines[@]})" >| $HELP_ZLE_CACHE_FILE
2168     zcompile $HELP_ZLE_CACHE_FILE
2169 }
2170 typeset -g help_zle_sln
2171 typeset -g -a help_zle_lines
2172
2173 #f1# Provides (partially autogenerated) help on keybindings and the zsh line editor
2174 help-zle()
2175 {
2176     emulate -L zsh
2177     unsetopt ksharrays  #indexing starts at 1
2178     #help lines already generated ? no ? then do it
2179     [[ ${+functions[help_zle_parse_keybindings]} -eq 1 ]] && {help_zle_parse_keybindings && unfunction help_zle_parse_keybindings}
2180     #already displayed all lines ? go back to the start
2181     [[ $help_zle_sln -gt ${#help_zle_lines} ]] && help_zle_sln=1
2182     local sln=$help_zle_sln
2183     #note that help_zle_sln is a global var, meaning we remember the last page we viewed
2184     help_zle_sln=$((help_zle_sln + HELP_LINES_PER_PAGE))
2185     zle -M "${(F)help_zle_lines[sln,help_zle_sln-1]}"
2186 }
2187 #k# display help for keybindings and ZLE (cycle pages with consecutive use)
2188 zle -N help-zle && bindkey '^Xz' help-zle
2189
2190 check_com -c qma && alias ?='qma zshall'
2191
2192 # grep for running process, like: 'any vim'
2193 any() {
2194     emulate -L zsh
2195     unsetopt KSH_ARRAYS
2196     if [[ -z "$1" ]] ; then
2197         echo "any - grep for process(es) by keyword" >&2
2198         echo "Usage: any <keyword>" >&2 ; return 1
2199     else
2200         ps xauwww | grep -i --color=auto "[${1[1]}]${1[2,-1]}"
2201     fi
2202 }
2203
2204
2205 # After resuming from suspend, system is paging heavily, leading to very bad interactivity.
2206 # taken from $LINUX-KERNELSOURCE/Documentation/power/swsusp.txt
2207 [[ -r /proc/1/maps ]] && \
2208 deswap() {
2209     print 'Reading /proc/[0-9]*/maps and sending output to /dev/null, this might take a while.'
2210     cat $(sed -ne 's:.* /:/:p' /proc/[0-9]*/maps | sort -u | grep -v '^/dev/')  > /dev/null
2211     print 'Finished, running "swapoff -a; swapon -a" may also be useful.'
2212 }
2213
2214 # print hex value of a number
2215 hex() {
2216     emulate -L zsh
2217     [[ -n "$1" ]] && printf "%x\n" $1 || { print 'Usage: hex <number-to-convert>' ; return 1 }
2218 }
2219
2220 # calculate (or eval at all ;-)) with perl => p[erl-]eval
2221 # hint: also take a look at zcalc -> 'autoload zcalc' -> 'man zshmodules | less -p MATHFUNC'
2222 peval() {
2223     [[ -n "$1" ]] && CALC="$*" || print "Usage: calc [expression]"
2224     perl -e "print eval($CALC),\"\n\";"
2225 }
2226 functions peval &>/dev/null && alias calc=peval
2227
2228 # just press 'asdf' keys to toggle between dvorak and us keyboard layout
2229 aoeu() {
2230     echo -n 'Switching to us keyboard layout: '
2231     [[ -z "$DISPLAY" ]] && $SUDO loadkeys us &>/dev/null || setxkbmap us &>/dev/null
2232     echo 'Done'
2233 }
2234 asdf() {
2235     echo -n 'Switching to dvorak keyboard layout: '
2236     [[ -z "$DISPLAY" ]] && $SUDO loadkeys dvorak &>/dev/null || setxkbmap dvorak &>/dev/null
2237     echo 'Done'
2238 }
2239 # just press 'asdf' key to toggle from neon layout to us keyboard layout
2240 uiae() {
2241     echo -n 'Switching to us keyboard layout: '
2242     setxkbmap us && echo 'Done' || echo 'Failed'
2243 }
2244
2245 # set up an ipv6 tunnel
2246 ipv6-tunnel() {
2247     emulate -L zsh
2248     case $1 in
2249         start)
2250             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2251                 print 'ipv6 tunnel already set up, nothing to be done.'
2252                 print 'execute: "ifconfig sit1 down ; ifconfig sit0 down" to remove ipv6-tunnel.' ; return 1
2253             else
2254                 [[ -n "$PUBLIC_IP" ]] || \
2255                     local PUBLIC_IP=$(ifconfig $(route -n | awk '/^0\.0\.0\.0/{print $8; exit}') | \
2256                                       awk '/inet addr:/ {print $2}' | tr -d 'addr:')
2257
2258                 [[ -n "$PUBLIC_IP" ]] || { print 'No $PUBLIC_IP set and could not determine default one.' ; return 1 }
2259                 local IPV6ADDR=$(printf "2002:%02x%02x:%02x%02x:1::1" $(print ${PUBLIC_IP//./ }))
2260                 print -n "Setting up ipv6 tunnel $IPV6ADDR via ${PUBLIC_IP}: "
2261                 ifconfig sit0 tunnel ::192.88.99.1 up
2262                 ifconfig sit1 add "$IPV6ADDR" && print done || print failed
2263             fi
2264             ;;
2265         status)
2266             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2267                 print 'ipv6 tunnel available' ; return 0
2268             else
2269                 print 'ipv6 tunnel not available' ; return 1
2270             fi
2271             ;;
2272         stop)
2273             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2274                 print -n 'Stopping ipv6 tunnel (sit0 + sit1): '
2275                 ifconfig sit1 down ; ifconfig sit0 down && print done || print failed
2276             else
2277                 print 'No ipv6 tunnel found, nothing to be done.' ; return 1
2278             fi
2279             ;;
2280         *)
2281             print "Usage: ipv6-tunnel [start|stop|status]">&2 ; return 1
2282             ;;
2283     esac
2284 }
2285
2286 # run dhclient for wireless device
2287 iwclient() {
2288     sudo dhclient "$(wavemon -d | awk '/device/{print $3}')"
2289 }
2290
2291 # spawn a minimally set up mksh - useful if you want to umount /usr/.
2292 minimal-shell() {
2293     emulate -L zsh
2294     local shell="/bin/mksh"
2295
2296     if [[ ! -x ${shell} ]]; then
2297         printf '`%s'\'' not available, giving up.\n' ${shell} >&2
2298         return 1
2299     fi
2300
2301     exec env -i ENV="/etc/minimal-shellrc" HOME="$HOME" TERM="$TERM" ${shell}
2302 }
2303
2304 # a wrapper for vim, that deals with title setting
2305 #   VIM_OPTIONS
2306 #       set this array to a set of options to vim you always want
2307 #       to have set when calling vim (in .zshrc.local), like:
2308 #           VIM_OPTIONS=( -p )
2309 #       This will cause vim to send every file given on the
2310 #       commandline to be send to it's own tab (needs vim7).
2311 vim() {
2312     VIM_PLEASE_SET_TITLE='yes' command vim ${VIM_OPTIONS} "$@"
2313 }
2314
2315 # make a backup of a file
2316 bk() {
2317     cp -a "$1" "${1}_$(date --iso-8601=seconds)"
2318 }
2319
2320 ssl_hashes=( sha512 sha256 sha1 md5 )
2321
2322 for sh in ${ssl_hashes}; do
2323     eval 'ssl-cert-'${sh}'() {
2324         emulate -L zsh
2325         if [[ -z $1 ]] ; then
2326             printf '\''usage: %s <file>\n'\'' "ssh-cert-'${sh}'"
2327             return 1
2328         fi
2329         openssl x509 -noout -fingerprint -'${sh}' -in $1
2330     }'
2331 done; unset sh
2332
2333 ssl-cert-fingerprints() {
2334     emulate -L zsh
2335     local i
2336     if [[ -z $1 ]] ; then
2337         printf 'usage: ssl-cert-fingerprints <file>\n'
2338         return 1
2339     fi
2340     for i in ${ssl_hashes}
2341         do ssl-cert-$i $1;
2342     done
2343 }
2344
2345 ssl-cert-info() {
2346     emulate -L zsh
2347     if [[ -z $1 ]] ; then
2348         printf 'usage: ssl-cert-info <file>\n'
2349         return 1
2350     fi
2351     openssl x509 -noout -text -in $1
2352     ssl-cert-fingerprints $1
2353 }
2354
2355 # make sure our environment is clean regarding colors
2356 for color in BLUE RED GREEN CYAN YELLOW MAGENTA WHITE ; unset $color
2357
2358 # "persistent history"
2359 # just write important commands you always need to ~/.important_commands
2360 if [[ -r ~/.important_commands ]] ; then
2361     fc -R ~/.important_commands
2362 fi
2363
2364 # load the lookup subsystem if it's available on the system
2365 zrcautoload lookupinit && lookupinit
2366
2367 ### non-root (EUID != 0) code below
2368 ###
2369
2370 if (( GRML_ALWAYS_LOAD_ALL == 0 )) && (( $EUID == 0 )) ; then
2371     zrclocal
2372     return 0
2373 fi
2374
2375 # variables
2376
2377 # set terminal property (used e.g. by msgid-chooser)
2378 export COLORTERM="yes"
2379
2380 #m# v QTDIR \kbd{/usr/share/qt[34]}\quad [for non-root only]
2381 [[ -d /usr/share/qt3 ]] && export QTDIR=/usr/share/qt3
2382 [[ -d /usr/share/qt4 ]] && export QTDIR=/usr/share/qt4
2383
2384 # support running 'jikes *.java && jamvm HelloWorld' OOTB:
2385 #v# [for non-root only]
2386 [[ -f /usr/share/classpath/glibj.zip ]] && export JIKESPATH=/usr/share/classpath/glibj.zip
2387
2388 # aliases
2389
2390 # Xterm resizing-fu.
2391 # Based on http://svn.kitenet.net/trunk/home-full/.zshrc?rev=11710&view=log (by Joey Hess)
2392 alias hide='echo -en "\033]50;nil2\007"'
2393 alias tiny='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-80-*-*-c-*-iso8859-15\007"'
2394 alias small='echo -en "\033]50;6x10\007"'
2395 alias medium='echo -en "\033]50;-misc-fixed-medium-r-normal--13-120-75-75-c-80-iso8859-15\007"'
2396 alias default='echo -e "\033]50;-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-15\007"'
2397 alias large='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-150-*-*-c-*-iso8859-15\007"'
2398 alias huge='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-210-*-*-c-*-iso8859-15\007"'
2399 alias smartfont='echo -en "\033]50;-artwiz-smoothansi-*-*-*-*-*-*-*-*-*-*-*-*\007"'
2400 alias semifont='echo -en "\033]50;-misc-fixed-medium-r-semicondensed-*-*-120-*-*-*-*-iso8859-15\007"'
2401
2402 # general
2403 #a2# Execute \kbd{du -sch}
2404 alias da='du -sch'
2405 #a2# Execute \kbd{jobs -l}
2406 alias j='jobs -l'
2407
2408 # compile stuff
2409 #a2# Execute \kbd{./configure}
2410 alias CO="./configure"
2411 #a2# Execute \kbd{./configure --help}
2412 alias CH="./configure --help"
2413
2414 # listing stuff
2415 #a2# Execute \kbd{ls -lSrah}
2416 alias dir="ls -lSrah"
2417 #a2# Only show dot-directories
2418 alias lad='ls -d .*(/)'                # only show dot-directories
2419 #a2# Only show dot-files
2420 alias lsa='ls -a .*(.)'                # only show dot-files
2421 #a2# Only files with setgid/setuid/sticky flag
2422 alias lss='ls -l *(s,S,t)'             # only files with setgid/setuid/sticky flag
2423 #a2# Only show 1st ten symlinks
2424 alias lsl='ls -l *(@)'                 # only symlinks
2425 #a2# Display only executables
2426 alias lsx='ls -l *(*)'                 # only executables
2427 #a2# Display world-{readable,writable,executable} files
2428 alias lsw='ls -ld *(R,W,X.^ND/)'       # world-{readable,writable,executable} files
2429 #a2# Display the ten biggest files
2430 alias lsbig="ls -flh *(.OL[1,10])"     # display the biggest files
2431 #a2# Only show directories
2432 alias lsd='ls -d *(/)'                 # only show directories
2433 #a2# Only show empty directories
2434 alias lse='ls -d *(/^F)'               # only show empty directories
2435 #a2# Display the ten newest files
2436 alias lsnew="ls -rtlh *(D.om[1,10])"   # display the newest files
2437 #a2# Display the ten oldest files
2438 alias lsold="ls -rtlh *(D.Om[1,10])"   # display the oldest files
2439 #a2# Display the ten smallest files
2440 alias lssmall="ls -Srl *(.oL[1,10])"   # display the smallest files
2441
2442 # chmod
2443 #a2# Execute \kbd{chmod 600}
2444 alias rw-='chmod 600'
2445 #a2# Execute \kbd{chmod 700}
2446 alias rwx='chmod 700'
2447 #m# a2 r-{}- Execute \kbd{chmod 644}
2448 alias r--='chmod 644'
2449 #a2# Execute \kbd{chmod 755}
2450 alias r-x='chmod 755'
2451
2452 # some useful aliases
2453 #a2# Execute \kbd{mkdir -p}
2454 alias md='mkdir -p'
2455 #a2# Remove current empty directory. Execute \kbd{cd ..; rmdir $OLDCWD}
2456 alias rmcdir='cd ..; rmdir $OLDPWD || cd $OLDPWD'
2457
2458 # console stuff
2459 #a2# Execute \kbd{mplayer -vo fbdev}
2460 alias cmplayer='mplayer -vo fbdev'
2461 #a2# Execute \kbd{mplayer -vo fbdev -fs -zoom}
2462 alias fbmplayer='mplayer -vo fbdev -fs -zoom'
2463 #a2# Execute \kbd{links2 -driver fb}
2464 alias fblinks='links2 -driver fb'
2465
2466 #a2# ssh with StrictHostKeyChecking=no \\&\quad and UserKnownHostsFile unset
2467 alias insecssh='ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
2468 alias insecscp='scp -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
2469
2470 # simple webserver
2471 check_com -c python && alias http="python -m SimpleHTTPServer"
2472
2473 # Use 'g' instead of 'git':
2474 check_com g || alias g='git'
2475
2476 # work around non utf8 capable software in utf environment via $LANG and luit
2477 if check_com isutfenv && check_com luit ; then
2478     if check_com -c mrxvt ; then
2479         isutfenv && [[ -n "$LANG" ]] && \
2480             alias mrxvt="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit mrxvt"
2481     fi
2482
2483     if check_com -c aterm ; then
2484         isutfenv && [[ -n "$LANG" ]] && \
2485             alias aterm="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit aterm"
2486     fi
2487
2488     if check_com -c centericq ; then
2489         isutfenv && [[ -n "$LANG" ]] && \
2490             alias centericq="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit centericq"
2491     fi
2492 fi
2493
2494 # useful functions
2495
2496 #f5# Backup \kbd{file {\rm to} file\_timestamp}
2497 bk() {
2498     emulate -L zsh
2499     cp -b $1 $1_`date --iso-8601=m`
2500 }
2501
2502 #f5# cd to directoy and list files
2503 cl() {
2504     emulate -L zsh
2505     cd $1 && ls -a
2506 }
2507
2508 # smart cd function, allows switching to /etc when running 'cd /etc/fstab'
2509 cd() {
2510     if (( ${#argv} == 1 )) && [[ -f ${1} ]]; then
2511         [[ ! -e ${1:h} ]] && return 1
2512         print "Correcting ${1} to ${1:h}"
2513         builtin cd ${1:h}
2514     else
2515         builtin cd "$@"
2516     fi
2517 }
2518
2519 #f5# Create Directoy and \kbd{cd} to it
2520 mcd() {
2521     mkdir -p "$@" && cd "$@"
2522 }
2523 #f5# Create temporary directory and \kbd{cd} to it
2524 cdt() {
2525     local t
2526     t=$(mktemp -d)
2527     echo "$t"
2528     builtin cd "$t"
2529 }
2530
2531 #f5# Create directory under cursor or the selected area
2532 # Press ctrl-xM to create the directory under the cursor or the selected area.
2533 # To select an area press ctrl-@ or ctrl-space and use the cursor.
2534 # Use case: you type "mv abc ~/testa/testb/testc/" and remember that the
2535 # directory does not exist yet -> press ctrl-XM and problem solved
2536 inplaceMkDirs() {
2537     local PATHTOMKDIR
2538     if ((REGION_ACTIVE==1)); then
2539         local F=$MARK T=$CURSOR
2540         if [[ $F -gt $T ]]; then
2541             F=${CURSOR}
2542             T=${MARK}
2543         fi
2544         # get marked area from buffer and eliminate whitespace
2545         PATHTOMKDIR=${BUFFER[F+1,T]%%[[:space:]]##}
2546         PATHTOMKDIR=${PATHTOMKDIR##[[:space:]]##}
2547     else
2548         local bufwords iword
2549         bufwords=(${(z)LBUFFER})
2550         iword=${#bufwords}
2551         bufwords=(${(z)BUFFER})
2552         PATHTOMKDIR="${(Q)bufwords[iword]}"
2553     fi
2554     [[ -z "${PATHTOMKDIR}" ]] && return 1
2555     if [[ -e "${PATHTOMKDIR}" ]]; then
2556         zle -M " path already exists, doing nothing"
2557     else
2558         zle -M "$(mkdir -p -v "${PATHTOMKDIR}")"
2559         zle end-of-line
2560     fi
2561 }
2562 #k# mkdir -p <dir> from string under cursor or marked area
2563 zle -N inplaceMkDirs && bindkey '^XM' inplaceMkDirs
2564
2565 # Function Usage: doc packagename
2566 #f5# \kbd{cd} to /usr/share/doc/\textit{package}
2567 doc() {
2568     emulate -L zsh
2569     cd /usr/share/doc/$1 && ls
2570 }
2571 _doc() { _files -W /usr/share/doc -/ }
2572 check_com compdef && compdef _doc doc
2573
2574 #f5# Make screenshot
2575 sshot() {
2576     [[ ! -d ~/shots  ]] && mkdir ~/shots
2577     #cd ~/shots ; sleep 5 ; import -window root -depth 8 -quality 80 `date "+%Y-%m-%d--%H:%M:%S"`.png
2578     cd ~/shots ; sleep 5; import -window root shot_`date --iso-8601=m`.jpg
2579 }
2580
2581 #f5# List files which have been accessed within the last {\it n} days, {\it n} defaults to 1
2582 accessed() {
2583     emulate -L zsh
2584     print -l -- *(a-${1:-1})
2585 }
2586
2587 #f5# List files which have been changed within the last {\it n} days, {\it n} defaults to 1
2588 changed() {
2589     emulate -L zsh
2590     print -l -- *(c-${1:-1})
2591 }
2592
2593 #f5# List files which have been modified within the last {\it n} days, {\it n} defaults to 1
2594 modified() {
2595     emulate -L zsh
2596     print -l -- *(m-${1:-1})
2597 }
2598 # modified() was named new() in earlier versions, add an alias for backwards compatibility
2599 check_com new || alias new=modified
2600
2601 # use colors when GNU grep with color-support
2602 #a2# Execute \kbd{grep -{}-color=auto}
2603 (grep --help 2>/dev/null |grep -- --color) >/dev/null && alias grep='grep --color=auto'
2604 #a2# Execute \kbd{grep -i -{}-color=auto}
2605 alias GREP='grep -i --color=auto'
2606
2607 # Translate DE<=>EN
2608 # 'translate' looks up fot a word in a file with language-to-language
2609 # translations (field separator should be " : "). A typical wordlist looks
2610 # like at follows:
2611 #  | english-word : german-transmission
2612 # It's also only possible to translate english to german but not reciprocal.
2613 # Use the following oneliner to turn back the sort order:
2614 #  $ awk -F ':' '{ print $2" : "$1" "$3 }' \
2615 #    /usr/local/lib/words/en-de.ISO-8859-1.vok > ~/.translate/de-en.ISO-8859-1.vok
2616 #f5# Translates a word
2617 trans() {
2618     emulate -L zsh
2619     case "$1" in
2620         -[dD]*)
2621             translate -l de-en $2
2622             ;;
2623         -[eE]*)
2624             translate -l en-de $2
2625             ;;
2626         *)
2627             echo "Usage: $0 { -D | -E }"
2628             echo "         -D == German to English"
2629             echo "         -E == English to German"
2630     esac
2631 }
2632
2633 # Usage: simple-extract <file>
2634 # Using option -d deletes the original archive file.
2635 #f5# Smart archive extractor
2636 simple-extract() {
2637     emulate -L zsh
2638     setopt extended_glob noclobber
2639     local DELETE_ORIGINAL DECOMP_CMD USES_STDIN USES_STDOUT GZTARGET WGET_CMD
2640     local RC=0
2641     zparseopts -D -E "d=DELETE_ORIGINAL"
2642     for ARCHIVE in "${@}"; do
2643         case $ARCHIVE in
2644             *.(tar.bz2|tbz2|tbz))
2645                 DECOMP_CMD="tar -xvjf -"
2646                 USES_STDIN=true
2647                 USES_STDOUT=false
2648                 ;;
2649             *.(tar.gz|tgz))
2650                 DECOMP_CMD="tar -xvzf -"
2651                 USES_STDIN=true
2652                 USES_STDOUT=false
2653                 ;;
2654             *.(tar.xz|txz|tar.lzma))
2655                 DECOMP_CMD="tar -xvJf -"
2656                 USES_STDIN=true
2657                 USES_STDOUT=false
2658                 ;;
2659             *.tar)
2660                 DECOMP_CMD="tar -xvf -"
2661                 USES_STDIN=true
2662                 USES_STDOUT=false
2663                 ;;
2664             *.rar)
2665                 DECOMP_CMD="unrar x"
2666                 USES_STDIN=false
2667                 USES_STDOUT=false
2668                 ;;
2669             *.lzh)
2670                 DECOMP_CMD="lha x"
2671                 USES_STDIN=false
2672                 USES_STDOUT=false
2673                 ;;
2674             *.7z)
2675                 DECOMP_CMD="7z x"
2676                 USES_STDIN=false
2677                 USES_STDOUT=false
2678                 ;;
2679             *.(zip|jar))
2680                 DECOMP_CMD="unzip"
2681                 USES_STDIN=false
2682                 USES_STDOUT=false
2683                 ;;
2684             *.deb)
2685                 DECOMP_CMD="ar -x"
2686                 USES_STDIN=false
2687                 USES_STDOUT=false
2688                 ;;
2689             *.bz2)
2690                 DECOMP_CMD="bzip2 -d -c -"
2691                 USES_STDIN=true
2692                 USES_STDOUT=true
2693                 ;;
2694             *.(gz|Z))
2695                 DECOMP_CMD="gzip -d -c -"
2696                 USES_STDIN=true
2697                 USES_STDOUT=true
2698                 ;;
2699             *.(xz|lzma))
2700                 DECOMP_CMD="xz -d -c -"
2701                 USES_STDIN=true
2702                 USES_STDOUT=true
2703                 ;;
2704             *)
2705                 print "ERROR: '$ARCHIVE' has unrecognized archive type." >&2
2706                 RC=$((RC+1))
2707                 continue
2708                 ;;
2709         esac
2710
2711         if ! check_com ${DECOMP_CMD[(w)1]}; then
2712             echo "ERROR: ${DECOMP_CMD[(w)1]} not installed." >&2
2713             RC=$((RC+2))
2714             continue
2715         fi
2716
2717         GZTARGET="${ARCHIVE:t:r}"
2718         if [[ -f $ARCHIVE ]] ; then
2719
2720             print "Extracting '$ARCHIVE' ..."
2721             if $USES_STDIN; then
2722                 if $USES_STDOUT; then
2723                     ${=DECOMP_CMD} < "$ARCHIVE" > $GZTARGET
2724                 else
2725                     ${=DECOMP_CMD} < "$ARCHIVE"
2726                 fi
2727             else
2728                 if $USES_STDOUT; then
2729                     ${=DECOMP_CMD} "$ARCHIVE" > $GZTARGET
2730                 else
2731                     ${=DECOMP_CMD} "$ARCHIVE"
2732                 fi
2733             fi
2734             [[ $? -eq 0 && -n "$DELETE_ORIGINAL" ]] && rm -f "$ARCHIVE"
2735
2736         elif [[ "$ARCHIVE" == (#s)(https|http|ftp)://* ]] ; then
2737             if check_com curl; then
2738                 WGET_CMD="curl -L -k -s -o -"
2739             elif check_com wget; then
2740                 WGET_CMD="wget -q -O - --no-check-certificate"
2741             else
2742                 print "ERROR: neither wget nor curl is installed" >&2
2743                 RC=$((RC+4))
2744                 continue
2745             fi
2746             print "Downloading and Extracting '$ARCHIVE' ..."
2747             if $USES_STDIN; then
2748                 if $USES_STDOUT; then
2749                     ${=WGET_CMD} "$ARCHIVE" | ${=DECOMP_CMD} > $GZTARGET
2750                     RC=$((RC+$?))
2751                 else
2752                     ${=WGET_CMD} "$ARCHIVE" | ${=DECOMP_CMD}
2753                     RC=$((RC+$?))
2754                 fi
2755             else
2756                 if $USES_STDOUT; then
2757                     ${=DECOMP_CMD} =(${=WGET_CMD} "$ARCHIVE") > $GZTARGET
2758                 else
2759                     ${=DECOMP_CMD} =(${=WGET_CMD} "$ARCHIVE")
2760                 fi
2761             fi
2762
2763         else
2764             print "ERROR: '$ARCHIVE' is neither a valid file nor a supported URI." >&2
2765             RC=$((RC+8))
2766         fi
2767     done
2768     return $RC
2769 }
2770
2771 __archive_or_uri()
2772 {
2773     _alternative \
2774         'files:Archives:_files -g "*.(#l)(tar.bz2|tbz2|tbz|tar.gz|tgz|tar.xz|txz|tar.lzma|tar|rar|lzh|7z|zip|jar|deb|bz2|gz|Z|xz|lzma)"' \
2775         '_urls:Remote Archives:_urls'
2776 }
2777
2778 _simple_extract()
2779 {
2780     _arguments \
2781         '-d[delete original archivefile after extraction]' \
2782         '*:Archive Or Uri:__archive_or_uri'
2783 }
2784 compdef _simple_extract simple-extract
2785 alias se=simple-extract
2786
2787 # Usage: smartcompress <file> (<type>)
2788 #f5# Smart archive creator
2789 smartcompress() {
2790     emulate -L zsh
2791     if [[ -n $2 ]] ; then
2792         case $2 in
2793             tgz | tar.gz)   tar -zcvf$1.$2 $1 ;;
2794             tbz2 | tar.bz2) tar -jcvf$1.$2 $1 ;;
2795             tar.Z)          tar -Zcvf$1.$2 $1 ;;
2796             tar)            tar -cvf$1.$2  $1 ;;
2797             gz | gzip)      gzip           $1 ;;
2798             bz2 | bzip2)    bzip2          $1 ;;
2799             *)
2800                 echo "Error: $2 is not a valid compression type"
2801                 ;;
2802         esac
2803     else
2804         smartcompress $1 tar.gz
2805     fi
2806 }
2807
2808 # Usage: show-archive <archive>
2809 #f5# List an archive's content
2810 show-archive() {
2811     emulate -L zsh
2812     if [[ -f $1 ]] ; then
2813         case $1 in
2814             *.tar.gz)      gunzip -c $1 | tar -tf - -- ;;
2815             *.tar)         tar -tf $1 ;;
2816             *.tgz)         tar -ztf $1 ;;
2817             *.zip)         unzip -l $1 ;;
2818             *.bz2)         bzless $1 ;;
2819             *.deb)         dpkg-deb --fsys-tarfile $1 | tar -tf - -- ;;
2820             *)             echo "'$1' Error. Please go away" ;;
2821         esac
2822     else
2823         echo "'$1' is not a valid archive"
2824     fi
2825 }
2826
2827 # TODO: So, this is the third incarnation of this function!?
2828 #f5# Reload given functions
2829 refunc() {
2830     for func in $argv ; do
2831         unfunction $func
2832         autoload $func
2833     done
2834 }
2835 compdef _functions refunc
2836
2837 #f5# Set all ulimit parameters to \kbd{unlimited}
2838 allulimit() {
2839     ulimit -c unlimited
2840     ulimit -d unlimited
2841     ulimit -f unlimited
2842     ulimit -l unlimited
2843     ulimit -n unlimited
2844     ulimit -s unlimited
2845     ulimit -t unlimited
2846 }
2847
2848 # highlight important stuff in diff output, usage example: hg diff | hidiff
2849 #m# a2 hidiff \kbd{histring} oneliner for diffs
2850 check_com -c histring && \
2851     alias hidiff="histring -fE '^Comparing files .*|^diff .*' | histring -c yellow -fE '^\-.*' | histring -c green -fE '^\+.*'"
2852
2853 #f5# Change the xterm title from within GNU-screen
2854 xtrename() {
2855     emulate -L zsh
2856     if [[ $1 != "-f" ]] ; then
2857         if [[ -z ${DISPLAY} ]] ; then
2858             printf 'xtrename only makes sense in X11.\n'
2859             return 1
2860         fi
2861     else
2862         shift
2863     fi
2864     if [[ -z $1 ]] ; then
2865         printf 'usage: xtrename [-f] "title for xterm"\n'
2866         printf '  renames the title of xterm from _within_ screen.\n'
2867         printf '  also works without screen.\n'
2868         printf '  will not work if DISPLAY is unset, use -f to override.\n'
2869         return 0
2870     fi
2871     print -n "\eP\e]0;${1}\C-G\e\\"
2872     return 0
2873 }
2874
2875 # TODO:
2876 # Rewrite this by either using tinyurl.com's API
2877 # or using another shortening service to comply with
2878 # tinyurl.com's policy.
2879 #
2880 # Create small urls via http://tinyurl.com using wget(1).
2881 #function zurl() {
2882 #    emulate -L zsh
2883 #    [[ -z $1 ]] && { print "USAGE: zurl <URL>" ; return 1 }
2884 #
2885 #    local PN url tiny grabber search result preview
2886 #    PN=$0
2887 #    url=$1
2888 ##   Check existence of given URL with the help of ping(1).
2889 ##   N.B. ping(1) only works without an eventual given protocol.
2890 #    ping -c 1 ${${url#(ftp|http)://}%%/*} >& /dev/null || \
2891 #        read -q "?Given host ${${url#http://*/}%/*} is not reachable by pinging. Proceed anyway? [y|n] "
2892 #
2893 #    if (( $? == 0 )) ; then
2894 ##           Prepend 'http://' to given URL where necessary for later output.
2895 #            [[ ${url} != http(s|)://* ]] && url='http://'${url}
2896 #            tiny='http://tinyurl.com/create.php?url='
2897 #            if check_com -c wget ; then
2898 #                grabber='wget -O- -o/dev/null'
2899 #            else
2900 #                print "wget is not available, but mandatory for ${PN}. Aborting."
2901 #            fi
2902 ##           Looking for i.e.`copy('http://tinyurl.com/7efkze')' in TinyURL's HTML code.
2903 #            search='copy\(?http://tinyurl.com/[[:alnum:]]##*'
2904 #            result=${(M)${${${(f)"$(${=grabber} ${tiny}${url})"}[(fr)${search}*]}//[()\';]/}%%http:*}
2905 ##           TinyURL provides the rather new feature preview for more confidence. <http://tinyurl.com/preview.php>
2906 #            preview='http://preview.'${result#http://}
2907 #
2908 #            printf '%s\n\n' "${PN} - Shrinking long URLs via webservice TinyURL <http://tinyurl.com>."
2909 #            printf '%s\t%s\n\n' 'Given URL:' ${url}
2910 #            printf '%s\t%s\n\t\t%s\n' 'TinyURL:' ${result} ${preview}
2911 #    else
2912 #        return 1
2913 #    fi
2914 #}
2915
2916 #f2# Find history events by search pattern and list them by date.
2917 whatwhen()  {
2918     emulate -L zsh
2919     local usage help ident format_l format_s first_char remain first last
2920     usage='USAGE: whatwhen [options] <searchstring> <search range>'
2921     help='Use `whatwhen -h'\'' for further explanations.'
2922     ident=${(l,${#${:-Usage: }},, ,)}
2923     format_l="${ident}%s\t\t\t%s\n"
2924     format_s="${format_l//(\\t)##/\\t}"
2925     # Make the first char of the word to search for case
2926     # insensitive; e.g. [aA]
2927     first_char=[${(L)1[1]}${(U)1[1]}]
2928     remain=${1[2,-1]}
2929     # Default search range is `-100'.
2930     first=${2:-\-100}
2931     # Optional, just used for `<first> <last>' given.
2932     last=$3
2933     case $1 in
2934         ("")
2935             printf '%s\n\n' 'ERROR: No search string specified. Aborting.'
2936             printf '%s\n%s\n\n' ${usage} ${help} && return 1
2937         ;;
2938         (-h)
2939             printf '%s\n\n' ${usage}
2940             print 'OPTIONS:'
2941             printf $format_l '-h' 'show help text'
2942             print '\f'
2943             print 'SEARCH RANGE:'
2944             printf $format_l "'0'" 'the whole history,'
2945             printf $format_l '-<n>' 'offset to the current history number; (default: -100)'
2946             printf $format_s '<[-]first> [<last>]' 'just searching within a give range'
2947             printf '\n%s\n' 'EXAMPLES:'
2948             printf ${format_l/(\\t)/} 'whatwhen grml' '# Range is set to -100 by default.'
2949             printf $format_l 'whatwhen zsh -250'
2950             printf $format_l 'whatwhen foo 1 99'
2951         ;;
2952         (\?)
2953             printf '%s\n%s\n\n' ${usage} ${help} && return 1
2954         ;;
2955         (*)
2956             # -l list results on stout rather than invoking $EDITOR.
2957             # -i Print dates as in YYYY-MM-DD.
2958             # -m Search for a - quoted - pattern within the history.
2959             fc -li -m "*${first_char}${remain}*" $first $last
2960         ;;
2961     esac
2962 }
2963
2964 # mercurial related stuff
2965 if check_com -c hg ; then
2966     # gnu like diff for mercurial
2967     # http://www.selenic.com/mercurial/wiki/index.cgi/TipsAndTricks
2968     #f5# GNU like diff for mercurial
2969     hgdi() {
2970         emulate -L zsh
2971         for i in $(hg status -marn "$@") ; diff -ubwd <(hg cat "$i") "$i"
2972     }
2973
2974     # build debian package
2975     #a2# Alias for \kbd{hg-buildpackage}
2976     alias hbp='hg-buildpackage'
2977
2978     # execute commands on the versioned patch-queue from the current repos
2979     alias mq='hg -R $(readlink -f $(hg root)/.hg/patches)'
2980
2981     # diffstat for specific version of a mercurial repository
2982     #   hgstat      => display diffstat between last revision and tip
2983     #   hgstat 1234 => display diffstat between revision 1234 and tip
2984     #f5# Diffstat for specific version of a mercurial repos
2985     hgstat() {
2986         emulate -L zsh
2987         [[ -n "$1" ]] && hg diff -r $1 -r tip | diffstat || hg export tip | diffstat
2988     }
2989
2990 fi # end of check whether we have the 'hg'-executable
2991
2992 # grml-small cleanups
2993
2994 # The following is used to remove zsh-config-items that do not work
2995 # in grml-small by default.
2996 # If you do not want these adjustments (for whatever reason), set
2997 # $GRMLSMALL_SPECIFIC to 0 in your .zshrc.pre file (which this configuration
2998 # sources if it is there).
2999
3000 if (( GRMLSMALL_SPECIFIC > 0 )) && isgrmlsmall ; then
3001
3002     unset abk[V]
3003     unalias    'V'      &> /dev/null
3004     unfunction vman     &> /dev/null
3005     unfunction viless   &> /dev/null
3006     unfunction 2html    &> /dev/null
3007
3008     # manpages are not in grmlsmall
3009     unfunction manzsh   &> /dev/null
3010     unfunction man2     &> /dev/null
3011
3012 fi
3013
3014 zrclocal
3015
3016 ## genrefcard.pl settings
3017
3018 ### doc strings for external functions from files
3019 #m# f5 grml-wallpaper() Sets a wallpaper (try completion for possible values)
3020
3021 ### example: split functions-search 8,16,24,32
3022 #@# split functions-search 8
3023
3024 ## END OF FILE #################################################################
3025 # vim:filetype=zsh foldmethod=marker autoindent expandtab shiftwidth=4
3026 # Local variables:
3027 # mode: sh
3028 # End: