/etc/zsh/zshrc: check for upper letters in isutfenv as well
[grml-etc-core.git] / etc / zsh / zshrc
index 5466b63..843b0f8 100644 (file)
@@ -3,7 +3,7 @@
 # Authors:       grml-team (grml.org), (c) Michael Prokop <mika@grml.org>
 # Bug-Reports:   see http://grml.org/bugs/
 # License:       This file is licensed under the GPL v2.
-# Latest change: Son Dez 17 13:52:04 CET 2006 [mika]
+# Latest change: Son Jän 14 10:57:03 CET 2007 [mika]
 ################################################################################
 # This file is sourced only for interactive shells. It
 # should contain commands to set up aliases, functions,
 # Global Order: zshenv, zprofile, zshrc, zlogin
 ################################################################################
 
+# zsh profiling {{{
+# just execute 'ZSH_PROFILE_RC=1 zsh' and run 'zprof' to get the details
+  if [[ -n $ZSH_PROFILE_RC ]] ; then
+     zmodload zsh/zprof
+  fi
+# }}}
+
 # {{{ check for version/system
 # check for versions (compatibility reasons)
   if autoload is-at-least && is-at-least 2>/dev/null ; then
@@ -51,6 +58,7 @@
   isutfenv() {
     case "$LANG $CHARSET $LANGUAGE" in
       *utf*) return 0 ;;
+      *UTF*) return 0 ;;
       *)     return 1 ;;
     esac
   }
@@ -256,7 +264,7 @@ fi
 # autoload zsh modules when they are referenced
   is4 && for opt mod in a  stat    \
                         a  zpty    \
-                        a  zprof   \
+                        ap zprof   \
                         ap mapfile ; do
              zmodload -${opt} zsh/${mod} ${mod}
          done ; unset opt mod
@@ -386,7 +394,7 @@ fi
 
 # {{{ display battery status on right side of prompt via running 'BATTERY=1 zsh'
   if [ -n "$BATTERY" ] ; then
-     if [ -x =acpi ] ; then
+     if [ -x $(which acpi) ] ; then
         PERCENT="${(C)${(s| |)$(acpi 2>/dev/null)}[4]}"
         [ -z "$PERCENT" ] && PERCENT='acpi not present'
         if [ "${PERCENT%%%}" -lt 20 ] ; then
@@ -554,7 +562,10 @@ ${BLUE}%n${NO_COLOUR}@%m %40<...<%B%~%b%<< %# "
 
   alias swspeak="setopt singlelinezle ; unsetopt prompt_cr ; export PS1='%m%# ' ; speechd-up" # set up software synth.
 
-# truecrypt; use e.g. via 'truec /dev/ice' /mnt/ice' or 'truec -i'
+  # I like clean prompt, so provide simple way to get that
+  alias 0 &>/dev/null || functions 0 &>/dev/null || alias 0='return 0'
+
+# truecrypt; use e.g. via 'truec /dev/ice /mnt/ice' or 'truec -i'
   if [ -x /usr/sbin/truecrypt ] ; then
      if isutfenv ; then
         alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077,utf8" '
@@ -647,9 +658,15 @@ Enjoy your grml system with the zsh!$reset_color"
     alias zshskel="source /etc/skel/.zshrc" # source skeleton zshrc
   fi
 
+# sort installed Debian-packages by size
+  if [ -x /usr/bin/grep-status ] ; then
+     alias debs-by-size='grep-status -FStatus -sInstalled-Size,Package \
+                -n "install ok installed" | paste -sd "  \n" | sort -rn'
+  fi
+
 # if cdrecord is a symlink (to wodim) or isn't present at all warn:
-  if [ -L /usr/bin/cdrecord -o ! -x =cdrecord ] ; then
-     if [ -x =wodim ] ; then
+  if [ -L /usr/bin/cdrecord -o ! -x $(which cdrecord) ] ; then
+     if [ -x $(which wodim) ] ; then
         alias cdrecord="echo 'cdrecord is not provided under its original name by Debian anymore.
 See #377109 in the BTS of Debian for more details.
 
@@ -657,6 +674,25 @@ Please use the wodim binary instead' ; return 1"
      fi
   fi
 
+# I hate lacking backward compability, so provide an alternative therefore
+  if ! [ -x /usr/sbin/apache2-ssl-certificate ] ; then
+   function apache2-ssl-certificate(){
+
+     print 'Debian does not ship apache2-ssl-certificate anymore (see #398520). :('
+     print 'You might want to take a look at Debian the package ssl-cert as well.'
+     print 'To generate a certificate for use with apache2 follow the instructions:'
+
+     echo '
+
+export RANDFILE=/dev/random
+mkdir /etc/apache2/ssl/
+openssl req $@ -new -x509 -days 365 -nodes -out /etc/apache2/ssl/apache.pem -keyout /etc/apache2/ssl/apache.pem
+chmod 600 /etc/apache2/ssl/apache.pem
+
+Run "grml-tips ssl-certificate" if you need further instructions.
+'
+   }
+  fi
 # }}}
 
 # {{{ Use hard limits, except for a smaller stack and no core dumps
@@ -756,22 +792,54 @@ grmlcomp() {
 # bindkey "^M" my_accept
 
 # command for process lists, the local web server details and host completion
-  hosts=(`hostname` grml.org)
-  zstyle '*' hosts $hosts
   zstyle ':completion:*:urls' local 'www' '/var/www/' 'public_html'
 
 # caching
   [ -d $ZSHDIR/cache ] && zstyle ':completion:*' use-cache yes && \
                           zstyle ':completion::complete:*' cache-path $ZSHDIR/cache/
 
-# use ~/.ssh/known_hosts for completion [does not work with hashing of new ssh versions anymore]
-  if [ -f "$HOME/.ssh/known_hosts" ] ; then
-    hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[\|]*}%%\ *}%%,*})
-    zstyle ':completion:*:hosts' hosts $hosts
+# host completion /* add brackets as vim can't parse zsh's complex cmdlines 8-) {{{ */
+  if is42 ; then
+    [ -r ~/.ssh/known_hosts ] && _ssh_hosts=(${${${${(f)"$(<$HOME/.ssh/known_hosts)"}:#[\|]*}%%\ *}%%,*}) || _ssh_hosts=()
+    [ -r /etc/hosts ] && : ${(A)_etc_hosts:=${(s: :)${(ps:\t:)${${(f)~~"$(</etc/hosts)"}%%\#*}##[:blank:]#[^[:blank:]]#}}} || _etc_hosts=()
+  else
+    _ssh_hosts=()
+    _etc_hosts=()
   fi
+  hosts=(
+      `hostname`
+      "$_ssh_hosts[@]"
+      "$_etc_hosts[@]"
+      grml.org
+      localhost
+  )
+  zstyle ':completion:*:hosts' hosts $hosts
+#  zstyle '*' hosts $hosts
+
+# specify your logins:
+# my_accounts=(
+#  {grml,grml1}@foo.invalid
+#  grml-devel@bar.invalid
+# )
+# other_accounts=(
+#  {fred,root}@foo.invalid
+#  vera@bar.invalid
+# )
+# zstyle ':completion:*:my-accounts' users-hosts $my_accounts
+# zstyle ':completion:*:other-accounts' users-hosts $other_accounts
+
+# specify specific port/service settings:
+#  telnet_users_hosts_ports=(
+#    user1@host1:
+#    user2@host2:
+#    @mail-server:{smtp,pop3}
+#    @news-server:nntp
+#    @proxy-server:8000
+#  )
+# zstyle ':completion:*:*:telnet:*' users-hosts-ports $telnet_users_hosts_ports
 
 # use generic completion system for programs not yet defined:
-  compdef _gnu_generic tail head feh cp mv gpg df stow uname ipacsum fetchipac
+  compdef _gnu_generic tail head feh cp mv df stow uname ipacsum fetchipac
 
 # see upgrade function in this file
   compdef _hosts upgrade
@@ -843,10 +911,23 @@ If you want to use xinit anyway please call \"/usr/bin/xinit\"."
 # shell functions {{{
   setenv()  { typeset -x "${1}${1:+=}${(@)argv[2,$#]}" }  # csh compatibility
   freload() { while (( $# )); do; unfunction $1; autoload -U $1; shift; done }
+  reload () {
+   if [[ "$#*" -eq 0 ]]; then
+      [ -r ~/.zshrc ] && . ~/.zshrc
+   else
+      local fn
+      for fn in "$@"; do
+          unfunction $fn
+          autoload -U $fn
+      done
+   fi
+  }
+  compdef _functions reload freload
 
   # fast manual access
   if type -p qma &>/dev/null ; then
      manzsh()  { qma zshall "$1" }
+     compdef _man qma
   else
      manzsh()  { /usr/bin/man zshall |  vim -c "se ft=man| se hlsearch" +/"$1" - ; }
      # manzsh()  { /usr/bin/man zshall |  most +/"$1" ; }
@@ -881,6 +962,11 @@ If you want to use xinit anyway please call \"/usr/bin/xinit\"."
   _uchange() { _files -W /usr/share/doc -/ }
   compdef _uchange uchange
 
+# zsh profiling
+  profile () {
+      ZSH_PROFILE_RC=1 $SHELL "$@"
+  }
+
 # edit alias via zle:
   edalias() {
     [ -z "$1" ] && { echo "Usage: edalias <alias_to_edit>" ; return 1 } || vared aliases'[$1]' ;
@@ -888,10 +974,10 @@ If you want to use xinit anyway please call \"/usr/bin/xinit\"."
   compdef _aliases edalias
 
 # edit function via zle:
-  edfun() {
+  edfunc() {
     [ -z "$1" ] && { echo "Usage: edfun <function_to_edit>" ; return 1 } || zed -f "$1" ;
   }
-  compdef _functions edfun
+  compdef _functions edfunc
 
 # use it e.g. via 'Restart apache2'
  if [ -d /etc/init.d ] ; then
@@ -955,10 +1041,47 @@ If you want to use xinit anyway please call \"/usr/bin/xinit\"."
      local LENGTH=$(expr length $STRING)
      local FIRSCHAR=$(echo $(expr substr $STRING 1 1))
      local REST=$(echo $(expr substr $STRING 2 $LENGTH))
-     ps xauwww| grep [$FIRSCHAR]$REST
+     ps xauwww| grep "[$FIRSCHAR]$REST"
   fi
   }
 
+  # After resuming from suspend, system is paging heavilly, leading to very bad interactivity.
+  # taken from $LINUX-KERNELSOURCE/Documentation/power/swsusp.txt
+  [ -r /proc/1/maps ] && deswap() {
+     print 'Reading /proc/[0-9]*/maps and sending output to /dev/null, this might take a while.'
+     cat $(sed -ne 's:.* /:/:p' /proc/[0-9]*/maps | sort -u | grep -v '^/dev/')  > /dev/null
+     print 'Finished, running "swapoff -a; swapon -a" may also be useful.'
+  }
+
+  # print hex value of a number
+  hex() {
+    [ -n "$1" ] && printf "%x\n" $1 || { print 'Usage: hex <number-to-convert>' ; return 1 }
+  }
+
+  # calculate (or eval at all ;-)) with perl => p[erl-]eval
+  # hint: also take a look at zcalc -> 'autoload zcalc' -> 'man zshmodules | less -p MATHFUNC'
+  peval() {
+    [ -n "$1" ] && CALC="$*" || print "Usage: calc [expression]"
+    perl -e "print eval($CALC),\"\n\";"
+  }
+  functions peval &>/dev/null && alias calc=peval
+
+  # Switching shell safely and efficiently? http://www.zsh.org/mla/workers/2001/msg02410.html
+  # bash() {
+  #  NO_SWITCH="yes" command bash "$@"
+  # }
+  # restart () {
+  #  exec $SHELL $SHELL_ARGS "$@"
+  # }
+
+# }}}
+
+# log out? set timeout in seconds {{{
+# TMOUT=1800
+# do not log out in some specific terminals:
+#  if [[ "${TERM}" == ([Exa]term*|rxvt|dtterm|screen*) ]]; then
+#    unset TMOUT
+#  fi
 # }}}
 
 # {{{ make sure our environment is clean regarding colors
@@ -979,4 +1102,4 @@ If you want to use xinit anyway please call \"/usr/bin/xinit\"."
 # }}}
 
 ## END OF FILE #################################################################
-# vim:foldmethod=marker
+# vim:foldmethod=marker expandtab