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 # Modeswitch
 598 bindkey '^[[3;3~' delete-word # Alt_L
 599
 600 ## use Ctrl-left-arrow and Ctrl-right-arrow for jumping to word-beginnings on the CL
 601 bindkey "\e[5C" forward-word
 602 bindkey "\e[5D" backward-word
 603 bindkey "\e[1;5C" forward-word
 604 bindkey "\e[1;5D" backward-word
 605 ## the same for alt-left-arrow and alt-right-arrow
 606 bindkey '^[[1;3C' forward-word
 607 bindkey '^[[1;3D' backward-word
 608
 609 # Search backward in the history for a line beginning with the current
 610 # line up to the cursor and move the cursor to the end of the line then
 611 zle -N history-beginning-search-backward-end history-search-end
 612 zle -N history-beginning-search-forward-end  history-search-end
 613 #k# search history backward for entry beginning with typed text
 614 bindkey '^xp'   history-beginning-search-backward-end
 615 #k# search history forward for entry beginning with typed text
 616 bindkey '^xP'   history-beginning-search-forward-end
 617 #k# search history backward for entry beginning with typed text
 618 bindkey "\e[5~" history-beginning-search-backward-end # PageUp
 619 #k# search history forward for entry beginning with typed text
 620 bindkey "\e[6~" history-beginning-search-forward-end  # PageDown
 621
 622 # bindkey -s '^L' "|less\n"             # ctrl-L pipes to less
 623 # bindkey -s '^B' " &\n"                # ctrl-B runs it in the background
 624
 625 # insert unicode character
 626 # usage example: 'ctrl-x i' 00A7 'ctrl-x i' will give you an §
 627 # See for example http://unicode.org/charts/ for unicode characters code
 628 zrcautoload insert-unicode-char
 629 zle -N insert-unicode-char
 630 #k# Insert Unicode character
 631 bindkey '^Xi' insert-unicode-char
 632
 633 #m# k Shift-tab Perform backwards menu completion
 634 if [[ -n "$terminfo[kcbt]" ]]; then
 635     bindkey "$terminfo[kcbt]" reverse-menu-complete
 636 elif [[ -n "$terminfo[cbt]" ]]; then # required for GNU screen
 637     bindkey "$terminfo[cbt]"  reverse-menu-complete
 638 fi
 639
 640 ## toggle the ,. abbreviation feature on/off
 641 # NOABBREVIATION: default abbreviation-state
 642 #                 0 - enabled (default)
 643 #                 1 - disabled
 644 NOABBREVIATION=${NOABBREVIATION:-0}
 645
 646 grml_toggle_abbrev() {
 647     if (( ${NOABBREVIATION} > 0 )) ; then
 648         NOABBREVIATION=0
 649     else
 650         NOABBREVIATION=1
 651     fi
 652 }
 653
 654 zle -N grml_toggle_abbrev
 655 bindkey '^xA' grml_toggle_abbrev
 656
 657 # add a command line to the shells history without executing it
 658 commit-to-history() {
 659     print -s ${(z)BUFFER}
 660     zle send-break
 661 }
 662 zle -N commit-to-history
 663 bindkey "^x^h" commit-to-history
 664
 665 # only slash should be considered as a word separator:
 666 slash-backward-kill-word() {
 667     local WORDCHARS="${WORDCHARS:s@/@}"
 668     # zle backward-word
 669     zle backward-kill-word
 670 }
 671 zle -N slash-backward-kill-word
 672
 673 #k# Kill left-side word or everything up to next slash
 674 bindkey '\ev' slash-backward-kill-word
 675 #k# Kill left-side word or everything up to next slash
 676 bindkey '\e^h' slash-backward-kill-word
 677 #k# Kill left-side word or everything up to next slash
 678 bindkey '\e^?' slash-backward-kill-word
 679
 680 # use the new *-pattern-* widgets for incremental history search
 681 if is439 ; then
 682     bindkey '^r' history-incremental-pattern-search-backward
 683     bindkey '^s' history-incremental-pattern-search-forward
 684 fi
 685
 686 # a generic accept-line wrapper
 687
 688 # This widget can prevent unwanted autocorrections from command-name
 689 # to _command-name, rehash automatically on enter and call any number
 690 # of builtin and user-defined widgets in different contexts.
 691 #
 692 # For a broader description, see:
 693 # <http://bewatermyfriend.org/posts/2007/12-26.11-50-38-tooltime.html>
 694 #
 695 # The code is imported from the file 'zsh/functions/accept-line' from
 696 # <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>, which
 697 # distributed under the same terms as zsh itself.
 698
 699 # A newly added command will may not be found or will cause false
 700 # correction attempts, if you got auto-correction set. By setting the
 701 # following style, we force accept-line() to rehash, if it cannot
 702 # find the first word on the command line in the $command[] hash.
 703 zstyle ':acceptline:*' rehash true
 704
 705 function Accept-Line() {
 706     setopt localoptions noksharrays
 707     local -a subs
 708     local -xi aldone
 709     local sub
 710     local alcontext=${1:-$alcontext}
 711
 712     zstyle -a ":acceptline:${alcontext}" actions subs
 713
 714     (( ${#subs} < 1 )) && return 0
 715
 716     (( aldone = 0 ))
 717     for sub in ${subs} ; do
 718         [[ ${sub} == 'accept-line' ]] && sub='.accept-line'
 719         zle ${sub}
 720
 721         (( aldone > 0 )) && break
 722     done
 723 }
 724
 725 function Accept-Line-getdefault() {
 726     emulate -L zsh
 727     local default_action
 728
 729     zstyle -s ":acceptline:${alcontext}" default_action default_action
 730     case ${default_action} in
 731         ((accept-line|))
 732             printf ".accept-line"
 733             ;;
 734         (*)
 735             printf ${default_action}
 736             ;;
 737     esac
 738 }
 739
 740 function Accept-Line-HandleContext() {
 741     zle Accept-Line
 742
 743     default_action=$(Accept-Line-getdefault)
 744     zstyle -T ":acceptline:${alcontext}" call_default \
 745         && zle ${default_action}
 746 }
 747
 748 function accept-line() {
 749     setopt localoptions noksharrays
 750     local -ax cmdline
 751     local -x alcontext
 752     local buf com fname format msg default_action
 753
 754     alcontext='default'
 755     buf="${BUFFER}"
 756     cmdline=(${(z)BUFFER})
 757     com="${cmdline[1]}"
 758     fname="_${com}"
 759
 760     Accept-Line 'preprocess'
 761
 762     zstyle -t ":acceptline:${alcontext}" rehash \
 763         && [[ -z ${commands[$com]} ]]           \
 764         && rehash
 765
 766     if    [[ -n ${com}               ]] \
 767        && [[ -n ${reswords[(r)$com]} ]] \
 768        || [[ -n ${aliases[$com]}     ]] \
 769        || [[ -n ${functions[$com]}   ]] \
 770        || [[ -n ${builtins[$com]}    ]] \
 771        || [[ -n ${commands[$com]}    ]] ; then
 772
 773         # there is something sensible to execute, just do it.
 774         alcontext='normal'
 775         Accept-Line-HandleContext
 776
 777         return
 778     fi
 779
 780     if    [[ -o correct              ]] \
 781        || [[ -o correctall           ]] \
 782        && [[ -n ${functions[$fname]} ]] ; then
 783
 784         # nothing there to execute but there is a function called
 785         # _command_name; a completion widget. Makes no sense to
 786         # call it on the commandline, but the correct{,all} options
 787         # will ask for it nevertheless, so warn the user.
 788         if [[ ${LASTWIDGET} == 'accept-line' ]] ; then
 789             # Okay, we warned the user before, he called us again,
 790             # so have it his way.
 791             alcontext='force'
 792             Accept-Line-HandleContext
 793
 794             return
 795         fi
 796
 797         if zstyle -t ":acceptline:${alcontext}" nocompwarn ; then
 798             alcontext='normal'
 799             Accept-Line-HandleContext
 800         else
 801             # prepare warning message for the user, configurable via zstyle.
 802             zstyle -s ":acceptline:${alcontext}" compwarnfmt msg
 803
 804             if [[ -z ${msg} ]] ; then
 805                 msg="%c will not execute and completion %f exists."
 806             fi
 807
 808             zformat -f msg "${msg}" "c:${com}" "f:${fname}"
 809
 810             zle -M -- "${msg}"
 811         fi
 812         return
 813     elif [[ -n ${buf//[$' \t\n']##/} ]] ; then
 814         # If we are here, the commandline contains something that is not
 815         # executable, which is neither subject to _command_name correction
 816         # and is not empty. might be a variable assignment
 817         alcontext='misc'
 818         Accept-Line-HandleContext
 819
 820         return
 821     fi
 822
 823     # If we got this far, the commandline only contains whitespace, or is empty.
 824     alcontext='empty'
 825     Accept-Line-HandleContext
 826 }
 827
 828 zle -N accept-line
 829 zle -N Accept-Line
 830 zle -N Accept-Line-HandleContext
 831
 832 # power completion - abbreviation expansion
 833 # power completion / abbreviation expansion / buffer expansion
 834 # see http://zshwiki.org/home/examples/zleiab for details
 835 # less risky than the global aliases but powerful as well
 836 # just type the abbreviation key and afterwards ',.' to expand it
 837 declare -A abk
 838 setopt extendedglob
 839 setopt interactivecomments
 840 abk=(
 841 #   key   # value                  (#d additional doc string)
 842 #A# start
 843     '...'  '../..'
 844     '....' '../../..'
 845     'BG'   '& exit'
 846     'C'    '| wc -l'
 847     'G'    '|& grep --color=auto '
 848     'H'    '| head'
 849     'Hl'   ' --help |& less -r'    #d (Display help in pager)
 850     'L'    '| less'
 851     'LL'   '|& less -r'
 852     'M'    '| most'
 853     'N'    '&>/dev/null'           #d (No Output)
 854     'R'    '| tr A-z N-za-m'       #d (ROT13)
 855     'SL'   '| sort | less'
 856     'S'    '| sort -u'
 857     'T'    '| tail'
 858     'V'    '|& vim -'
 859 #A# end
 860     'co'   './configure && make && sudo make install'
 861 )
 862
 863 globalias() {
 864     emulate -L zsh
 865     setopt extendedglob
 866     local MATCH
 867
 868     if (( NOABBREVIATION > 0 )) ; then
 869         LBUFFER="${LBUFFER},."
 870         return 0
 871     fi
 872
 873     matched_chars='[.-|_a-zA-Z0-9]#'
 874     LBUFFER=${LBUFFER%%(#m)[.-|_a-zA-Z0-9]#}
 875     LBUFFER+=${abk[$MATCH]:-$MATCH}
 876 }
 877
 878 zle -N globalias
 879 bindkey ",." globalias
 880
 881 # autoloading
 882 zrcautoload zmv    # who needs mmv or rename?
 883 zrcautoload history-search-end
 884
 885 # we don't want to quote/espace URLs on our own...
 886 # if autoload -U url-quote-magic ; then
 887 #    zle -N self-insert url-quote-magic
 888 #    zstyle ':url-quote-magic:*' url-metas '*?[]^()~#{}='
 889 # else
 890 #    print 'Notice: no url-quote-magic available :('
 891 # fi
 892 alias url-quote='autoload -U url-quote-magic ; zle -N self-insert url-quote-magic'
 893
 894 #m# k ESC-h Call \kbd{run-help} for the 1st word on the command line
 895 alias run-help >&/dev/null && unalias run-help
 896 for rh in run-help{,-git,-svk,-svn}; do
 897     zrcautoload $rh
 898 done; unset rh
 899
 900 # completion system
 901 if zrcautoload compinit ; then
 902     compinit || print 'Notice: no compinit available :('
 903 else
 904     print 'Notice: no compinit available :('
 905     function zstyle { }
 906     function compdef { }
 907 fi
 908
 909 is4 && zrcautoload zed # use ZLE editor to edit a file or function
 910
 911 is4 && \
 912 for mod in complist deltochar mathfunc ; do
 913     zmodload -i zsh/${mod} 2>/dev/null || print "Notice: no ${mod} available :("
 914 done
 915
 916 # autoload zsh modules when they are referenced
 917 if is4 ; then
 918     zmodload -a  zsh/stat    zstat
 919     zmodload -a  zsh/zpty    zpty
 920     zmodload -ap zsh/mapfile mapfile
 921 fi
 922
 923 if is4 && zrcautoload insert-files && zle -N insert-files ; then
 924     #k# Insert files and test globbing
 925     bindkey "^Xf" insert-files # C-x-f
 926 fi
 927
 928 bindkey ' '   magic-space    # also do history expansion on space
 929 #k# Trigger menu-complete
 930 bindkey '\ei' menu-complete  # menu completion via esc-i
 931
 932 # press esc-e for editing command line in $EDITOR or $VISUAL
 933 if is4 && zrcautoload edit-command-line && zle -N edit-command-line ; then
 934     #k# Edit the current line in \kbd{\$EDITOR}
 935     bindkey '\ee' edit-command-line
 936 fi
 937
 938 if is4 && [[ -n ${(k)modules[zsh/complist]} ]] ; then
 939     #k# menu selection: pick item but stay in the menu
 940     bindkey -M menuselect '\e^M' accept-and-menu-complete
 941     # also use + and INSERT since it's easier to press repeatedly
 942     bindkey -M menuselect "+" accept-and-menu-complete
 943     bindkey -M menuselect "^[[2~" accept-and-menu-complete
 944
 945     # accept a completion and try to complete again by using menu
 946     # completion; very useful with completing directories
 947     # by using 'undo' one's got a simple file browser
 948     bindkey -M menuselect '^o' accept-and-infer-next-history
 949 fi
 950
 951 # press "ctrl-e d" to insert the actual date in the form yyyy-mm-dd
 952 insert-datestamp() { LBUFFER+=${(%):-'%D{%Y-%m-%d}'}; }
 953 zle -N insert-datestamp
 954
 955 #k# Insert a timestamp on the command line (yyyy-mm-dd)
 956 bindkey '^Ed' insert-datestamp
 957
 958 # press esc-m for inserting last typed word again (thanks to caphuso!)
 959 insert-last-typed-word() { zle insert-last-word -- 0 -1 };
 960 zle -N insert-last-typed-word;
 961
 962 #k# Insert last typed word
 963 bindkey "\em" insert-last-typed-word
 964
 965 function grml-zsh-fg() {
 966   if (( ${#jobstates} )); then
 967     zle .push-input
 968     [[ -o hist_ignore_space ]] && BUFFER=' ' || BUFFER=''
 969     BUFFER="${BUFFER}fg"
 970     zle .accept-line
 971   else
 972     zle -M 'No background jobs. Doing nothing.'
 973   fi
 974 }
 975 zle -N grml-zsh-fg
 976 #k# A smart shortcut for \kbd{fg<enter>}
 977 bindkey '^z' grml-zsh-fg
 978
 979 # run command line as user root via sudo:
 980 sudo-command-line() {
 981     [[ -z $BUFFER ]] && zle up-history
 982     if [[ $BUFFER != sudo\ * ]]; then
 983         BUFFER="sudo $BUFFER"
 984         CURSOR=$(( CURSOR+5 ))
 985     fi
 986 }
 987 zle -N sudo-command-line
 988
 989 #k# prepend the current command with "sudo"
 990 bindkey "^Os" sudo-command-line
 991
 992 ### jump behind the first word on the cmdline.
 993 ### useful to add options.
 994 function jump_after_first_word() {
 995     local words
 996     words=(${(z)BUFFER})
 997
 998     if (( ${#words} <= 1 )) ; then
 999         CURSOR=${#BUFFER}
1000     else
1001         CURSOR=${#${words[1]}}
1002     fi
1003 }
1004 zle -N jump_after_first_word
1005 #k# jump to after first word (for adding options)
1006 bindkey '^x1' jump_after_first_word
1007
1008 # complete word from history with menu (from Book: ZSH, OpenSource-Press)
1009 zle -C hist-complete complete-word _generic
1010 zstyle ':completion:hist-complete:*' completer _history
1011 #k# complete word from history with menu
1012 bindkey "^X^X" hist-complete
1013
1014 ## complete word from currently visible Screen or Tmux buffer.
1015 if check_com -c screen || check_com -c tmux; then
1016     _complete_screen_display() {
1017         [[ "$TERM" != "screen" ]] && return 1
1018
1019         local TMPFILE=$(mktemp)
1020         local -U -a _screen_display_wordlist
1021         trap "rm -f $TMPFILE" EXIT
1022
1023         # fill array with contents from screen hardcopy
1024         if ((${+TMUX})); then
1025             #works, but crashes tmux below version 1.4
1026             #luckily tmux -V option to ask for version, was also added in 1.4
1027             tmux -V &>/dev/null || return
1028             tmux -q capture-pane \; save-buffer -b 0 $TMPFILE \; delete-buffer -b 0
1029         else
1030             screen -X hardcopy $TMPFILE
1031             #screen sucks, it dumps in latin1, apparently always. so recode it to system charset
1032             check_com recode && recode latin1 $TMPFILE
1033         fi
1034         _screen_display_wordlist=( ${(QQ)$(<$TMPFILE)} )
1035         # remove PREFIX to be completed from that array
1036         _screen_display_wordlist[${_screen_display_wordlist[(i)$PREFIX]}]=""
1037         compadd -a _screen_display_wordlist
1038     }
1039     #k# complete word from currently visible GNU screen buffer
1040     bindkey -r "^XS"
1041     compdef -k _complete_screen_display complete-word '^XS'
1042 fi
1043
1044 # history
1045
1046 ZSHDIR=$HOME/.zsh
1047
1048 #v#
1049 HISTFILE=$HOME/.zsh_history
1050 isgrmlcd && HISTSIZE=500  || HISTSIZE=5000
1051 isgrmlcd && SAVEHIST=1000 || SAVEHIST=10000 # useful for setopt append_history
1052
1053 # dirstack handling
1054
1055 DIRSTACKSIZE=${DIRSTACKSIZE:-20}
1056 DIRSTACKFILE=${DIRSTACKFILE:-${HOME}/.zdirs}
1057
1058 if [[ -f ${DIRSTACKFILE} ]] && [[ ${#dirstack[*]} -eq 0 ]] ; then
1059     dirstack=( ${(f)"$(< $DIRSTACKFILE)"} )
1060     # "cd -" won't work after login by just setting $OLDPWD, so
1061     [[ -d $dirstack[1] ]] && cd $dirstack[1] && cd $OLDPWD
1062 fi
1063
1064 chpwd() {
1065     local -ax my_stack
1066     my_stack=( ${PWD} ${dirstack} )
1067     if is42 ; then
1068         builtin print -l ${(u)my_stack} >! ${DIRSTACKFILE}
1069     else
1070         uprint my_stack >! ${DIRSTACKFILE}
1071     fi
1072 }
1073
1074 # directory based profiles
1075
1076 if is433 ; then
1077
1078 CHPWD_PROFILE='default'
1079 function chpwd_profiles() {
1080     # Say you want certain settings to be active in certain directories.
1081     # This is what you want.
1082     #
1083     # zstyle ':chpwd:profiles:/usr/src/grml(|/|/*)'   profile grml
1084     # zstyle ':chpwd:profiles:/usr/src/debian(|/|/*)' profile debian
1085     #
1086     # When that's done and you enter a directory that matches the pattern
1087     # in the third part of the context, a function called chpwd_profile_grml,
1088     # for example, is called (if it exists).
1089     #
1090     # If no pattern matches (read: no profile is detected) the profile is
1091     # set to 'default', which means chpwd_profile_default is attempted to
1092     # be called.
1093     #
1094     # A word about the context (the ':chpwd:profiles:*' stuff in the zstyle
1095     # command) which is used: The third part in the context is matched against
1096     # ${PWD}. That's why using a pattern such as /foo/bar(|/|/*) makes sense.
1097     # Because that way the profile is detected for all these values of ${PWD}:
1098     #   /foo/bar
1099     #   /foo/bar/
1100     #   /foo/bar/baz
1101     # So, if you want to make double damn sure a profile works in /foo/bar
1102     # and everywhere deeper in that tree, just use (|/|/*) and be happy.
1103     #
1104     # The name of the detected profile will be available in a variable called
1105     # 'profile' in your functions. You don't need to do anything, it'll just
1106     # be there.
1107     #
1108     # Then there is the parameter $CHPWD_PROFILE is set to the profile, that
1109     # was is currently active. That way you can avoid running code for a
1110     # profile that is already active, by running code such as the following
1111     # at the start of your function:
1112     #
1113     # function chpwd_profile_grml() {
1114     #     [[ ${profile} == ${CHPWD_PROFILE} ]] && return 1
1115     #   ...
1116     # }
1117     #
1118     # The initial value for $CHPWD_PROFILE is 'default'.
1119     #
1120     # Version requirement:
1121     #   This feature requires zsh 4.3.3 or newer.
1122     #   If you use this feature and need to know whether it is active in your
1123     #   current shell, there are several ways to do that. Here are two simple
1124     #   ways:
1125     #
1126     #   a) If knowing if the profiles feature is active when zsh starts is
1127     #      good enough for you, you can put the following snippet into your
1128     #      .zshrc.local:
1129     #
1130     #   (( ${+functions[chpwd_profiles]} )) && print "directory profiles active"
1131     #
1132     #   b) If that is not good enough, and you would prefer to be notified
1133     #      whenever a profile changes, you can solve that by making sure you
1134     #      start *every* profile function you create like this:
1135     #
1136     #   function chpwd_profile_myprofilename() {
1137     #       [[ ${profile} == ${CHPWD_PROFILE} ]] && return 1
1138     #       print "chpwd(): Switching to profile: $profile"
1139     #     ...
1140     #   }
1141     #
1142     #      That makes sure you only get notified if a profile is *changed*,
1143     #      not everytime you change directory, which would probably piss
1144     #      you off fairly quickly. :-)
1145     #
1146     # There you go. Now have fun with that.
1147     local -x profile
1148
1149     zstyle -s ":chpwd:profiles:${PWD}" profile profile || profile='default'
1150     if (( ${+functions[chpwd_profile_$profile]} )) ; then
1151         chpwd_profile_${profile}
1152     fi
1153
1154     CHPWD_PROFILE="${profile}"
1155     return 0
1156 }
1157 chpwd_functions=( ${chpwd_functions} chpwd_profiles )
1158
1159 fi # is433
1160
1161 # display battery status on right side of prompt via running 'BATTERY=1 zsh'
1162 if [[ $BATTERY -gt 0 ]] ; then
1163     if ! check_com -c acpi ; then
1164         BATTERY=0
1165     fi
1166 fi
1167
1168 battery() {
1169 if [[ $BATTERY -gt 0 ]] ; then
1170     PERCENT="${${"$(acpi 2>/dev/null)"}/(#b)[[:space:]]#Battery <->: [^0-9]##, (<->)%*/${match[1]}}"
1171     if [[ -z "$PERCENT" ]] ; then
1172         PERCENT='acpi not present'
1173     else
1174         if [[ "$PERCENT" -lt 20 ]] ; then
1175             PERCENT="warning: ${PERCENT}%%"
1176         else
1177             PERCENT="${PERCENT}%%"
1178         fi
1179     fi
1180 fi
1181 }
1182 # set colors for use in prompts
1183 if zrcautoload colors && colors 2>/dev/null ; then
1184     BLUE="%{${fg[blue]}%}"
1185     RED="%{${fg_bold[red]}%}"
1186     GREEN="%{${fg[green]}%}"
1187     CYAN="%{${fg[cyan]}%}"
1188     MAGENTA="%{${fg[magenta]}%}"
1189     YELLOW="%{${fg[yellow]}%}"
1190     WHITE="%{${fg[white]}%}"
1191     NO_COLOUR="%{${reset_color}%}"
1192 else
1193     BLUE=$'%{\e[1;34m%}'
1194     RED=$'%{\e[1;31m%}'
1195     GREEN=$'%{\e[1;32m%}'
1196     CYAN=$'%{\e[1;36m%}'
1197     WHITE=$'%{\e[1;37m%}'
1198     MAGENTA=$'%{\e[1;35m%}'
1199     YELLOW=$'%{\e[1;33m%}'
1200     NO_COLOUR=$'%{\e[0m%}'
1201 fi
1202
1203 # gather version control information for inclusion in a prompt
1204
1205 if zrcautoload vcs_info; then
1206     # `vcs_info' in zsh versions 4.3.10 and below have a broken `_realpath'
1207     # function, which can cause a lot of trouble with our directory-based
1208     # profiles. So:
1209     if [[ ${ZSH_VERSION} == 4.3.<-10> ]] ; then
1210         function VCS_INFO_realpath () {
1211             setopt localoptions NO_shwordsplit chaselinks
1212             ( builtin cd -q $1 2> /dev/null && pwd; )
1213         }
1214     fi
1215
1216     zstyle ':vcs_info:*' max-exports 2
1217
1218     if [[ -o restricted ]]; then
1219         zstyle ':vcs_info:*' enable NONE
1220     fi
1221 fi
1222
1223 # Change vcs_info formats for the grml prompt. The 2nd format sets up
1224 # $vcs_info_msg_1_ to contain "zsh: repo-name" used to set our screen title.
1225 # TODO: The included vcs_info() version still uses $VCS_INFO_message_N_.
1226 #       That needs to be the use of $VCS_INFO_message_N_ needs to be changed
1227 #       to $vcs_info_msg_N_ as soon as we use the included version.
1228 if [[ "$TERM" == dumb ]] ; then
1229     zstyle ':vcs_info:*' actionformats "(%s%)-[%b|%a] " "zsh: %r"
1230     zstyle ':vcs_info:*' formats       "(%s%)-[%b] "    "zsh: %r"
1231 else
1232     # these are the same, just with a lot of colours:
1233     zstyle ':vcs_info:*' actionformats "${MAGENTA}(${NO_COLOUR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${YELLOW}|${RED}%a${MAGENTA}]${NO_COLOUR} " \
1234                                        "zsh: %r"
1235     zstyle ':vcs_info:*' formats       "${MAGENTA}(${NO_COLOUR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${MAGENTA}]${NO_COLOUR}%} " \
1236                                        "zsh: %r"
1237     zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "%b${RED}:${YELLOW}%r"
1238 fi
1239
1240 # command not found handling
1241
1242 (( ${COMMAND_NOT_FOUND} == 1 )) &&
1243 function command_not_found_handler() {
1244     emulate -L zsh
1245     if [[ -x ${GRML_ZSH_CNF_HANDLER} ]] ; then
1246         ${GRML_ZSH_CNF_HANDLER} $1
1247     fi
1248     return 1
1249 }
1250
1251 # set prompt
1252 if zrcautoload promptinit && promptinit 2>/dev/null ; then
1253     promptinit # people should be able to use their favourite prompt
1254 else
1255     print 'Notice: no promptinit available :('
1256 fi
1257
1258 setopt prompt_subst
1259
1260 # make sure to use right prompt only when not running a command
1261 is41 && setopt transient_rprompt
1262
1263
1264 function ESC_print () {
1265     info_print $'\ek' $'\e\\' "$@"
1266 }
1267 function set_title () {
1268     info_print  $'\e]0;' $'\a' "$@"
1269 }
1270
1271 function info_print () {
1272     local esc_begin esc_end
1273     esc_begin="$1"
1274     esc_end="$2"
1275     shift 2
1276     printf '%s' ${esc_begin}
1277     printf '%s' "$*"
1278     printf '%s' "${esc_end}"
1279 }
1280
1281 # TODO: revise all these NO* variables and especially their documentation
1282 #       in zsh-help() below.
1283 is4 && [[ $NOPRECMD -eq 0 ]] && precmd () {
1284     [[ $NOPRECMD -gt 0 ]] && return 0
1285     # update VCS information
1286     (( ${+functions[vcs_info]} )) && vcs_info
1287
1288     if [[ $TERM == screen* ]] ; then
1289         if [[ -n ${vcs_info_msg_1_} ]] ; then
1290             ESC_print ${vcs_info_msg_1_}
1291         else
1292             ESC_print "zsh"
1293         fi
1294     fi
1295     # just use DONTSETRPROMPT=1 to be able to overwrite RPROMPT
1296     if [[ ${DONTSETRPROMPT:-} -eq 0 ]] ; then
1297         if [[ $BATTERY -gt 0 ]] ; then
1298             # update battery (dropped into $PERCENT) information
1299             battery
1300             RPROMPT="%(?..:() ${PERCENT}"
1301         else
1302             RPROMPT="%(?..:() "
1303         fi
1304     fi
1305     # adjust title of xterm
1306     # see http://www.faqs.org/docs/Linux-mini/Xterm-Title.html
1307     [[ ${NOTITLE:-} -gt 0 ]] && return 0
1308     case $TERM in
1309         (xterm*|rxvt*)
1310             set_title ${(%):-"%n@%m: %~"}
1311             ;;
1312     esac
1313 }
1314
1315 # preexec() => a function running before every command
1316 is4 && [[ $NOPRECMD -eq 0 ]] && \
1317 preexec () {
1318     [[ $NOPRECMD -gt 0 ]] && return 0
1319 # set hostname if not running on host with name 'grml'
1320     if [[ -n "$HOSTNAME" ]] && [[ "$HOSTNAME" != $(hostname) ]] ; then
1321        NAME="@$HOSTNAME"
1322     fi
1323 # get the name of the program currently running and hostname of local machine
1324 # set screen window title if running in a screen
1325     if [[ "$TERM" == screen* ]] ; then
1326         # local CMD=${1[(wr)^(*=*|sudo|ssh|-*)]}       # don't use hostname
1327         local CMD="${1[(wr)^(*=*|sudo|ssh|-*)]}$NAME" # use hostname
1328         ESC_print ${CMD}
1329     fi
1330 # adjust title of xterm
1331     [[ ${NOTITLE} -gt 0 ]] && return 0
1332     case $TERM in
1333         (xterm*|rxvt*)
1334             set_title "${(%):-"%n@%m:"}" "$1"
1335             ;;
1336     esac
1337 }
1338
1339 EXITCODE="%(?..%?%1v )"
1340 PS2='\`%_> '      # secondary prompt, printed when the shell needs more information to complete a command.
1341 PS3='?# '         # selection prompt used within a select loop.
1342 PS4='+%N:%i:%_> ' # the execution trace prompt (setopt xtrace). default: '+%N:%i>'
1343
1344 # set variable debian_chroot if running in a chroot with /etc/debian_chroot
1345 if [[ -z "$debian_chroot" ]] && [[ -r /etc/debian_chroot ]] ; then
1346     debian_chroot=$(cat /etc/debian_chroot)
1347 fi
1348
1349 # don't use colors on dumb terminals (like emacs):
1350 if [[ "$TERM" == dumb ]] ; then
1351     PROMPT="${EXITCODE}${debian_chroot:+($debian_chroot)}%n@%m %40<...<%B%~%b%<< "
1352 else
1353     # only if $GRMLPROMPT is set (e.g. via 'GRMLPROMPT=1 zsh') use the extended prompt
1354     # set variable identifying the chroot you work in (used in the prompt below)
1355     if [[ $GRMLPROMPT -gt 0 ]] ; then
1356         PROMPT="${RED}${EXITCODE}${CYAN}[%j running job(s)] ${GREEN}{history#%!} ${RED}%(3L.+.) ${BLUE}%* %D
1357 ${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "
1358     else
1359         # This assembles the primary prompt string
1360         if (( EUID != 0 )); then
1361             PROMPT="${RED}${EXITCODE}${WHITE}${debian_chroot:+($debian_chroot)}${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "
1362         else
1363             PROMPT="${BLUE}${EXITCODE}${WHITE}${debian_chroot:+($debian_chroot)}${RED}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< "
1364         fi
1365     fi
1366 fi
1367
1368 PROMPT="${PROMPT}"'${vcs_info_msg_0_}'"%# "
1369
1370 # if we are inside a grml-chroot set a specific prompt theme
1371 if [[ -n "$GRML_CHROOT" ]] ; then
1372     PROMPT="%{$fg[red]%}(CHROOT) %{$fg_bold[red]%}%n%{$fg_no_bold[white]%}@%m %40<...<%B%~%b%<< %\# "
1373 fi
1374
1375 # 'hash' some often used directories
1376 #d# start
1377 hash -d deb=/var/cache/apt/archives
1378 hash -d doc=/usr/share/doc
1379 hash -d linux=/lib/modules/$(command uname -r)/build/
1380 hash -d log=/var/log
1381 hash -d slog=/var/log/syslog
1382 hash -d src=/usr/src
1383 hash -d templ=/usr/share/doc/grml-templates
1384 hash -d tt=/usr/share/doc/texttools-doc
1385 hash -d www=/var/www
1386 #d# end
1387
1388 # some aliases
1389 if check_com -c screen ; then
1390     if [[ $UID -eq 0 ]] ; then
1391         [[ -r /etc/grml/screenrc ]] && alias screen="${commands[screen]} -c /etc/grml/screenrc"
1392     elif [[ -r $HOME/.screenrc ]] ; then
1393         alias screen="${commands[screen]} -c $HOME/.screenrc"
1394     else
1395         if [[ -r /etc/grml/screenrc_grml ]]; then
1396             alias screen="${commands[screen]} -c /etc/grml/screenrc_grml"
1397         else
1398             [[ -r /etc/grml/screenrc ]] && alias screen="${commands[screen]} -c /etc/grml/screenrc"
1399         fi
1400     fi
1401 fi
1402
1403 # do we have GNU ls with color-support?
1404 if ls --help 2>/dev/null | grep -- --color= >/dev/null && [[ "$TERM" != dumb ]] ; then
1405     #a1# execute \kbd{@a@}:\quad ls with colors
1406     alias ls='ls -b -CF --color=auto'
1407     #a1# execute \kbd{@a@}:\quad list all files, with colors
1408     alias la='ls -la --color=auto'
1409     #a1# long colored list, without dotfiles (@a@)
1410     alias ll='ls -l --color=auto'
1411     #a1# long colored list, human readable sizes (@a@)
1412     alias lh='ls -hAl --color=auto'
1413     #a1# List files, append qualifier to filenames \\&\quad(\kbd{/} for directories, \kbd{@} for symlinks ...)
1414     alias l='ls -lF --color=auto'
1415 else
1416     alias ls='ls -b -CF'
1417     alias la='ls -la'
1418     alias ll='ls -l'
1419     alias lh='ls -hAl'
1420     alias l='ls -lF'
1421 fi
1422
1423 alias mdstat='cat /proc/mdstat'
1424 alias ...='cd ../../'
1425
1426 # generate alias named "$KERNELVERSION-reboot" so you can use boot with kexec:
1427 if [[ -x /sbin/kexec ]] && [[ -r /proc/cmdline ]] ; then
1428     alias "$(uname -r)-reboot"="kexec -l --initrd=/boot/initrd.img-"$(uname -r)" --command-line=\"$(cat /proc/cmdline)\" /boot/vmlinuz-"$(uname -r)""
1429 fi
1430
1431 alias cp='nocorrect cp'         # no spelling correction on cp
1432 alias mkdir='nocorrect mkdir'   # no spelling correction on mkdir
1433 alias mv='nocorrect mv'         # no spelling correction on mv
1434 alias rm='nocorrect rm'         # no spelling correction on rm
1435
1436 #a1# Execute \kbd{rmdir}
1437 alias rd='rmdir'
1438 #a1# Execute \kbd{mkdir}
1439 alias md='mkdir'
1440
1441 # see http://www.cl.cam.ac.uk/~mgk25/unicode.html#term for details
1442 alias term2iso="echo 'Setting terminal to iso mode' ; print -n '\e%@'"
1443 alias term2utf="echo 'Setting terminal to utf-8 mode'; print -n '\e%G'"
1444
1445 # make sure it is not assigned yet
1446 [[ -n ${aliases[utf2iso]} ]] && unalias utf2iso
1447 utf2iso() {
1448     if isutfenv ; then
1449         for ENV in $(env | command grep -i '.utf') ; do
1450             eval export "$(echo $ENV | sed 's/UTF-8/iso885915/ ; s/utf8/iso885915/')"
1451         done
1452     fi
1453 }
1454
1455 # make sure it is not assigned yet
1456 [[ -n ${aliases[iso2utf]} ]] && unalias iso2utf
1457 iso2utf() {
1458     if ! isutfenv ; then
1459         for ENV in $(env | command grep -i '\.iso') ; do
1460             eval export "$(echo $ENV | sed 's/iso.*/UTF-8/ ; s/ISO.*/UTF-8/')"
1461         done
1462     fi
1463 }
1464
1465 # I like clean prompt, so provide simple way to get that
1466 check_com 0 || alias 0='return 0'
1467
1468 # for really lazy people like mika:
1469 check_com S &>/dev/null || alias S='screen'
1470 check_com s &>/dev/null || alias s='ssh'
1471
1472 # especially for roadwarriors using GNU screen and ssh:
1473 if ! check_com asc &>/dev/null ; then
1474   asc() { autossh -t "$@" 'screen -RdU' }
1475   compdef asc=ssh
1476 fi
1477
1478 # get top 10 shell commands:
1479 alias top10='print -l ${(o)history%% *} | uniq -c | sort -nr | head -n 10'
1480
1481 # truecrypt; use e.g. via 'truec /dev/ice /mnt/ice' or 'truec -i'
1482 if check_com -c truecrypt ; then
1483     if isutfenv ; then
1484         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077,utf8" '
1485     else
1486         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077" '
1487     fi
1488 fi
1489
1490 #f1# Hints for the use of zsh on grml
1491 zsh-help() {
1492     print "$bg[white]$fg[black]
1493 zsh-help - hints for use of zsh on grml
1494 =======================================$reset_color"
1495
1496     print '
1497 Main configuration of zsh happens in /etc/zsh/zshrc.
1498 That file is part of the package grml-etc-core, if you want to
1499 use them on a non-grml-system just get the tar.gz from
1500 http://deb.grml.org/ or (preferably) get it from the git repository:
1501
1502   http://git.grml.org/f/grml-etc-core/etc/zsh/zshrc
1503
1504 This version of grml'\''s zsh setup does not use skel/.zshrc anymore.
1505 The file is still there, but it is empty for backwards compatibility.
1506
1507 For your own changes use these two files:
1508     $HOME/.zshrc.pre
1509     $HOME/.zshrc.local
1510
1511 The former is sourced very early in our zshrc, the latter is sourced
1512 very lately.
1513
1514 System wide configuration without touching configuration files of grml
1515 can take place in /etc/zsh/zshrc.local.
1516
1517 Normally, the root user (EUID == 0) does not get the whole grml setup.
1518 If you want to force the whole setup for that user, too, set
1519 GRML_ALWAYS_LOAD_ALL=1 in .zshrc.pre in root'\''s home directory.
1520
1521 For information regarding zsh start at http://grml.org/zsh/
1522
1523 Take a look at grml'\''s zsh refcard:
1524 % xpdf =(zcat /usr/share/doc/grml-docs/zsh/grml-zsh-refcard.pdf.gz)
1525
1526 Check out the main zsh refcard:
1527 % '$BROWSER' http://www.bash2zsh.com/zsh_refcard/refcard.pdf
1528
1529 And of course visit the zsh-lovers:
1530 % man zsh-lovers
1531
1532 You can adjust some options through environment variables when
1533 invoking zsh without having to edit configuration files.
1534 Basically meant for bash users who are not used to the power of
1535 the zsh yet. :)
1536
1537   "NOCOR=1    zsh" => deactivate automatic correction
1538   "NOMENU=1   zsh" => do not use auto menu completion (note: use ctrl-d for completion instead!)
1539   "NOPRECMD=1 zsh" => disable the precmd + preexec commands (set GNU screen title)
1540   "NOTITLE=1  zsh" => disable setting the title of xterms without disabling
1541                       preexec() and precmd() completely
1542   "BATTERY=1  zsh" => activate battery status (via acpi) on right side of prompt
1543   "COMMAND_NOT_FOUND=1 zsh"
1544                    => Enable a handler if an external command was not found
1545                       The command called in the handler can be altered by setting
1546                       the GRML_ZSH_CNF_HANDLER variable, the default is:
1547                       "/usr/share/command-not-found/command-not-found"
1548
1549 A value greater than 0 is enables a feature; a value equal to zero
1550 disables it. If you like one or the other of these settings, you can
1551 add them to ~/.zshrc.pre to ensure they are set when sourcing grml'\''s
1552 zshrc.'
1553
1554     print "
1555 $bg[white]$fg[black]
1556 Please report wishes + bugs to the grml-team: http://grml.org/bugs/
1557 Enjoy your grml system with the zsh!$reset_color"
1558 }
1559
1560 # debian stuff
1561 if [[ -r /etc/debian_version ]] ; then
1562     #a3# Execute \kbd{apt-cache search}
1563     alias acs='apt-cache search'
1564     #a3# Execute \kbd{apt-cache show}
1565     alias acsh='apt-cache show'
1566     #a3# Execute \kbd{apt-cache policy}
1567     alias acp='apt-cache policy'
1568     #a3# Execute \kbd{apt-get dist-upgrade}
1569     salias adg="apt-get dist-upgrade"
1570     #a3# Execute \kbd{apt-get install}
1571     salias agi="apt-get install"
1572     #a3# Execute \kbd{aptitude install}
1573     salias ati="aptitude install"
1574     #a3# Execute \kbd{apt-get upgrade}
1575     salias ag="apt-get upgrade"
1576     #a3# Execute \kbd{apt-get update}
1577     salias au="apt-get update"
1578     #a3# Execute \kbd{aptitude update ; aptitude safe-upgrade}
1579     salias -a up="aptitude update ; aptitude safe-upgrade"
1580     #a3# Execute \kbd{dpkg-buildpackage}
1581     alias dbp='dpkg-buildpackage'
1582     #a3# Execute \kbd{grep-excuses}
1583     alias ge='grep-excuses'
1584
1585     # debian upgrade
1586     #f3# Execute \kbd{apt-get update \&\& }\\&\quad \kbd{apt-get dist-upgrade}
1587     upgrade() {
1588         emulate -L zsh
1589         if [[ -z $1 ]] ; then
1590             $SUDO apt-get update
1591             $SUDO apt-get -u upgrade
1592         else
1593             ssh $1 $SUDO apt-get update
1594             # ask before the upgrade
1595             local dummy
1596             ssh $1 $SUDO apt-get --no-act upgrade
1597             echo -n 'Process the upgrade?'
1598             read -q dummy
1599             if [[ $dummy == "y" ]] ; then
1600                 ssh $1 $SUDO apt-get -u upgrade --yes
1601             fi
1602         fi
1603     }
1604
1605     # get a root shell as normal user in live-cd mode:
1606     if isgrmlcd && [[ $UID -ne 0 ]] ; then
1607        alias su="sudo su"
1608      fi
1609
1610     #a1# Take a look at the syslog: \kbd{\$PAGER /var/log/syslog}
1611     salias llog="$PAGER /var/log/syslog"     # take a look at the syslog
1612     #a1# Take a look at the syslog: \kbd{tail -f /var/log/syslog}
1613     salias tlog="tail -f /var/log/syslog"    # follow the syslog
1614 fi
1615
1616 # sort installed Debian-packages by size
1617 if check_com -c dpkg-query ; then
1618     #a3# List installed Debian-packages sorted by size
1619     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"
1620 fi
1621
1622 # if cdrecord is a symlink (to wodim) or isn't present at all warn:
1623 if [[ -L /usr/bin/cdrecord ]] || ! check_com -c cdrecord; then
1624     if check_com -c wodim; then
1625         cdrecord() {
1626             cat <<EOMESS
1627 cdrecord is not provided under its original name by Debian anymore.
1628 See #377109 in the BTS of Debian for more details.
1629
1630 Please use the wodim binary instead
1631 EOMESS
1632             return 1
1633         }
1634     fi
1635 fi
1636
1637 # get_tw_cli has been renamed into get_3ware
1638 if check_com -c get_3ware ; then
1639     get_tw_cli() {
1640         echo 'Warning: get_tw_cli has been renamed into get_3ware. Invoking get_3ware for you.'>&2
1641         get_3ware
1642     }
1643 fi
1644
1645 # I hate lacking backward compatibility, so provide an alternative therefore
1646 if ! check_com -c apache2-ssl-certificate ; then
1647
1648     apache2-ssl-certificate() {
1649
1650     print 'Debian does not ship apache2-ssl-certificate anymore (see #398520). :('
1651     print 'You might want to take a look at Debian the package ssl-cert as well.'
1652     print 'To generate a certificate for use with apache2 follow the instructions:'
1653
1654     echo '
1655
1656 export RANDFILE=/dev/random
1657 mkdir /etc/apache2/ssl/
1658 openssl req $@ -new -x509 -days 365 -nodes -out /etc/apache2/ssl/apache.pem -keyout /etc/apache2/ssl/apache.pem
1659 chmod 600 /etc/apache2/ssl/apache.pem
1660
1661 Run "grml-tips ssl-certificate" if you need further instructions.
1662 '
1663     }
1664 fi
1665
1666 # Use hard limits, except for a smaller stack and no core dumps
1667 unlimit
1668 is425 && limit stack 8192
1669 isgrmlcd && limit core 0 # important for a live-cd-system
1670 limit -s
1671
1672 # completion system
1673
1674 # called later (via is4 && grmlcomp)
1675 # note: use 'zstyle' for getting current settings
1676 #         press ^Xh (control-x h) for getting tags in context; ^X? (control-x ?) to run complete_debug with trace output
1677 grmlcomp() {
1678     # TODO: This could use some additional information
1679
1680     # allow one error for every three characters typed in approximate completer
1681     zstyle ':completion:*:approximate:'    max-errors 'reply=( $((($#PREFIX+$#SUFFIX)/3 )) numeric )'
1682
1683     # don't complete backup files as executables
1684     zstyle ':completion:*:complete:-command-::commands' ignored-patterns '(aptitude-*|*\~)'
1685
1686     # start menu completion only if it could find no unambiguous initial string
1687     zstyle ':completion:*:correct:*'       insert-unambiguous true
1688     zstyle ':completion:*:corrections'     format $'%{\e[0;31m%}%d (errors: %e)%{\e[0m%}'
1689     zstyle ':completion:*:correct:*'       original true
1690
1691     # activate color-completion
1692     zstyle ':completion:*:default'         list-colors ${(s.:.)LS_COLORS}
1693
1694     # format on completion
1695     zstyle ':completion:*:descriptions'    format $'%{\e[0;31m%}completing %B%d%b%{\e[0m%}'
1696
1697     # automatically complete 'cd -<tab>' and 'cd -<ctrl-d>' with menu
1698     # zstyle ':completion:*:*:cd:*:directory-stack' menu yes select
1699
1700     # insert all expansions for expand completer
1701     zstyle ':completion:*:expand:*'        tag-order all-expansions
1702     zstyle ':completion:*:history-words'   list false
1703
1704     # activate menu
1705     zstyle ':completion:*:history-words'   menu yes
1706
1707     # ignore duplicate entries
1708     zstyle ':completion:*:history-words'   remove-all-dups yes
1709     zstyle ':completion:*:history-words'   stop yes
1710
1711     # match uppercase from lowercase
1712     zstyle ':completion:*'                 matcher-list 'm:{a-z}={A-Z}'
1713
1714     # separate matches into groups
1715     zstyle ':completion:*:matches'         group 'yes'
1716     zstyle ':completion:*'                 group-name ''
1717
1718     if [[ "$NOMENU" -eq 0 ]] ; then
1719         # if there are more than 5 options allow selecting from a menu
1720         zstyle ':completion:*'               menu select=5
1721     else
1722         # don't use any menus at all
1723         setopt no_auto_menu
1724     fi
1725
1726     zstyle ':completion:*:messages'        format '%d'
1727     zstyle ':completion:*:options'         auto-description '%d'
1728
1729     # describe options in full
1730     zstyle ':completion:*:options'         description 'yes'
1731
1732     # on processes completion complete all user processes
1733     zstyle ':completion:*:processes'       command 'ps -au$USER'
1734
1735     # offer indexes before parameters in subscripts
1736     zstyle ':completion:*:*:-subscript-:*' tag-order indexes parameters
1737
1738     # provide verbose completion information
1739     zstyle ':completion:*'                 verbose true
1740
1741     # recent (as of Dec 2007) zsh versions are able to provide descriptions
1742     # for commands (read: 1st word in the line) that it will list for the user
1743     # to choose from. The following disables that, because it's not exactly fast.
1744     zstyle ':completion:*:-command-:*:'    verbose false
1745
1746     # set format for warnings
1747     zstyle ':completion:*:warnings'        format $'%{\e[0;31m%}No matches for:%{\e[0m%} %d'
1748
1749     # define files to ignore for zcompile
1750     zstyle ':completion:*:*:zcompile:*'    ignored-patterns '(*~|*.zwc)'
1751     zstyle ':completion:correct:'          prompt 'correct to: %e'
1752
1753     # Ignore completion functions for commands you don't have:
1754     zstyle ':completion::(^approximate*):*:functions' ignored-patterns '_*'
1755
1756     # Provide more processes in completion of programs like killall:
1757     zstyle ':completion:*:processes-names' command 'ps c -u ${USER} -o command | uniq'
1758
1759     # complete manual by their section
1760     zstyle ':completion:*:manuals'    separate-sections true
1761     zstyle ':completion:*:manuals.*'  insert-sections   true
1762     zstyle ':completion:*:man:*'      menu yes select
1763
1764     # provide .. as a completion
1765     zstyle ':completion:*' special-dirs ..
1766
1767     # run rehash on completion so new installed program are found automatically:
1768     _force_rehash() {
1769         (( CURRENT == 1 )) && rehash
1770         return 1
1771     }
1772
1773     ## correction
1774     # some people don't like the automatic correction - so run 'NOCOR=1 zsh' to deactivate it
1775     if [[ "$NOCOR" -gt 0 ]] ; then
1776         zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete _files _ignored
1777         setopt nocorrect
1778     else
1779         # try to be smart about when to use what completer...
1780         setopt correct
1781         zstyle -e ':completion:*' completer '
1782             if [[ $_last_try != "$HISTNO$BUFFER$CURSOR" ]] ; then
1783                 _last_try="$HISTNO$BUFFER$CURSOR"
1784                 reply=(_complete _match _ignored _prefix _files)
1785             else
1786                 if [[ $words[1] == (rm|mv) ]] ; then
1787                     reply=(_complete _files)
1788                 else
1789                     reply=(_oldlist _expand _force_rehash _complete _ignored _correct _approximate _files)
1790                 fi
1791             fi'
1792     fi
1793
1794     # command for process lists, the local web server details and host completion
1795     zstyle ':completion:*:urls' local 'www' '/var/www/' 'public_html'
1796
1797     # caching
1798     [[ -d $ZSHDIR/cache ]] && zstyle ':completion:*' use-cache yes && \
1799                             zstyle ':completion::complete:*' cache-path $ZSHDIR/cache/
1800
1801     # host completion
1802     if is42 ; then
1803         [[ -r ~/.ssh/known_hosts ]] && _ssh_hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[\|]*}%%\ *}%%,*}) || _ssh_hosts=()
1804         [[ -r /etc/hosts ]] && : ${(A)_etc_hosts:=${(s: :)${(ps:\t:)${${(f)~~"$(</etc/hosts)"}%%\#*}##[:blank:]#[^[:blank:]]#}}} || _etc_hosts=()
1805     else
1806         _ssh_hosts=()
1807         _etc_hosts=()
1808     fi
1809     hosts=(
1810         $(hostname)
1811         "$_ssh_hosts[@]"
1812         "$_etc_hosts[@]"
1813         grml.org
1814         localhost
1815     )
1816     zstyle ':completion:*:hosts' hosts $hosts
1817     # TODO: so, why is this here?
1818     #  zstyle '*' hosts $hosts
1819
1820     # use generic completion system for programs not yet defined; (_gnu_generic works
1821     # with commands that provide a --help option with "standard" gnu-like output.)
1822     for compcom in cp deborphan df feh fetchipac head hnb ipacsum mv \
1823                    pal stow tail uname ; do
1824         [[ -z ${_comps[$compcom]} ]] && compdef _gnu_generic ${compcom}
1825     done; unset compcom
1826
1827     # see upgrade function in this file
1828     compdef _hosts upgrade
1829 }
1830
1831 # grmlstuff
1832 grmlstuff() {
1833 # people should use 'grml-x'!
1834     if check_com -c 915resolution; then
1835         855resolution() {
1836             echo "Please use 915resolution as resolution modifying tool for Intel \
1837 graphic chipset."
1838             return -1
1839         }
1840     fi
1841
1842     #a1# Output version of running grml
1843     alias grml-version='cat /etc/grml_version'
1844
1845     if check_com -c rebuildfstab ; then
1846         #a1# Rebuild /etc/fstab
1847         alias grml-rebuildfstab='rebuildfstab -v -r -config'
1848     fi
1849
1850     if check_com -c grml-debootstrap ; then
1851         debian2hd() {
1852             echo "Installing debian to harddisk is possible by using grml-debootstrap."
1853             return 1
1854         }
1855     fi
1856 }
1857
1858 # now run the functions
1859 isgrml && checkhome
1860 is4    && isgrml    && grmlstuff
1861 is4    && grmlcomp
1862
1863 # keephack
1864 is4 && xsource "/etc/zsh/keephack"
1865
1866 # wonderful idea of using "e" glob qualifier by Peter Stephenson
1867 # You use it as follows:
1868 # $ NTREF=/reference/file
1869 # $ ls -l *(e:nt:)
1870 # This lists all the files in the current directory newer than the reference file.
1871 # You can also specify the reference file inline; note quotes:
1872 # $ ls -l *(e:'nt ~/.zshenv':)
1873 is4 && nt() {
1874     if [[ -n $1 ]] ; then
1875         local NTREF=${~1}
1876     fi
1877     [[ $REPLY -nt $NTREF ]]
1878 }
1879
1880 # shell functions
1881
1882 #f1# Provide csh compatibility
1883 setenv()  { typeset -x "${1}${1:+=}${(@)argv[2,$#]}" }  # csh compatibility
1884
1885 #f1# Reload an autoloadable function
1886 freload() { while (( $# )); do; unfunction $1; autoload -U $1; shift; done }
1887 compdef _functions freload
1888
1889 #f1# List symlinks in detail (more detailed version of 'readlink -f' and 'whence -s')
1890 sll() {
1891     [[ -z "$1" ]] && printf 'Usage: %s <file(s)>\n' "$0" && return 1
1892     for file in "$@" ; do
1893         while [[ -h "$file" ]] ; do
1894             ls -l $file
1895             file=$(readlink "$file")
1896         done
1897     done
1898 }
1899
1900 # fast manual access
1901 if check_com qma ; then
1902     #f1# View the zsh manual
1903     manzsh()  { qma zshall "$1" }
1904     compdef _man qma
1905 else
1906     manzsh()  { /usr/bin/man zshall |  vim -c "se ft=man| se hlsearch" +/"$1" - ; }
1907 fi
1908
1909 # TODO: Is it supported to use pager settings like this?
1910 #   PAGER='less -Mr' - If so, the use of $PAGER here needs fixing
1911 # with respect to wordsplitting. (ie. ${=PAGER})
1912 if check_com -c $PAGER ; then
1913     #f1# View Debian's changelog of a given package
1914     dchange() {
1915         emulate -L zsh
1916         if [[ -r /usr/share/doc/$1/changelog.Debian.gz ]] ; then
1917             $PAGER /usr/share/doc/$1/changelog.Debian.gz
1918         elif [[ -r /usr/share/doc/$1/changelog.gz ]] ; then
1919             $PAGER /usr/share/doc/$1/changelog.gz
1920         else
1921             if check_com -c aptitude ; then
1922                 echo "No changelog for package $1 found, using aptitude to retrieve it."
1923                 if isgrml ; then
1924                     aptitude -t unstable changelog $1
1925                 else
1926                     aptitude changelog $1
1927                 fi
1928             else
1929                 echo "No changelog for package $1 found, sorry."
1930                 return 1
1931             fi
1932         fi
1933     }
1934     _dchange() { _files -W /usr/share/doc -/ }
1935     compdef _dchange dchange
1936
1937     #f1# View Debian's NEWS of a given package
1938     dnews() {
1939         emulate -L zsh
1940         if [[ -r /usr/share/doc/$1/NEWS.Debian.gz ]] ; then
1941             $PAGER /usr/share/doc/$1/NEWS.Debian.gz
1942         else
1943             if [[ -r /usr/share/doc/$1/NEWS.gz ]] ; then
1944                 $PAGER /usr/share/doc/$1/NEWS.gz
1945             else
1946                 echo "No NEWS file for package $1 found, sorry."
1947                 return 1
1948             fi
1949         fi
1950     }
1951     _dnews() { _files -W /usr/share/doc -/ }
1952     compdef _dnews dnews
1953
1954     #f1# View upstream's changelog of a given package
1955     uchange() {
1956         emulate -L zsh
1957         if [[ -r /usr/share/doc/$1/changelog.gz ]] ; then
1958             $PAGER /usr/share/doc/$1/changelog.gz
1959         else
1960             echo "No changelog for package $1 found, sorry."
1961             return 1
1962         fi
1963     }
1964     _uchange() { _files -W /usr/share/doc -/ }
1965     compdef _uchange uchange
1966 fi
1967
1968 # zsh profiling
1969 profile() {
1970     ZSH_PROFILE_RC=1 $SHELL "$@"
1971 }
1972
1973 #f1# Edit an alias via zle
1974 edalias() {
1975     [[ -z "$1" ]] && { echo "Usage: edalias <alias_to_edit>" ; return 1 } || vared aliases'[$1]' ;
1976 }
1977 compdef _aliases edalias
1978
1979 #f1# Edit a function via zle
1980 edfunc() {
1981     [[ -z "$1" ]] && { echo "Usage: edfunc <function_to_edit>" ; return 1 } || zed -f "$1" ;
1982 }
1983 compdef _functions edfunc
1984
1985 # use it e.g. via 'Restart apache2'
1986 #m# f6 Start() \kbd{/etc/init.d/\em{process}}\quad\kbd{start}
1987 #m# f6 Restart() \kbd{/etc/init.d/\em{process}}\quad\kbd{restart}
1988 #m# f6 Stop() \kbd{/etc/init.d/\em{process}}\quad\kbd{stop}
1989 #m# f6 Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{reload}
1990 #m# f6 Force-Reload() \kbd{/etc/init.d/\em{process}}\quad\kbd{force-reload}
1991 if [[ -d /etc/init.d || -d /etc/service ]] ; then
1992     __start_stop() {
1993         local action_="${1:l}"  # e.g Start/Stop/Restart
1994         local service_="$2"
1995         local param_="$3"
1996
1997         local service_target_="$(readlink /etc/init.d/$service_)"
1998         if [[ $service_target_ == "/usr/bin/sv" ]]; then
1999             # runit
2000             case "${action_}" in
2001                 start) if [[ ! -e /etc/service/$service_ ]]; then
2002                            $SUDO ln -s "/etc/sv/$service_" "/etc/service/"
2003                        else
2004                            $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
2005                        fi ;;
2006                 # there is no reload in runits sysv emulation
2007                 reload) $SUDO "/etc/init.d/$service_" "force-reload" "$param_" ;;
2008                 *) $SUDO "/etc/init.d/$service_" "${action_}" "$param_" ;;
2009             esac
2010         else
2011             # sysvinit
2012             $SUDO "/etc/init.d/$service_" "${action_}" "$param_"
2013         fi
2014     }
2015
2016     _grmlinitd() {
2017         local -a scripts
2018         scripts=( /etc/init.d/*(x:t) )
2019         _describe "service startup script" scripts
2020     }
2021
2022     for i in Start Restart Stop Force-Reload Reload ; do
2023         eval "$i() { __start_stop $i \"\$1\" \"\$2\" ; }"
2024         compdef _grmlinitd $i
2025     done
2026 fi
2027
2028 #f1# Provides useful information on globbing
2029 H-Glob() {
2030     echo -e "
2031     /      directories
2032     .      plain files
2033     @      symbolic links
2034     =      sockets
2035     p      named pipes (FIFOs)
2036     *      executable plain files (0100)
2037     %      device files (character or block special)
2038     %b     block special files
2039     %c     character special files
2040     r      owner-readable files (0400)
2041     w      owner-writable files (0200)
2042     x      owner-executable files (0100)
2043     A      group-readable files (0040)
2044     I      group-writable files (0020)
2045     E      group-executable files (0010)
2046     R      world-readable files (0004)
2047     W      world-writable files (0002)
2048     X      world-executable files (0001)
2049     s      setuid files (04000)
2050     S      setgid files (02000)
2051     t      files with the sticky bit (01000)
2052
2053   print *(m-1)          # Files modified up to a day ago
2054   print *(a1)           # Files accessed a day ago
2055   print *(@)            # Just symlinks
2056   print *(Lk+50)        # Files bigger than 50 kilobytes
2057   print *(Lk-50)        # Files smaller than 50 kilobytes
2058   print **/*.c          # All *.c files recursively starting in \$PWD
2059   print **/*.c~file.c   # Same as above, but excluding 'file.c'
2060   print (foo|bar).*     # Files starting with 'foo' or 'bar'
2061   print *~*.*           # All Files that do not contain a dot
2062   chmod 644 *(.^x)      # make all plain non-executable files publically readable
2063   print -l *(.c|.h)     # Lists *.c and *.h
2064   print **/*(g:users:)  # Recursively match all files that are owned by group 'users'
2065   echo /proc/*/cwd(:h:t:s/self//) # Analogous to >ps ax | awk '{print $1}'<"
2066 }
2067 alias help-zshglob=H-Glob
2068
2069 #v1# set number of lines to display per page
2070 HELP_LINES_PER_PAGE=20
2071 #v1# set location of help-zle cache file
2072 HELP_ZLE_CACHE_FILE=~/.cache/zsh_help_zle_lines.zsh
2073 #f1# helper function for help-zle, actually generates the help text
2074 help_zle_parse_keybindings()
2075 {
2076     emulate -L zsh
2077     setopt extendedglob
2078     unsetopt ksharrays  #indexing starts at 1
2079
2080     #v1# choose files that help-zle will parse for keybindings
2081     ((${+HELPZLE_KEYBINDING_FILES})) || HELPZLE_KEYBINDING_FILES=( /etc/zsh/zshrc ~/.zshrc.pre ~/.zshrc ~/.zshrc.local )
2082
2083     if [[ -r $HELP_ZLE_CACHE_FILE ]]; then
2084         local load_cache=0
2085         for f ($KEYBINDING_FILES) [[ $f -nt $HELP_ZLE_CACHE_FILE ]] && load_cache=1
2086         [[ $load_cache -eq 0 ]] && . $HELP_ZLE_CACHE_FILE && return
2087     fi
2088
2089     #fill with default keybindings, possibly to be overwriten in a file later
2090     #Note that due to zsh inconsistency on escaping assoc array keys, we encase the key in '' which we will remove later
2091     local -A help_zle_keybindings
2092     help_zle_keybindings['<Ctrl>@']="set MARK"
2093     help_zle_keybindings['<Ctrl>X<Ctrl>J']="vi-join lines"
2094     help_zle_keybindings['<Ctrl>X<Ctrl>B']="jump to matching brace"
2095     help_zle_keybindings['<Ctrl>X<Ctrl>U']="undo"
2096     help_zle_keybindings['<Ctrl>_']="undo"
2097     help_zle_keybindings['<Ctrl>X<Ctrl>F<c>']="find <c> in cmdline"
2098     help_zle_keybindings['<Ctrl>A']="goto beginning of line"
2099     help_zle_keybindings['<Ctrl>E']="goto end of line"
2100     help_zle_keybindings['<Ctrl>t']="transpose charaters"
2101     help_zle_keybindings['<Alt>T']="transpose words"
2102     help_zle_keybindings['<Alt>s']="spellcheck word"
2103     help_zle_keybindings['<Ctrl>K']="backward kill buffer"
2104     help_zle_keybindings['<Ctrl>U']="forward kill buffer"
2105     help_zle_keybindings['<Ctrl>y']="insert previously killed word/string"
2106     help_zle_keybindings["<Alt>'"]="quote line"
2107     help_zle_keybindings['<Alt>"']="quote from mark to cursor"
2108     help_zle_keybindings['<Alt><arg>']="repeat next cmd/char <arg> times (<Alt>-<Alt>1<Alt>0a -> -10 times 'a')"
2109     help_zle_keybindings['<Alt>U']="make next word Uppercase"
2110     help_zle_keybindings['<Alt>l']="make next word lowercase"
2111     help_zle_keybindings['<Ctrl>Xd']="preview expansion under cursor"
2112     help_zle_keybindings['<Alt>q']="push current CL into background, freeing it. Restore on next CL"
2113     help_zle_keybindings['<Alt>.']="insert (and interate through) last word from prev CLs"
2114     help_zle_keybindings['<Alt>,']="complete word from newer history (consecutive hits)"
2115     help_zle_keybindings['<Alt>m']="repeat last typed word on current CL"
2116     help_zle_keybindings['<Ctrl>V']="insert next keypress symbol literally (e.g. for bindkey)"
2117     help_zle_keybindings['!!:n*<Tab>']="insert last n arguments of last command"
2118     help_zle_keybindings['!!:n-<Tab>']="insert arguments n..N-2 of last command (e.g. mv s s d)"
2119     help_zle_keybindings['<Alt>H']="run help on current command"
2120
2121     #init global variables
2122     unset help_zle_lines help_zle_sln
2123     typeset -g -a help_zle_lines
2124     typeset -g help_zle_sln=1
2125
2126     local k v
2127     local lastkeybind_desc contents     #last description starting with #k# that we found
2128     local num_lines_elapsed=0            #number of lines between last description and keybinding
2129     #search config files in the order they a called (and thus the order in which they overwrite keybindings)
2130     for f in $HELPZLE_KEYBINDING_FILES; do
2131         [[ -r "$f" ]] || continue   #not readable ? skip it
2132         contents="$(<$f)"
2133         for cline in "${(f)contents}"; do
2134             #zsh pattern: matches lines like: #k# ..............
2135             if [[ "$cline" == (#s)[[:space:]]#\#k\#[[:space:]]##(#b)(*)[[:space:]]#(#e) ]]; then
2136                 lastkeybind_desc="$match[*]"
2137                 num_lines_elapsed=0
2138             #zsh pattern: matches lines that set a keybinding using bindkey or compdef -k
2139             #             ignores lines that are commentend out
2140             #             grabs first in '' or "" enclosed string with length between 1 and 6 characters
2141             elif [[ "$cline" == [^#]#(bindkey|compdef -k)[[:space:]](*)(#b)(\"((?)(#c1,6))\"|\'((?)(#c1,6))\')(#B)(*)  ]]; then
2142                 #description prevously found ? description not more than 2 lines away ? keybinding not empty ?
2143                 if [[ -n $lastkeybind_desc && $num_lines_elapsed -lt 2 && -n $match[1] ]]; then
2144                     #substitute keybinding string with something readable
2145                     k=${${${${${${${match[1]/\\e\^h/<Alt><BS>}/\\e\^\?/<Alt><BS>}/\\e\[5~/<PageUp>}/\\e\[6~/<PageDown>}//(\\e|\^\[)/<Alt>}//\^/<Ctrl>}/3~/<Alt><Del>}
2146                     #put keybinding in assoc array, possibly overwriting defaults or stuff found in earlier files
2147                     #Note that we are extracting the keybinding-string including the quotes (see Note at beginning)
2148                     help_zle_keybindings[${k}]=$lastkeybind_desc
2149                 fi
2150                 lastkeybind_desc=""
2151             else
2152               ((num_lines_elapsed++))
2153             fi
2154         done
2155     done
2156     unset contents
2157     #calculate length of keybinding column
2158     local kstrlen=0
2159     for k (${(k)help_zle_keybindings[@]}) ((kstrlen < ${#k})) && kstrlen=${#k}
2160     #convert the assoc array into preformated lines, which we are able to sort
2161     for k v in ${(kv)help_zle_keybindings[@]}; do
2162         #pad keybinding-string to kstrlen chars and remove outermost characters (i.e. the quotes)
2163         help_zle_lines+=("${(r:kstrlen:)k[2,-2]}${v}")
2164     done
2165     #sort lines alphabetically
2166     help_zle_lines=("${(i)help_zle_lines[@]}")
2167     [[ -d ${HELP_ZLE_CACHE_FILE:h} ]] || mkdir -p "${HELP_ZLE_CACHE_FILE:h}"
2168     echo "help_zle_lines=(${(q)help_zle_lines[@]})" >| $HELP_ZLE_CACHE_FILE
2169     zcompile $HELP_ZLE_CACHE_FILE
2170 }
2171 typeset -g help_zle_sln
2172 typeset -g -a help_zle_lines
2173
2174 #f1# Provides (partially autogenerated) help on keybindings and the zsh line editor
2175 help-zle()
2176 {
2177     emulate -L zsh
2178     unsetopt ksharrays  #indexing starts at 1
2179     #help lines already generated ? no ? then do it
2180     [[ ${+functions[help_zle_parse_keybindings]} -eq 1 ]] && {help_zle_parse_keybindings && unfunction help_zle_parse_keybindings}
2181     #already displayed all lines ? go back to the start
2182     [[ $help_zle_sln -gt ${#help_zle_lines} ]] && help_zle_sln=1
2183     local sln=$help_zle_sln
2184     #note that help_zle_sln is a global var, meaning we remember the last page we viewed
2185     help_zle_sln=$((help_zle_sln + HELP_LINES_PER_PAGE))
2186     zle -M "${(F)help_zle_lines[sln,help_zle_sln-1]}"
2187 }
2188 #k# display help for keybindings and ZLE (cycle pages with consecutive use)
2189 zle -N help-zle && bindkey '^Xz' help-zle
2190
2191 check_com -c qma && alias ?='qma zshall'
2192
2193 # grep for running process, like: 'any vim'
2194 any() {
2195     emulate -L zsh
2196     unsetopt KSH_ARRAYS
2197     if [[ -z "$1" ]] ; then
2198         echo "any - grep for process(es) by keyword" >&2
2199         echo "Usage: any <keyword>" >&2 ; return 1
2200     else
2201         ps xauwww | grep -i --color=auto "[${1[1]}]${1[2,-1]}"
2202     fi
2203 }
2204
2205
2206 # After resuming from suspend, system is paging heavily, leading to very bad interactivity.
2207 # taken from $LINUX-KERNELSOURCE/Documentation/power/swsusp.txt
2208 [[ -r /proc/1/maps ]] && \
2209 deswap() {
2210     print 'Reading /proc/[0-9]*/maps and sending output to /dev/null, this might take a while.'
2211     cat $(sed -ne 's:.* /:/:p' /proc/[0-9]*/maps | sort -u | grep -v '^/dev/')  > /dev/null
2212     print 'Finished, running "swapoff -a; swapon -a" may also be useful.'
2213 }
2214
2215 # print hex value of a number
2216 hex() {
2217     emulate -L zsh
2218     [[ -n "$1" ]] && printf "%x\n" $1 || { print 'Usage: hex <number-to-convert>' ; return 1 }
2219 }
2220
2221 # calculate (or eval at all ;-)) with perl => p[erl-]eval
2222 # hint: also take a look at zcalc -> 'autoload zcalc' -> 'man zshmodules | less -p MATHFUNC'
2223 peval() {
2224     [[ -n "$1" ]] && CALC="$*" || print "Usage: calc [expression]"
2225     perl -e "print eval($CALC),\"\n\";"
2226 }
2227 functions peval &>/dev/null && alias calc=peval
2228
2229 # just press 'asdf' keys to toggle between dvorak and us keyboard layout
2230 aoeu() {
2231     echo -n 'Switching to us keyboard layout: '
2232     [[ -z "$DISPLAY" ]] && $SUDO loadkeys us &>/dev/null || setxkbmap us &>/dev/null
2233     echo 'Done'
2234 }
2235 asdf() {
2236     echo -n 'Switching to dvorak keyboard layout: '
2237     [[ -z "$DISPLAY" ]] && $SUDO loadkeys dvorak &>/dev/null || setxkbmap dvorak &>/dev/null
2238     echo 'Done'
2239 }
2240 # just press 'asdf' key to toggle from neon layout to us keyboard layout
2241 uiae() {
2242     echo -n 'Switching to us keyboard layout: '
2243     setxkbmap us && echo 'Done' || echo 'Failed'
2244 }
2245
2246 # set up an ipv6 tunnel
2247 ipv6-tunnel() {
2248     emulate -L zsh
2249     case $1 in
2250         start)
2251             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2252                 print 'ipv6 tunnel already set up, nothing to be done.'
2253                 print 'execute: "ifconfig sit1 down ; ifconfig sit0 down" to remove ipv6-tunnel.' ; return 1
2254             else
2255                 [[ -n "$PUBLIC_IP" ]] || \
2256                     local PUBLIC_IP=$(ifconfig $(route -n | awk '/^0\.0\.0\.0/{print $8; exit}') | \
2257                                       awk '/inet addr:/ {print $2}' | tr -d 'addr:')
2258
2259                 [[ -n "$PUBLIC_IP" ]] || { print 'No $PUBLIC_IP set and could not determine default one.' ; return 1 }
2260                 local IPV6ADDR=$(printf "2002:%02x%02x:%02x%02x:1::1" $(print ${PUBLIC_IP//./ }))
2261                 print -n "Setting up ipv6 tunnel $IPV6ADDR via ${PUBLIC_IP}: "
2262                 ifconfig sit0 tunnel ::192.88.99.1 up
2263                 ifconfig sit1 add "$IPV6ADDR" && print done || print failed
2264             fi
2265             ;;
2266         status)
2267             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2268                 print 'ipv6 tunnel available' ; return 0
2269             else
2270                 print 'ipv6 tunnel not available' ; return 1
2271             fi
2272             ;;
2273         stop)
2274             if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
2275                 print -n 'Stopping ipv6 tunnel (sit0 + sit1): '
2276                 ifconfig sit1 down ; ifconfig sit0 down && print done || print failed
2277             else
2278                 print 'No ipv6 tunnel found, nothing to be done.' ; return 1
2279             fi
2280             ;;
2281         *)
2282             print "Usage: ipv6-tunnel [start|stop|status]">&2 ; return 1
2283             ;;
2284     esac
2285 }
2286
2287 # run dhclient for wireless device
2288 iwclient() {
2289     sudo dhclient "$(wavemon -d | awk '/device/{print $3}')"
2290 }
2291
2292 # spawn a minimally set up mksh - useful if you want to umount /usr/.
2293 minimal-shell() {
2294     emulate -L zsh
2295     local shell="/bin/mksh"
2296
2297     if [[ ! -x ${shell} ]]; then
2298         printf '`%s'\'' not available, giving up.\n' ${shell} >&2
2299         return 1
2300     fi
2301
2302     exec env -i ENV="/etc/minimal-shellrc" HOME="$HOME" TERM="$TERM" ${shell}
2303 }
2304
2305 # a wrapper for vim, that deals with title setting
2306 #   VIM_OPTIONS
2307 #       set this array to a set of options to vim you always want
2308 #       to have set when calling vim (in .zshrc.local), like:
2309 #           VIM_OPTIONS=( -p )
2310 #       This will cause vim to send every file given on the
2311 #       commandline to be send to it's own tab (needs vim7).
2312 vim() {
2313     VIM_PLEASE_SET_TITLE='yes' command vim ${VIM_OPTIONS} "$@"
2314 }
2315
2316 # make a backup of a file
2317 bk() {
2318     cp -a "$1" "${1}_$(date --iso-8601=seconds)"
2319 }
2320
2321 #f1# grep for patterns in grml's zsh setup
2322 zg() {
2323     LANG=C perl -e '
2324
2325 sub usage {
2326     print "usage: zg -[anr] <pattern>\n";
2327     print " Search for patterns in grml'\''s zshrc.\n";
2328     print " zg takes no or exactly one option plus a non empty pattern.\n\n";
2329     print "   options:\n";
2330     print "     --  no options (use if your pattern starts in with a dash.\n";
2331     print "     -a  search for the pattern in all code regions\n";
2332     print "     -n  search for the pattern in non-root code only\n";
2333     print "     -r  search in code for everyone (also root) only\n\n";
2334     print "   The default is -a for non-root users and -r for root.\n\n";
2335     print " If you installed the zshrc to a non-default locations (ie *NOT*\n";
2336     print " in /etc/zsh/zshrc) do: export GRML_ZSHRC=\$HOME/.zshrc\n";
2337     print " ...in case you copied the file to that location.\n\n";
2338     exit 1;
2339 }
2340
2341 if ($ENV{GRML_ZSHRC} ne "") {
2342     $RC = $ENV{GRML_ZSHRC};
2343 } else {
2344     $RC = "/etc/zsh/zshrc";
2345 }
2346
2347 usage if ($#ARGV < 0 || $#ARGV > 1);
2348 if ($> == 0) { $mode = "allonly"; }
2349 else { $mode = "all"; }
2350
2351 $opt = $ARGV[0];
2352 if ($opt eq "--")     { shift; }
2353 elsif ($opt eq "-a")  { $mode = "all"; shift; }
2354 elsif ($opt eq "-n")  { $mode = "nonroot"; shift; }
2355 elsif ($opt eq "-r" ) { $mode = "allonly"; shift; }
2356 elsif ($opt =~ m/^-/ || $#ARGV > 0) { usage(); }
2357
2358 $pattern = $ARGV[0];
2359 usage() if ($pattern eq "");
2360
2361 open FH, "<$RC" or die "zg: Could not open $RC: $!\n";
2362 while ($line = <FH>) {
2363     chomp $line;
2364     if ($line =~ m/^#:grep:marker:for:mika:/) { $markerfound = 1; next; }
2365     next if ($mode eq "nonroot" && markerfound == 0);
2366     break if ($mode eq "allonly" && markerfound == 1);
2367     print $line, "\n" if ($line =~ /$pattern/);
2368 }
2369 close FH;
2370 exit 0;
2371
2372     ' -- "$@"
2373     return $?
2374 }
2375
2376 ssl_hashes=( sha512 sha256 sha1 md5 )
2377
2378 for sh in ${ssl_hashes}; do
2379     eval 'ssl-cert-'${sh}'() {
2380         emulate -L zsh
2381         if [[ -z $1 ]] ; then
2382             printf '\''usage: %s <file>\n'\'' "ssh-cert-'${sh}'"
2383             return 1
2384         fi
2385         openssl x509 -noout -fingerprint -'${sh}' -in $1
2386     }'
2387 done; unset sh
2388
2389 ssl-cert-fingerprints() {
2390     emulate -L zsh
2391     local i
2392     if [[ -z $1 ]] ; then
2393         printf 'usage: ssl-cert-fingerprints <file>\n'
2394         return 1
2395     fi
2396     for i in ${ssl_hashes}
2397         do ssl-cert-$i $1;
2398     done
2399 }
2400
2401 ssl-cert-info() {
2402     emulate -L zsh
2403     if [[ -z $1 ]] ; then
2404         printf 'usage: ssl-cert-info <file>\n'
2405         return 1
2406     fi
2407     openssl x509 -noout -text -in $1
2408     ssl-cert-fingerprints $1
2409 }
2410
2411 # make sure our environment is clean regarding colors
2412 for color in BLUE RED GREEN CYAN YELLOW MAGENTA WHITE ; unset $color
2413
2414 # "persistent history"
2415 # just write important commands you always need to ~/.important_commands
2416 if [[ -r ~/.important_commands ]] ; then
2417     fc -R ~/.important_commands
2418 fi
2419
2420 # load the lookup subsystem if it's available on the system
2421 zrcautoload lookupinit && lookupinit
2422
2423 #:grep:marker:for:mika: :-)
2424 ### non-root (EUID != 0) code below
2425 ###
2426
2427 if (( GRML_ALWAYS_LOAD_ALL == 0 )) && (( $EUID == 0 )) ; then
2428     zrclocal
2429     return 0
2430 fi
2431
2432 # variables
2433
2434 # set terminal property (used e.g. by msgid-chooser)
2435 export COLORTERM="yes"
2436
2437 #m# v QTDIR \kbd{/usr/share/qt[34]}\quad [for non-root only]
2438 [[ -d /usr/share/qt3 ]] && export QTDIR=/usr/share/qt3
2439 [[ -d /usr/share/qt4 ]] && export QTDIR=/usr/share/qt4
2440
2441 # support running 'jikes *.java && jamvm HelloWorld' OOTB:
2442 #v# [for non-root only]
2443 [[ -f /usr/share/classpath/glibj.zip ]] && export JIKESPATH=/usr/share/classpath/glibj.zip
2444
2445 # aliases
2446
2447 # Xterm resizing-fu.
2448 # Based on http://svn.kitenet.net/trunk/home-full/.zshrc?rev=11710&view=log (by Joey Hess)
2449 alias hide='echo -en "\033]50;nil2\007"'
2450 alias tiny='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-80-*-*-c-*-iso8859-15\007"'
2451 alias small='echo -en "\033]50;6x10\007"'
2452 alias medium='echo -en "\033]50;-misc-fixed-medium-r-normal--13-120-75-75-c-80-iso8859-15\007"'
2453 alias default='echo -e "\033]50;-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-15\007"'
2454 alias large='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-150-*-*-c-*-iso8859-15\007"'
2455 alias huge='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-210-*-*-c-*-iso8859-15\007"'
2456 alias smartfont='echo -en "\033]50;-artwiz-smoothansi-*-*-*-*-*-*-*-*-*-*-*-*\007"'
2457 alias semifont='echo -en "\033]50;-misc-fixed-medium-r-semicondensed-*-*-120-*-*-*-*-iso8859-15\007"'
2458
2459 # general
2460 #a2# Execute \kbd{du -sch}
2461 alias da='du -sch'
2462 #a2# Execute \kbd{jobs -l}
2463 alias j='jobs -l'
2464
2465 # compile stuff
2466 #a2# Execute \kbd{./configure}
2467 alias CO="./configure"
2468 #a2# Execute \kbd{./configure --help}
2469 alias CH="./configure --help"
2470
2471 # listing stuff
2472 #a2# Execute \kbd{ls -lSrah}
2473 alias dir="ls -lSrah"
2474 #a2# Only show dot-directories
2475 alias lad='ls -d .*(/)'                # only show dot-directories
2476 #a2# Only show dot-files
2477 alias lsa='ls -a .*(.)'                # only show dot-files
2478 #a2# Only files with setgid/setuid/sticky flag
2479 alias lss='ls -l *(s,S,t)'             # only files with setgid/setuid/sticky flag
2480 #a2# Only show 1st ten symlinks
2481 alias lsl='ls -l *(@)'                 # only symlinks
2482 #a2# Display only executables
2483 alias lsx='ls -l *(*)'                 # only executables
2484 #a2# Display world-{readable,writable,executable} files
2485 alias lsw='ls -ld *(R,W,X.^ND/)'       # world-{readable,writable,executable} files
2486 #a2# Display the ten biggest files
2487 alias lsbig="ls -flh *(.OL[1,10])"     # display the biggest files
2488 #a2# Only show directories
2489 alias lsd='ls -d *(/)'                 # only show directories
2490 #a2# Only show empty directories
2491 alias lse='ls -d *(/^F)'               # only show empty directories
2492 #a2# Display the ten newest files
2493 alias lsnew="ls -rtlh *(D.om[1,10])"   # display the newest files
2494 #a2# Display the ten oldest files
2495 alias lsold="ls -rtlh *(D.Om[1,10])"   # display the oldest files
2496 #a2# Display the ten smallest files
2497 alias lssmall="ls -Srl *(.oL[1,10])"   # display the smallest files
2498
2499 # chmod
2500 #a2# Execute \kbd{chmod 600}
2501 alias rw-='chmod 600'
2502 #a2# Execute \kbd{chmod 700}
2503 alias rwx='chmod 700'
2504 #m# a2 r-{}- Execute \kbd{chmod 644}
2505 alias r--='chmod 644'
2506 #a2# Execute \kbd{chmod 755}
2507 alias r-x='chmod 755'
2508
2509 # some useful aliases
2510 #a2# Execute \kbd{mkdir -p}
2511 alias md='mkdir -p'
2512 #a2# Remove current empty directory. Execute \kbd{cd ..; rmdir $OLDCWD}
2513 alias rmcdir='cd ..; rmdir $OLDPWD || cd $OLDPWD'
2514
2515 # console stuff
2516 #a2# Execute \kbd{mplayer -vo fbdev}
2517 alias cmplayer='mplayer -vo fbdev'
2518 #a2# Execute \kbd{mplayer -vo fbdev -fs -zoom}
2519 alias fbmplayer='mplayer -vo fbdev -fs -zoom'
2520 #a2# Execute \kbd{links2 -driver fb}
2521 alias fblinks='links2 -driver fb'
2522
2523 #a2# ssh with StrictHostKeyChecking=no \\&\quad and UserKnownHostsFile unset
2524 alias insecssh='ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
2525 alias insecscp='scp -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
2526
2527 # simple webserver
2528 check_com -c python && alias http="python -m SimpleHTTPServer"
2529
2530 # Use 'g' instead of 'git':
2531 check_com g || alias g='git'
2532
2533 # work around non utf8 capable software in utf environment via $LANG and luit
2534 if check_com isutfenv && check_com luit ; then
2535     if check_com -c mrxvt ; then
2536         isutfenv && [[ -n "$LANG" ]] && \
2537             alias mrxvt="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit mrxvt"
2538     fi
2539
2540     if check_com -c aterm ; then
2541         isutfenv && [[ -n "$LANG" ]] && \
2542             alias aterm="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit aterm"
2543     fi
2544
2545     if check_com -c centericq ; then
2546         isutfenv && [[ -n "$LANG" ]] && \
2547             alias centericq="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit centericq"
2548     fi
2549 fi
2550
2551 # useful functions
2552
2553 # searching
2554 #f4# Search for newspostings from authors
2555 agoogle() { ${=BROWSER} "http://groups.google.com/groups?as_uauthors=$*" ; }
2556 #f4# Search Debian Bug Tracking System
2557 debbug()  {
2558     emulate -L zsh
2559     setopt extendedglob
2560     if [[ $# -eq 1 ]]; then
2561         case "$1" in
2562             ([0-9]##)
2563             ${=BROWSER} "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$1"
2564             ;;
2565             (*@*)
2566             ${=BROWSER} "http://bugs.debian.org/cgi-bin/pkgreport.cgi?submitter=$1"
2567             ;;
2568             (*)
2569             ${=BROWSER} "http://bugs.debian.org/$*"
2570             ;;
2571         esac
2572     else
2573         print "$0 needs one argument"
2574         return 1
2575     fi
2576 }
2577 #f4# Search Debian Bug Tracking System in mbox format
2578 debbugm() {
2579     emulate -L zsh
2580     bts show --mbox $1
2581 }
2582 #f4# Search DMOZ
2583 dmoz()    {
2584     emulate -L zsh
2585     ${=BROWSER} http://search.dmoz.org/cgi-bin/search\?search=${1// /_}
2586 }
2587 #f4# Search German   Wiktionary
2588 dwicti()  {
2589     emulate -L zsh
2590     ${=BROWSER} http://de.wiktionary.org/wiki/${(C)1// /_}
2591 }
2592 #f4# Search English  Wiktionary
2593 ewicti()  {
2594     emulate -L zsh
2595     ${=BROWSER} http://en.wiktionary.org/wiki/${(C)1// /_}
2596 }
2597 #f4# Search Google Groups
2598 ggogle()  {
2599     emulate -L zsh
2600     ${=BROWSER} "http://groups.google.com/groups?q=$*"
2601 }
2602 #f4# Search Google
2603 google()  {
2604     emulate -L zsh
2605     ${=BROWSER} "http://www.google.com/search?&num=100&q=$*"
2606 }
2607 #f4# Search Google Groups for MsgID
2608 mggogle() {
2609     emulate -L zsh
2610     ${=BROWSER} "http://groups.google.com/groups?selm=$*"
2611 }
2612 #f4# Search Netcraft
2613 netcraft(){
2614     emulate -L zsh
2615     ${=BROWSER} "http://toolbar.netcraft.com/site_report?url=$1"
2616 }
2617 #f4# Use German Wikipedia's full text search
2618 swiki()   {
2619     emulate -L zsh
2620     ${=BROWSER} http://de.wikipedia.org/wiki/Spezial:Search/${(C)1}
2621 }
2622 #f4# search \kbd{dict.leo.org}
2623 oleo()    {
2624     emulate -L zsh
2625     ${=BROWSER} "http://dict.leo.org/?search=$*"
2626 }
2627 #f4# Search German   Wikipedia
2628 wikide()  {
2629     emulate -L zsh
2630     ${=BROWSER} http://de.wikipedia.org/wiki/"${(C)*}"
2631 }
2632 #f4# Search English  Wikipedia
2633 wikien()  {
2634     emulate -L zsh
2635     ${=BROWSER} http://en.wikipedia.org/wiki/"${(C)*}"
2636 }
2637 #f4# Search official debs
2638 wodeb()   {
2639     emulate -L zsh
2640     ${=BROWSER} "http://packages.debian.org/search?keywords=$1&searchon=contents&suite=${2:=unstable}&section=all"
2641 }
2642
2643 #m# f4 gex() Exact search via Google
2644 check_com google && gex () {
2645     google "\"[ $1]\" $*"
2646 }
2647
2648 # misc
2649 #f5# Backup \kbd{file {\rm to} file\_timestamp}
2650 bk() {
2651     emulate -L zsh
2652     cp -b $1 $1_`date --iso-8601=m`
2653 }
2654 #f5# Copied diff
2655 cdiff() {
2656     emulate -L zsh
2657     diff -crd "$@" | egrep -v "^Only in |^Binary files "
2658 }
2659 #f5# cd to directoy and list files
2660 cl() {
2661     emulate -L zsh
2662     cd $1 && ls -a
2663 }
2664 #f5# Cvs add
2665 cvsa() {
2666     emulate -L zsh
2667     cvs add $* && cvs com -m 'initial checkin' $*
2668 }
2669 #f5# Cvs diff
2670 cvsd() {
2671     emulate -L zsh
2672     cvs diff -N $* |& $PAGER
2673 }
2674 #f5# Cvs log
2675 cvsl() {
2676     emulate -L zsh
2677     cvs log $* |& $PAGER
2678 }
2679 #f5# Cvs update
2680 cvsq() {
2681     emulate -L zsh
2682     cvs -nq update
2683 }
2684 #f5# Rcs2log
2685 cvsr() {
2686     emulate -L zsh
2687     rcs2log $* | $PAGER
2688 }
2689 #f5# Cvs status
2690 cvss() {
2691     emulate -L zsh
2692     cvs status -v $*
2693 }
2694 #f5# Disassemble source files using gcc and as
2695 disassemble(){
2696     emulate -L zsh
2697     gcc -pipe -S -o - -O -g $* | as -aldh -o /dev/null
2698 }
2699 #f5# Firefox remote control - open given URL
2700 fir() {
2701     if [ -e /etc/debian_version ]; then
2702         firefox -a iceweasel -remote "openURL($1)" || firefox ${1}&
2703     else
2704         firefox -a firefox -remote "openURL($1)" || firefox ${1}&
2705     fi
2706 }
2707 # smart cd function, allows switching to /etc when running 'cd /etc/fstab'
2708 cd() {
2709     if (( ${#argv} == 1 )) && [[ -f ${1} ]]; then
2710         [[ ! -e ${1:h} ]] && return 1
2711         print "Correcting ${1} to ${1:h}"
2712         builtin cd ${1:h}
2713     else
2714         builtin cd "$@"
2715     fi
2716 }
2717
2718 #f5# Create Directoy and \kbd{cd} to it
2719 mcd() {
2720     mkdir -p "$@" && cd "$@"
2721 }
2722 #f5# Create temporary directory and \kbd{cd} to it
2723 cdt() {
2724     local t
2725     t=$(mktemp -d)
2726     echo "$t"
2727     builtin cd "$t"
2728 }
2729 #f5# Unified diff to timestamped outputfile
2730 mdiff() {
2731     diff -udrP "$1" "$2" > diff.`date "+%Y-%m-%d"`."$1"
2732 }
2733
2734 #f5# Create directory under cursor or the selected area
2735 # Press ctrl-xM to create the directory under the cursor or the selected area.
2736 # To select an area press ctrl-@ or ctrl-space and use the cursor.
2737 # Use case: you type "mv abc ~/testa/testb/testc/" and remember that the
2738 # directory does not exist yet -> press ctrl-XM and problem solved
2739 inplaceMkDirs() {
2740     local PATHTOMKDIR
2741     if ((REGION_ACTIVE==1)); then
2742         local F=$MARK T=$CURSOR
2743         if [[ $F -gt $T ]]; then
2744             F=${CURSOR}
2745             T=${MARK}
2746         fi
2747         # get marked area from buffer and eliminate whitespace
2748         PATHTOMKDIR=${BUFFER[F+1,T]%%[[:space:]]##}
2749         PATHTOMKDIR=${PATHTOMKDIR##[[:space:]]##}
2750     else
2751         local bufwords iword
2752         bufwords=(${(z)LBUFFER})
2753         iword=${#bufwords}
2754         bufwords=(${(z)BUFFER})
2755         PATHTOMKDIR="${(Q)bufwords[iword]}"
2756     fi
2757     [[ -z "${PATHTOMKDIR}" ]] && return 1
2758     if [[ -e "${PATHTOMKDIR}" ]]; then
2759         zle -M " path already exists, doing nothing"
2760     else
2761         zle -M "$(mkdir -p -v "${PATHTOMKDIR}")"
2762         zle end-of-line
2763     fi
2764 }
2765 #k# mkdir -p <dir> from string under cursor or marked area
2766 zle -N inplaceMkDirs && bindkey '^XM' inplaceMkDirs
2767
2768 #f5# Memory overview
2769 memusage() {
2770     ps aux | awk '{if (NR > 1) print $5; if (NR > 2) print "+"} END { print "p" }' | dc
2771 }
2772 #f5# Show contents of gzipped tar file
2773 shtar() {
2774     emulate -L zsh
2775     gunzip -c $1 | tar -tf - -- | $PAGER
2776 }
2777 #f5# Show contents of zip file
2778 shzip() {
2779     emulate -L zsh
2780     unzip -l $1 | $PAGER
2781 }
2782 #f5# Unified diff
2783 udiff() {
2784     emulate -L zsh
2785     diff -urd $* | egrep -v "^Only in |^Binary files "
2786 }
2787 #f5# (Mis)use \kbd{vim} as \kbd{less}
2788 viless() {
2789     emulate -L zsh
2790     vim --cmd 'let no_plugin_maps = 1' -c "so \$VIMRUNTIME/macros/less.vim" "${@:--}"
2791 }
2792
2793 # Function Usage: uopen $URL/$file
2794 #f5# Download a file and display it locally
2795 uopen() {
2796     emulate -L zsh
2797     if ! [[ -n "$1" ]] ; then
2798         print "Usage: uopen \$URL/\$file">&2
2799         return 1
2800     else
2801         FILE=$1
2802         MIME=$(curl --head $FILE | grep Content-Type | cut -d ' ' -f 2 | cut -d\; -f 1)
2803         MIME=${MIME%$'\r'}
2804         curl $FILE | see ${MIME}:-
2805     fi
2806 }
2807
2808 # Function Usage: doc packagename
2809 #f5# \kbd{cd} to /usr/share/doc/\textit{package}
2810 doc() {
2811     emulate -L zsh
2812     cd /usr/share/doc/$1 && ls
2813 }
2814 _doc() { _files -W /usr/share/doc -/ }
2815 check_com compdef && compdef _doc doc
2816
2817 #f5# Make screenshot
2818 sshot() {
2819     [[ ! -d ~/shots  ]] && mkdir ~/shots
2820     #cd ~/shots ; sleep 5 ; import -window root -depth 8 -quality 80 `date "+%Y-%m-%d--%H:%M:%S"`.png
2821     cd ~/shots ; sleep 5; import -window root shot_`date --iso-8601=m`.jpg
2822 }
2823
2824 # list images only
2825 limg() {
2826     local -a images
2827     images=( *.{jpg,gif,png}(.N) )
2828
2829     if [[ $#images -eq 0 ]] ; then
2830         print "No image files found"
2831     else
2832         ls "$images[@]"
2833     fi
2834 }
2835
2836 #f5# Create PDF file from source code
2837 makereadable() {
2838     emulate -L zsh
2839     output=$1
2840     shift
2841     a2ps --medium A4dj -E -o $output $*
2842     ps2pdf $output
2843 }
2844
2845 # zsh with perl-regex - use it e.g. via:
2846 # regcheck '\s\d\.\d{3}\.\d{3} Euro' ' 1.000.000 Euro'
2847 #f5# Checks whether a regex matches or not.\\&\quad Example: \kbd{regcheck '.\{3\} EUR' '500 EUR'}
2848 regcheck() {
2849     emulate -L zsh
2850     zmodload -i zsh/pcre
2851     pcre_compile $1 && \
2852     pcre_match $2 && echo "regex matches" || echo "regex does not match"
2853 }
2854
2855 #f5# List files which have been accessed within the last {\it n} days, {\it n} defaults to 1
2856 accessed() {
2857     emulate -L zsh
2858     print -l -- *(a-${1:-1})
2859 }
2860
2861 #f5# List files which have been changed within the last {\it n} days, {\it n} defaults to 1
2862 changed() {
2863     emulate -L zsh
2864     print -l -- *(c-${1:-1})
2865 }
2866
2867 #f5# List files which have been modified within the last {\it n} days, {\it n} defaults to 1
2868 modified() {
2869     emulate -L zsh
2870     print -l -- *(m-${1:-1})
2871 }
2872 # modified() was named new() in earlier versions, add an alias for backwards compatibility
2873 check_com new || alias new=modified
2874
2875 #f5# Grep in history
2876 greph() {
2877     emulate -L zsh
2878     history 0 | grep $1
2879 }
2880 # use colors when GNU grep with color-support
2881 #a2# Execute \kbd{grep -{}-color=auto}
2882 (grep --help 2>/dev/null |grep -- --color) >/dev/null && alias grep='grep --color=auto'
2883 #a2# Execute \kbd{grep -i -{}-color=auto}
2884 alias GREP='grep -i --color=auto'
2885
2886 #f5# Watch manpages in a stretched style
2887 man2() { PAGER='dash -c "sed G | /usr/bin/less"' command man "$@" ; }
2888
2889 # usage example: 'lcheck strcpy'
2890 #f5# Find out which libs define a symbol
2891 lcheck() {
2892     if [[ -n "$1" ]] ; then
2893         nm -go /usr/lib/lib*.a 2>/dev/null | grep ":[[:xdigit:]]\{8\} . .*$1"
2894     else
2895         echo "Usage: lcheck <function>" >&2
2896     fi
2897 }
2898
2899 #f5# Clean up directory - remove well known tempfiles
2900 purge() {
2901     emulate -L zsh
2902     setopt HIST_SUBST_PATTERN
2903     local -a TEXTEMPFILES GHCTEMPFILES PYTEMPFILES FILES
2904     TEXTEMPFILES=(*.tex(N:s/%tex/'(log|toc|aux|nav|snm|out|tex.backup|bbl|blg|bib.backup|vrb|lof|lot|hd|idx)(N)'/))
2905     GHCTEMPFILES=(*.(hs|lhs)(N:r:s/%/'.(hi|hc|(p|u|s)_(o|hi))(N)'/))
2906     PYTEMPFILES=(*.py(N:s/%py/'(pyc|pyo)(N)'/))
2907     LONELY_MOOD_FILES=((*.mood)(.NDe:'local -a AF;AF=( ${${REPLY#.}%mood}(mp3|flac|ogg|asf|wmv|aac)(N) ); [[ -z "$AF" ]]':))
2908     ZSH_COMPILED=(*.zwc(.NDe:'[[ -f ${REPLY%.zwc} && ${REPLY%.zwc} -nt ${REPLY} ]]':))
2909     FILES=(*~(.N) \#*\#(.N) *.o(.N) a.out(.N) (*.|)core(.N) *.cmo(.N) *.cmi(.N) .*.swp(.N) *.(orig|rej)(.DN) *.dpkg-(old|dist|new)(DN) ._(cfg|mrg)[0-9][0-9][0-9][0-9]_*(N) ${~TEXTEMPFILES} ${~GHCTEMPFILES} ${~PYTEMPFILES} ${LONELY_MOOD_FILES} ${ZSH_COMPILED} )
2910     local NBFILES=${#FILES}
2911     local CURDIRSUDO=""
2912     [[ ! -w ./ ]] && CURDIRSUDO=$SUDO
2913     if [[ $NBFILES > 0 ]] ; then
2914         print -l $FILES
2915         local ans
2916         echo -n "Remove these files? [y/n] "
2917         read -q ans; echo
2918         if [[ $ans == "y" ]] ; then
2919             $CURDIRSUDO rm ${FILES}
2920             echo ">> $PWD purged, $NBFILES files removed"
2921         else
2922             echo "Ok. .. then not.."
2923         fi
2924     fi
2925 }
2926
2927 #f5# show labels and uuids of disk devices
2928 if is439 && [[ -d /dev/disk/by-id/ ]]; then
2929     lsdisk() {
2930         emulate -L zsh
2931         setopt extendedglob
2932         local -a -U disks
2933         local -A mountinfo
2934         disks=( /dev/disk/by-id/*(@:A) )
2935         [[ -r /proc/mounts ]] && for cline ( "${(f)$(</proc/mounts)[@]}" ) mountinfo["${cline[(w)1]:A}"]="${cline[(w)2,-1]}"
2936         for dev in "$disks[@]"; do
2937             print ${fg_bold[red]}${dev}${reset_color} /dev/disk/by-label/*(@e/'[[ ${REPLY:A} == $dev ]] && REPLY=${fg[blue]}LABEL=${REPLY:t}${reset_color}'/N) /dev/disk/by-uuid/*(@e/'[[ ${REPLY:A} == $dev ]] && REPLY=${fg[green]}UUID=${REPLY:t}${reset_color}'/N)
2938             [[ -n "${mountinfo["$dev"]}" ]] && print -f " Mount: %s -t %s -o %s\n" ${mountinfo["$dev"][(w)1]} ${mountinfo["$dev"][(w)2]} "${mountinfo["$dev"][(w)3,-5]}"
2939             for sysdevsize ( /sys/block/${dev:t}/size(N) /sys/block/${${dev:t}%%<->}/${dev:t}/size(N) ) \
2940                 print -f "  Size: %.3f GiB (%d Byte)\n" $(($(<$sysdevsize)/(2.0*1024.0*1024.0))) $(($(<$sysdevsize)*512))
2941
2942             print -f "    Id: %s\n" /dev/disk/by-id/*(@e/'[[ ${REPLY:A} == $dev ]]'/N:t)
2943         done
2944     }
2945 fi
2946
2947 #f5# run command or function in a list of directories
2948 rundirs() {
2949   local d CMD STARTDIR=$PWD
2950   CMD=$1; shift
2951   ( for d ($@) {cd -q $d && { print cd $d; ${(z)CMD} ; cd -q $STARTDIR }} )
2952 }
2953
2954 # Translate DE<=>EN
2955 # 'translate' looks up fot a word in a file with language-to-language
2956 # translations (field separator should be " : "). A typical wordlist looks
2957 # like at follows:
2958 #  | english-word : german-transmission
2959 # It's also only possible to translate english to german but not reciprocal.
2960 # Use the following oneliner to turn back the sort order:
2961 #  $ awk -F ':' '{ print $2" : "$1" "$3 }' \
2962 #    /usr/local/lib/words/en-de.ISO-8859-1.vok > ~/.translate/de-en.ISO-8859-1.vok
2963 #f5# Translates a word
2964 trans() {
2965     emulate -L zsh
2966     case "$1" in
2967         -[dD]*)
2968             translate -l de-en $2
2969             ;;
2970         -[eE]*)
2971             translate -l en-de $2
2972             ;;
2973         *)
2974             echo "Usage: $0 { -D | -E }"
2975             echo "         -D == German to English"
2976             echo "         -E == English to German"
2977     esac
2978 }
2979
2980 #f5# List all occurrences of programm in current PATH
2981 plap() {
2982     emulate -L zsh
2983     if [[ $# = 0 ]] ; then
2984         echo "Usage:    $0 program"
2985         echo "Example:  $0 zsh"
2986         echo "Lists all occurrences of program in the current PATH."
2987     else
2988         ls -l ${^path}/*$1*(*N)
2989     fi
2990 }
2991
2992 # Found in the mailinglistarchive from Zsh (IIRC ~1996)
2993 #f5# Select items for specific command(s) from history
2994 selhist() {
2995     emulate -L zsh
2996     local TAB=$'\t';
2997     (( $# < 1 )) && {
2998         echo "Usage: $0 command"
2999         return 1
3000     };
3001     cmd=(${(f)"$(grep -w $1 $HISTFILE | sort | uniq | pr -tn)"})
3002     print -l $cmd | less -F
3003     echo -n "enter number of desired command [1 - $(( ${#cmd[@]} - 1 ))]: "
3004     local answer
3005     read answer
3006     print -z "${cmd[$answer]#*$TAB}"
3007 }
3008
3009 # Use vim to convert plaintext to HTML
3010 #f5# Transform files to html with highlighting
3011 2html() {
3012     emulate -L zsh
3013     vim -u NONE -n -c ':syntax on' -c ':so $VIMRUNTIME/syntax/2html.vim' -c ':wqa' $1 &>/dev/null
3014 }
3015
3016 # Usage: simple-extract <file>
3017 # Using option -d deletes the original archive file.
3018 #f5# Smart archive extractor
3019 simple-extract() {
3020     emulate -L zsh
3021     setopt extended_glob noclobber
3022     local DELETE_ORIGINAL DECOMP_CMD USES_STDIN USES_STDOUT GZTARGET WGET_CMD
3023     local RC=0
3024     zparseopts -D -E "d=DELETE_ORIGINAL"
3025     for ARCHIVE in "${@}"; do
3026         case $ARCHIVE in
3027             *.(tar.bz2|tbz2|tbz))
3028                 DECOMP_CMD="tar -xvjf -"
3029                 USES_STDIN=true
3030                 USES_STDOUT=false
3031                 ;;
3032             *.(tar.gz|tgz))
3033                 DECOMP_CMD="tar -xvzf -"
3034                 USES_STDIN=true
3035                 USES_STDOUT=false
3036                 ;;
3037             *.(tar.xz|txz|tar.lzma))
3038                 DECOMP_CMD="tar -xvJf -"
3039                 USES_STDIN=true
3040                 USES_STDOUT=false
3041                 ;;
3042             *.tar)
3043                 DECOMP_CMD="tar -xvf -"
3044                 USES_STDIN=true
3045                 USES_STDOUT=false
3046                 ;;
3047             *.rar)
3048                 DECOMP_CMD="unrar x"
3049                 USES_STDIN=false
3050                 USES_STDOUT=false
3051                 ;;
3052             *.lzh)
3053                 DECOMP_CMD="lha x"
3054                 USES_STDIN=false
3055                 USES_STDOUT=false
3056                 ;;
3057             *.7z)
3058                 DECOMP_CMD="7z x"
3059                 USES_STDIN=false
3060                 USES_STDOUT=false
3061                 ;;
3062             *.(zip|jar))
3063                 DECOMP_CMD="unzip"
3064                 USES_STDIN=false
3065                 USES_STDOUT=false
3066                 ;;
3067             *.deb)
3068                 DECOMP_CMD="ar -x"
3069                 USES_STDIN=false
3070                 USES_STDOUT=false
3071                 ;;
3072             *.bz2)
3073                 DECOMP_CMD="bzip2 -d -c -"
3074                 USES_STDIN=true
3075                 USES_STDOUT=true
3076                 ;;
3077             *.(gz|Z))
3078                 DECOMP_CMD="gzip -d -c -"
3079                 USES_STDIN=true
3080                 USES_STDOUT=true
3081                 ;;
3082             *.(xz|lzma))
3083                 DECOMP_CMD="xz -d -c -"
3084                 USES_STDIN=true
3085                 USES_STDOUT=true
3086                 ;;
3087             *)
3088                 print "ERROR: '$ARCHIVE' has unrecognized archive type." >&2
3089                 RC=$((RC+1))
3090                 continue
3091                 ;;
3092         esac
3093
3094         if ! check_com ${DECOMP_CMD[(w)1]}; then
3095             echo "ERROR: ${DECOMP_CMD[(w)1]} not installed." >&2
3096             RC=$((RC+2))
3097             continue
3098         fi
3099
3100         GZTARGET="${ARCHIVE:t:r}"
3101         if [[ -f $ARCHIVE ]] ; then
3102
3103             print "Extracting '$ARCHIVE' ..."
3104             if $USES_STDIN; then
3105                 if $USES_STDOUT; then
3106                     ${=DECOMP_CMD} < "$ARCHIVE" > $GZTARGET
3107                 else
3108                     ${=DECOMP_CMD} < "$ARCHIVE"
3109                 fi
3110             else
3111                 if $USES_STDOUT; then
3112                     ${=DECOMP_CMD} "$ARCHIVE" > $GZTARGET
3113                 else
3114                     ${=DECOMP_CMD} "$ARCHIVE"
3115                 fi
3116             fi
3117             [[ $? -eq 0 && -n "$DELETE_ORIGINAL" ]] && rm -f "$ARCHIVE"
3118
3119         elif [[ "$ARCHIVE" == (#s)(https|http|ftp)://* ]] ; then
3120             if check_com curl; then
3121                 WGET_CMD="curl -L -k -s -o -"
3122             elif check_com wget; then
3123                 WGET_CMD="wget -q -O - --no-check-certificate"
3124             else
3125                 print "ERROR: neither wget nor curl is installed" >&2
3126                 RC=$((RC+4))
3127                 continue
3128             fi
3129             print "Downloading and Extracting '$ARCHIVE' ..."
3130             if $USES_STDIN; then
3131                 if $USES_STDOUT; then
3132                     ${=WGET_CMD} "$ARCHIVE" | ${=DECOMP_CMD} > $GZTARGET
3133                     RC=$((RC+$?))
3134                 else
3135                     ${=WGET_CMD} "$ARCHIVE" | ${=DECOMP_CMD}
3136                     RC=$((RC+$?))
3137                 fi
3138             else
3139                 if $USES_STDOUT; then
3140                     ${=DECOMP_CMD} =(${=WGET_CMD} "$ARCHIVE") > $GZTARGET
3141                 else
3142                     ${=DECOMP_CMD} =(${=WGET_CMD} "$ARCHIVE")
3143                 fi
3144             fi
3145
3146         else
3147             print "ERROR: '$ARCHIVE' is neither a valid file nor a supported URI." >&2
3148             RC=$((RC+8))
3149         fi
3150     done
3151     return $RC
3152 }
3153
3154 __archive_or_uri()
3155 {
3156     _alternative \
3157         '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)"' \
3158         '_urls:Remote Archives:_urls'
3159 }
3160
3161 _simple_extract()
3162 {
3163     _arguments \
3164         '-d[delete original archivefile after extraction]' \
3165         '*:Archive Or Uri:__archive_or_uri'
3166 }
3167 compdef _simple_extract simple-extract
3168 alias se=simple-extract
3169
3170 # Usage: smartcompress <file> (<type>)
3171 #f5# Smart archive creator
3172 smartcompress() {
3173     emulate -L zsh
3174     if [[ -n $2 ]] ; then
3175         case $2 in
3176             tgz | tar.gz)   tar -zcvf$1.$2 $1 ;;
3177             tbz2 | tar.bz2) tar -jcvf$1.$2 $1 ;;
3178             tar.Z)          tar -Zcvf$1.$2 $1 ;;
3179             tar)            tar -cvf$1.$2  $1 ;;
3180             gz | gzip)      gzip           $1 ;;
3181             bz2 | bzip2)    bzip2          $1 ;;
3182             *)
3183                 echo "Error: $2 is not a valid compression type"
3184                 ;;
3185         esac
3186     else
3187         smartcompress $1 tar.gz
3188     fi
3189 }
3190
3191 # Usage: show-archive <archive>
3192 #f5# List an archive's content
3193 show-archive() {
3194     emulate -L zsh
3195     if [[ -f $1 ]] ; then
3196         case $1 in
3197             *.tar.gz)      gunzip -c $1 | tar -tf - -- ;;
3198             *.tar)         tar -tf $1 ;;
3199             *.tgz)         tar -ztf $1 ;;
3200             *.zip)         unzip -l $1 ;;
3201             *.bz2)         bzless $1 ;;
3202             *.deb)         dpkg-deb --fsys-tarfile $1 | tar -tf - -- ;;
3203             *)             echo "'$1' Error. Please go away" ;;
3204         esac
3205     else
3206         echo "'$1' is not a valid archive"
3207     fi
3208 }
3209
3210 # It's shameless stolen from <http://www.vim.org/tips/tip.php?tip_id=167>
3211 #f5# Use \kbd{vim} as your manpage reader
3212 vman() {
3213     emulate -L zsh
3214     if (( ${#argv} == 0 )); then
3215         printf 'usage: vman <topic>\n'
3216         return 1
3217     fi
3218     man "$@" | col -b | view -c 'set ft=man nomod nolist' -
3219 }
3220
3221 # function readme() { $PAGER -- (#ia3)readme* }
3222 #f5# View all README-like files in current directory in pager
3223 readme() {
3224     emulate -L zsh
3225     setopt extendedglob
3226     local files
3227     files=(./(#i)*(read*me|lue*m(in|)ut|lies*mich)*(NDr^/=p%))
3228     if (($#files)) ; then
3229         $PAGER $files
3230     else
3231         print 'No README files.'
3232     fi
3233 }
3234
3235 # function ansi-colors()
3236 #f5# Display ANSI colors
3237 ansi-colors() {
3238     typeset esc="\033[" line1 line2
3239     echo " _ _ _40 _ _ _41_ _ _ _42 _ _ 43_ _ _ 44_ _ _45 _ _ _ 46_ _ _ 47_ _ _ 49_ _"
3240     for fore in 30 31 32 33 34 35 36 37; do
3241         line1="$fore "
3242         line2="   "
3243         for back in 40 41 42 43 44 45 46 47 49; do
3244             line1="${line1}${esc}${back};${fore}m Normal ${esc}0m"
3245             line2="${line2}${esc}${back};${fore};1m Bold   ${esc}0m"
3246         done
3247         echo -e "$line1\n$line2"
3248     done
3249 }
3250
3251 #f5# Find all files in \$PATH with setuid bit set
3252 suidfind() { ls -latg $path | grep '^...s' }
3253
3254 # TODO: So, this is the third incarnation of this function!?
3255 #f5# Reload given functions
3256 refunc() {
3257     for func in $argv ; do
3258         unfunction $func
3259         autoload $func
3260     done
3261 }
3262 compdef _functions refunc
3263
3264 # a small check to see which DIR is located on which server/partition.
3265 # stolen and modified from Sven's zshrc.forall
3266 #f5# Report diskusage of a directory
3267 dirspace() {
3268     emulate -L zsh
3269     if [[ -n "$1" ]] ; then
3270         for dir in "$@" ; do
3271             if [[ -d "$dir" ]] ; then
3272                 ( cd $dir; echo "-<$dir>"; du -shx .; echo);
3273             else
3274                 echo "warning: $dir does not exist" >&2
3275             fi
3276         done
3277     else
3278         for dir in $path; do
3279             if [[ -d "$dir" ]] ; then
3280                 ( cd $dir; echo "-<$dir>"; du -shx .; echo);
3281             else
3282                 echo "warning: $dir does not exist" >&2
3283             fi
3284         done
3285     fi
3286 }
3287
3288 # % slow_print `cat /etc/passwd`
3289 #f5# Slowly print out parameters
3290 slow_print() {
3291     for argument in "$@" ; do
3292         for ((i = 1; i <= ${#1} ;i++)) ; do
3293             print -n "${argument[i]}"
3294             sleep 0.08
3295         done
3296         print -n " "
3297     done
3298     print ""
3299 }
3300
3301 #f5# Show some status info
3302 status() {
3303     print
3304     print "Date..: "$(date "+%Y-%m-%d %H:%M:%S")
3305     print "Shell.: Zsh $ZSH_VERSION (PID = $$, $SHLVL nests)"
3306     print "Term..: $TTY ($TERM), ${BAUD:+$BAUD bauds, }$COLUMNS x $LINES chars"
3307     print "Login.: $LOGNAME (UID = $EUID) on $HOST"
3308     print "System: $(cat /etc/[A-Za-z]*[_-][rv]e[lr]*)"
3309     print "Uptime:$(uptime)"
3310     print
3311 }
3312
3313 # Rip an audio CD
3314 #f5# Rip an audio CD
3315 audiorip() {
3316     mkdir -p ~/ripps
3317     cd ~/ripps
3318     cdrdao read-cd --device $DEVICE --driver generic-mmc audiocd.toc
3319     cdrdao read-cddb --device $DEVICE --driver generic-mmc audiocd.toc
3320     echo " * Would you like to burn the cd now? (yes/no)"
3321     read input
3322     if [[ "$input" = "yes" ]] ; then
3323         echo " ! Burning Audio CD"
3324         audioburn
3325         echo " * done."
3326     else
3327         echo " ! Invalid response."
3328     fi
3329 }
3330
3331 # and burn it
3332 #f5# Burn an audio CD (in combination with audiorip)
3333 audioburn() {
3334     cd ~/ripps
3335     cdrdao write --device $DEVICE --driver generic-mmc audiocd.toc
3336     echo " * Should I remove the temporary files? (yes/no)"
3337     read input
3338     if [[ "$input" = "yes" ]] ; then
3339         echo " ! Removing Temporary Files."
3340         cd ~
3341         rm -rf ~/ripps
3342         echo " * done."
3343     else
3344         echo " ! Invalid response."
3345     fi
3346 }
3347
3348 #f5# Make an audio CD from all mp3 files
3349 mkaudiocd() {
3350     # TODO: do the renaming more zshish, possibly with zmv()
3351     emulate -L zsh
3352     cd ~/ripps
3353     for i in *.[Mm][Pp]3; do mv "$i" `echo $i | tr '[A-Z]' '[a-z]'`; done
3354     for i in *.mp3; do mv "$i" `echo $i | tr ' ' '_'`; done
3355     for i in *.mp3; do mpg123 -w `basename $i .mp3`.wav $i; done
3356     normalize -m *.wav
3357     for i in *.wav; do sox $i.wav -r 44100 $i.wav resample; done
3358 }
3359
3360 #f5# Create an ISO image. You are prompted for\\&\quad volume name, filename and directory
3361 mkiso() {
3362     emulate -L zsh
3363     echo " * Volume name "
3364     read volume
3365     echo " * ISO Name (ie. tmp.iso)"
3366     read iso
3367     echo " * Directory or File"
3368     read files
3369     mkisofs -o ~/$iso -A $volume -allow-multidot -J -R -iso-level 3 -V $volume -R $files
3370 }
3371
3372 #f5# Simple thumbnails generator
3373 genthumbs() {
3374     rm -rf thumb-* index.html
3375     echo "
3376 <html>
3377   <head>
3378     <title>Images</title>
3379   </head>
3380   <body>" > index.html
3381     for f in *.(gif|jpeg|jpg|png) ; do
3382         convert -size 100x200 "$f" -resize 100x200 thumb-"$f"
3383         echo "    <a href=\"$f\"><img src=\"thumb-$f\"></a>" >> index.html
3384     done
3385     echo "
3386   </body>
3387 </html>" >> index.html
3388 }
3389
3390 #f5# Set all ulimit parameters to \kbd{unlimited}
3391 allulimit() {
3392     ulimit -c unlimited
3393     ulimit -d unlimited
3394     ulimit -f unlimited
3395     ulimit -l unlimited
3396     ulimit -n unlimited
3397     ulimit -s unlimited
3398     ulimit -t unlimited
3399 }
3400
3401 #f5# RFC 2396 URL encoding in Z-Shell
3402 urlencode() {
3403     emulate -L zsh
3404     setopt extendedglob
3405     input=( ${(s::)1} )
3406     print ${(j::)input/(#b)([^A-Za-z0-9_.!~*\'\(\)-])/%${(l:2::0:)$(([##16]#match))}}
3407 }
3408
3409 # http://strcat.de/blog/index.php?/archives/335-Software-sauber-deinstallieren...html
3410 #f5# Log 'make install' output
3411 mmake() {
3412     emulate -L zsh
3413     [[ ! -d ~/.errorlogs ]] && mkdir ~/.errorlogs
3414     make -n install > ~/.errorlogs/${PWD##*/}-makelog
3415 }
3416
3417 #f5# Indent source code
3418 smart-indent() {
3419     indent -npro -kr -i8 -ts8 -sob -l80 -ss -ncs "$@"
3420 }
3421
3422 # highlight important stuff in diff output, usage example: hg diff | hidiff
3423 #m# a2 hidiff \kbd{histring} oneliner for diffs
3424 check_com -c histring && \
3425     alias hidiff="histring -fE '^Comparing files .*|^diff .*' | histring -c yellow -fE '^\-.*' | histring -c green -fE '^\+.*'"
3426
3427 # rename pictures based on information found in exif headers
3428 #f5# Rename pictures based on information found in exif headers
3429 exirename() {
3430     emulate -L zsh
3431     if [[ $# -lt 1 ]] ; then
3432         echo 'Usage: jpgrename $FILES' >& 2
3433         return 1
3434     else
3435         echo -n 'Checking for jhead with version newer than 1.9: '
3436         jhead_version=`jhead -h | grep 'used by most Digital Cameras.  v.*' | awk '{print $6}' | tr -d v`
3437         if [[ $jhead_version > '1.9' ]]; then
3438             echo 'success - now running jhead.'
3439             jhead -n%Y-%m-%d_%Hh%M_%f $*
3440         else
3441             echo 'failed - exiting.'
3442         fi
3443     fi
3444 }
3445
3446 # get_ic() - queries imap servers for capabilities; real simple. no imaps
3447 ic_get() {
3448     emulate -L zsh
3449     local port
3450     if [[ ! -z $1 ]] ; then
3451         port=${2:-143}
3452         print "querying imap server on $1:${port}...\n";
3453         print "a1 capability\na2 logout\n" | nc $1 ${port}
3454     else
3455         print "usage:\n  $0 <imap-server> [port]"
3456     fi
3457 }
3458
3459 # creates a Maildir/ with its {new,cur,tmp} subdirs
3460 mkmaildir() {
3461     emulate -L zsh
3462     local root subdir
3463     root=${MAILDIR_ROOT:-${HOME}/Mail}
3464     if [[ -z ${1} ]] ; then print "Usage:\n $0 <dirname>" ; return 1 ; fi
3465     subdir=${1}
3466     mkdir -p ${root}/${subdir}/{cur,new,tmp}
3467 }
3468
3469 #f5# Change the xterm title from within GNU-screen
3470 xtrename() {
3471     emulate -L zsh
3472     if [[ $1 != "-f" ]] ; then
3473         if [[ -z ${DISPLAY} ]] ; then
3474             printf 'xtrename only makes sense in X11.\n'
3475             return 1
3476         fi
3477     else
3478         shift
3479     fi
3480     if [[ -z $1 ]] ; then
3481         printf 'usage: xtrename [-f] "title for xterm"\n'
3482         printf '  renames the title of xterm from _within_ screen.\n'
3483         printf '  also works without screen.\n'
3484         printf '  will not work if DISPLAY is unset, use -f to override.\n'
3485         return 0
3486     fi
3487     print -n "\eP\e]0;${1}\C-G\e\\"
3488     return 0
3489 }
3490
3491 # hl() highlighted less
3492 # http://ft.bewatermyfriend.org/comp/data/zsh/zfunct.html
3493 if check_com -c highlight ; then
3494     function hl() {
3495     emulate -L zsh
3496         local theme lang
3497         theme=${HL_THEME:-""}
3498         case ${1} in
3499             (-l|--list)
3500                 ( printf 'available languages (syntax parameter):\n\n' ;
3501                     highlight --list-langs ; ) | less -SMr
3502                 ;;
3503             (-t|--themes)
3504                 ( printf 'available themes (style parameter):\n\n' ;
3505                     highlight --list-themes ; ) | less -SMr
3506                 ;;
3507             (-h|--help)
3508                 printf 'usage: hl <syntax[:theme]> <file>\n'
3509                 printf '    available options: --list (-l), --themes (-t), --help (-h)\n\n'
3510                 printf '  Example: hl c main.c\n'
3511                 ;;
3512             (*)
3513                 if [[ -z ${2} ]] || (( ${#argv} > 2 )) ; then
3514                     printf 'usage: hl <syntax[:theme]> <file>\n'
3515                     printf '    available options: --list (-l), --themes (-t), --help (-h)\n'
3516                     (( ${#argv} > 2 )) && printf '  Too many arguments.\n'
3517                     return 1
3518                 fi
3519                 lang=${1%:*}
3520                 [[ ${1} == *:* ]] && [[ -n ${1#*:} ]] && theme=${1#*:}
3521                 if [[ -n ${theme} ]] ; then
3522                     highlight -O xterm256 --syntax ${lang} --style ${theme} ${2} | less -SMr
3523                 else
3524                     highlight -O ansi --syntax ${lang} ${2} | less -SMr
3525                 fi
3526                 ;;
3527         esac
3528         return 0
3529     }
3530     # ... and a proper completion for hl()
3531     # needs 'highlight' as well, so it fits fine in here.
3532     function _hl_genarg()  {
3533         local expl
3534         if [[ -prefix 1 *: ]] ; then
3535             local themes
3536             themes=(${${${(f)"$(LC_ALL=C highlight --list-themes)"}/ #/}:#*(Installed|Use name)*})
3537             compset -P 1 '*:'
3538             _wanted -C list themes expl theme compadd ${themes}
3539         else
3540             local langs
3541             langs=(${${${(f)"$(LC_ALL=C highlight --list-langs)"}/ #/}:#*(Installed|Use name)*})
3542             _wanted -C list languages expl languages compadd -S ':' -q ${langs}
3543         fi
3544     }
3545     function _hl_complete() {
3546         _arguments -s '1: :_hl_genarg' '2:files:_path_files'
3547     }
3548     compdef _hl_complete hl
3549 fi
3550
3551 # TODO:
3552 # Rewrite this by either using tinyurl.com's API
3553 # or using another shortening service to comply with
3554 # tinyurl.com's policy.
3555 #
3556 # Create small urls via http://tinyurl.com using wget(1).
3557 #function zurl() {
3558 #    emulate -L zsh
3559 #    [[ -z $1 ]] && { print "USAGE: zurl <URL>" ; return 1 }
3560 #
3561 #    local PN url tiny grabber search result preview
3562 #    PN=$0
3563 #    url=$1
3564 ##   Check existence of given URL with the help of ping(1).
3565 ##   N.B. ping(1) only works without an eventual given protocol.
3566 #    ping -c 1 ${${url#(ftp|http)://}%%/*} >& /dev/null || \
3567 #        read -q "?Given host ${${url#http://*/}%/*} is not reachable by pinging. Proceed anyway? [y|n] "
3568 #
3569 #    if (( $? == 0 )) ; then
3570 ##           Prepend 'http://' to given URL where necessary for later output.
3571 #            [[ ${url} != http(s|)://* ]] && url='http://'${url}
3572 #            tiny='http://tinyurl.com/create.php?url='
3573 #            if check_com -c wget ; then
3574 #                grabber='wget -O- -o/dev/null'
3575 #            else
3576 #                print "wget is not available, but mandatory for ${PN}. Aborting."
3577 #            fi
3578 ##           Looking for i.e.`copy('http://tinyurl.com/7efkze')' in TinyURL's HTML code.
3579 #            search='copy\(?http://tinyurl.com/[[:alnum:]]##*'
3580 #            result=${(M)${${${(f)"$(${=grabber} ${tiny}${url})"}[(fr)${search}*]}//[()\';]/}%%http:*}
3581 ##           TinyURL provides the rather new feature preview for more confidence. <http://tinyurl.com/preview.php>
3582 #            preview='http://preview.'${result#http://}
3583 #
3584 #            printf '%s\n\n' "${PN} - Shrinking long URLs via webservice TinyURL <http://tinyurl.com>."
3585 #            printf '%s\t%s\n\n' 'Given URL:' ${url}
3586 #            printf '%s\t%s\n\t\t%s\n' 'TinyURL:' ${result} ${preview}
3587 #    else
3588 #        return 1
3589 #    fi
3590 #}
3591
3592 #f2# Print a specific line of file(s).
3593 linenr () {
3594     emulate -L zsh
3595     if [ $# -lt 2 ] ; then
3596        print "Usage: linenr <number>[,<number>] <file>" ; return 1
3597     elif [ $# -eq 2 ] ; then
3598          local number=$1
3599          local file=$2
3600          command ed -s $file <<< "${number}n"
3601     else
3602          local number=$1
3603          shift
3604          for file in "$@" ; do
3605              if [ ! -d $file ] ; then
3606                 echo "${file}:"
3607                 command ed -s $file <<< "${number}n" 2> /dev/null
3608              else
3609                 continue
3610              fi
3611          done | less
3612     fi
3613 }
3614
3615 #f2# Find history events by search pattern and list them by date.
3616 whatwhen()  {
3617     emulate -L zsh
3618     local usage help ident format_l format_s first_char remain first last
3619     usage='USAGE: whatwhen [options] <searchstring> <search range>'
3620     help='Use `whatwhen -h'\'' for further explanations.'
3621     ident=${(l,${#${:-Usage: }},, ,)}
3622     format_l="${ident}%s\t\t\t%s\n"
3623     format_s="${format_l//(\\t)##/\\t}"
3624     # Make the first char of the word to search for case
3625     # insensitive; e.g. [aA]
3626     first_char=[${(L)1[1]}${(U)1[1]}]
3627     remain=${1[2,-1]}
3628     # Default search range is `-100'.
3629     first=${2:-\-100}
3630     # Optional, just used for `<first> <last>' given.
3631     last=$3
3632     case $1 in
3633         ("")
3634             printf '%s\n\n' 'ERROR: No search string specified. Aborting.'
3635             printf '%s\n%s\n\n' ${usage} ${help} && return 1
3636         ;;
3637         (-h)
3638             printf '%s\n\n' ${usage}
3639             print 'OPTIONS:'
3640             printf $format_l '-h' 'show help text'
3641             print '\f'
3642             print 'SEARCH RANGE:'
3643             printf $format_l "'0'" 'the whole history,'
3644             printf $format_l '-<n>' 'offset to the current history number; (default: -100)'
3645             printf $format_s '<[-]first> [<last>]' 'just searching within a give range'
3646             printf '\n%s\n' 'EXAMPLES:'
3647             printf ${format_l/(\\t)/} 'whatwhen grml' '# Range is set to -100 by default.'
3648             printf $format_l 'whatwhen zsh -250'
3649             printf $format_l 'whatwhen foo 1 99'
3650         ;;
3651         (\?)
3652             printf '%s\n%s\n\n' ${usage} ${help} && return 1
3653         ;;
3654         (*)
3655             # -l list results on stout rather than invoking $EDITOR.
3656             # -i Print dates as in YYYY-MM-DD.
3657             # -m Search for a - quoted - pattern within the history.
3658             fc -li -m "*${first_char}${remain}*" $first $last
3659         ;;
3660     esac
3661 }
3662
3663 # change fluxbox keys from 'Alt-#' to 'Alt-F#' and vice versa
3664 fluxkey-change() {
3665     emulate -L zsh
3666     [[ -n "$FLUXKEYS" ]] || local FLUXKEYS="$HOME/.fluxbox/keys"
3667     if ! [[ -r "$FLUXKEYS" ]] ; then
3668         echo "Sorry, \$FLUXKEYS file $FLUXKEYS could not be read - nothing to be done."
3669         return 1
3670     else
3671         if grep -q 'Mod1 F[0-9] :Workspace [0-9]' $FLUXKEYS ; then
3672             echo -n 'Switching to Alt-# mode in ~/.fluxbox/keys: '
3673             sed -i -e 's|^\(Mod[0-9]\+[: space :]\+\)F\([0-9]\+[: space :]\+:Workspace.*\)|\1\2|' $FLUXKEYS && echo done || echo failed
3674         elif grep -q 'Mod1 [0-9] :Workspace [0-9]' $FLUXKEYS ; then
3675             echo -n 'Switching to Alt-F# mode in ~/.fluxbox/keys: '
3676             sed -i -e 's|^\(Mod[0-9]\+[: space :]\+\)\([0-9]\+[: space :]\+:Workspace.*\)|\1F\2|' $FLUXKEYS && echo done || echo failed
3677         else
3678             echo 'Sorry, do not know what to do.'
3679             return 1
3680         fi
3681     fi
3682 }
3683
3684 # mercurial related stuff
3685 if check_com -c hg ; then
3686     # gnu like diff for mercurial
3687     # http://www.selenic.com/mercurial/wiki/index.cgi/TipsAndTricks
3688     #f5# GNU like diff for mercurial
3689     hgdi() {
3690         emulate -L zsh
3691         for i in $(hg status -marn "$@") ; diff -ubwd <(hg cat "$i") "$i"
3692     }
3693
3694     # build debian package
3695     #a2# Alias for \kbd{hg-buildpackage}
3696     alias hbp='hg-buildpackage'
3697
3698     # execute commands on the versioned patch-queue from the current repos
3699     alias mq='hg -R $(readlink -f $(hg root)/.hg/patches)'
3700
3701     # diffstat for specific version of a mercurial repository
3702     #   hgstat      => display diffstat between last revision and tip
3703     #   hgstat 1234 => display diffstat between revision 1234 and tip
3704     #f5# Diffstat for specific version of a mercurial repos
3705     hgstat() {
3706         emulate -L zsh
3707         [[ -n "$1" ]] && hg diff -r $1 -r tip | diffstat || hg export tip | diffstat
3708     }
3709
3710 fi # end of check whether we have the 'hg'-executable
3711
3712 # some useful commands often hard to remember - let's grep for them
3713 # actually use our zg() function now. :)
3714
3715 # Work around ion/xterm resize bug.
3716 #if [[ "$SHLVL" -eq 1 ]]; then
3717 #       if check_com -c resize ; then
3718 #               eval `resize </dev/null`
3719 #       fi
3720 #fi
3721
3722 # enable jackd:
3723 #  /usr/bin/jackd -dalsa -dhw:0 -r48000 -p1024 -n2
3724 # now play audio file:
3725 #  alsaplayer -o jack foobar.mp3
3726
3727 # send files via netcat
3728 # on sending side:
3729 #  send() {j=$*; tar cpz ${j/%${!#}/}|nc -w 1 ${!#} 51330;}
3730 #  send dir* $HOST
3731 #  alias receive='nc -vlp 51330 | tar xzvp'
3732
3733 # debian stuff:
3734 # dh_make -e foo@localhost -f $1
3735 # dpkg-buildpackage -rfakeroot
3736 # lintian *.deb
3737 # dpkg-scanpackages ./ /dev/null | gzip > Packages.gz
3738 # dpkg-scansources . | gzip > Sources.gz
3739 # grep-dctrl --field Maintainer $* /var/lib/apt/lists/*
3740
3741 # other stuff:
3742 # convert -geometry 200x200 -interlace LINE -verbose
3743 # ldapsearch -x -b "OU=Bedienstete,O=tug" -h ldap.tugraz.at sn=$1
3744 # ps -ao user,pcpu,start,command
3745 # gpg --keyserver blackhole.pca.dfn.de --recv-keys
3746 # xterm -bg black -fg yellow -fn -misc-fixed-medium-r-normal--14-140-75-75-c-90-iso8859-15 -ah
3747 # nc -vz $1 1-1024   # portscan via netcat
3748 # wget --mirror --no-parent --convert-links
3749 # pal -d `date +%d`
3750 # autoload -U tetris; zle -N tetris; bindkey '...' ; echo "press ... for playing tennis"
3751 #
3752 # modify console cursor
3753 # see http://www.tldp.org/HOWTO/Framebuffer-HOWTO-5.html
3754 # print $'\e[?96;0;64c'
3755
3756 # grml-small cleanups
3757
3758 # The following is used to remove zsh-config-items that do not work
3759 # in grml-small by default.
3760 # If you do not want these adjustments (for whatever reason), set
3761 # $GRMLSMALL_SPECIFIC to 0 in your .zshrc.pre file (which this configuration
3762 # sources if it is there).
3763
3764 if (( GRMLSMALL_SPECIFIC > 0 )) && isgrmlsmall ; then
3765
3766     unset abk[V]
3767     unalias    'V'      &> /dev/null
3768     unfunction vman     &> /dev/null
3769     unfunction viless   &> /dev/null
3770     unfunction 2html    &> /dev/null
3771
3772     # manpages are not in grmlsmall
3773     unfunction manzsh   &> /dev/null
3774     unfunction man2     &> /dev/null
3775
3776 fi
3777
3778 zrclocal
3779
3780 ## genrefcard.pl settings
3781
3782 ### doc strings for external functions from files
3783 #m# f5 grml-wallpaper() Sets a wallpaper (try completion for possible values)
3784
3785 ### example: split functions-search 8,16,24,32
3786 #@# split functions-search 8
3787
3788 ## END OF FILE #################################################################
3789 # vim:filetype=zsh foldmethod=marker autoindent expandtab shiftwidth=4
3790 # Local variables:
3791 # mode: sh
3792 # End: