setopt completeinword # not just at the end
setopt nohup # and don't kill them, either
setopt auto_pushd # make cd push the old directory onto the directory stack.
-setopt nonomatch # try to avoid the 'zsh: no matches found...'
setopt nobeep # avoid "beep"ing
setopt pushd_ignore_dups # don't push the same dir twice.
setopt noglobdots # * shouldn't match dotfiles. ever.
GRML_ZSH_CNF_HANDLER=${GRML_ZSH_CNF_HANDLER:-/usr/share/command-not-found/command-not-found}
BATTERY=${BATTERY:-0}
GRMLSMALL_SPECIFIC=${GRMLSMALL_SPECIFIC:-1}
-GRML_ALWAYS_LOAD_ALL=${GRML_ALWAYS_LOAD_ALL:-0}
ZSH_NO_DEFAULT_LOCALE=${ZSH_NO_DEFAULT_LOCALE:-0}
# utility functions
'co' './configure && make && sudo make install'
)
-globalias() {
+zleiab() {
emulate -L zsh
setopt extendedglob
local MATCH
LBUFFER+=${abk[$MATCH]:-$MATCH}
}
-zle -N globalias
-bindkey ",." globalias
+zle -N zleiab
+bindkey ",." zleiab
# autoloading
zrcautoload zmv # who needs mmv or rename?
alias "$(uname -r)-reboot"="kexec -l --initrd=/boot/initrd.img-"$(uname -r)" --command-line=\"$(cat /proc/cmdline)\" /boot/vmlinuz-"$(uname -r)""
fi
-alias cp='nocorrect cp' # no spelling correction on cp
-alias mkdir='nocorrect mkdir' # no spelling correction on mkdir
-alias mv='nocorrect mv' # no spelling correction on mv
-alias rm='nocorrect rm' # no spelling correction on rm
-
-#a1# Execute \kbd{rmdir}
-alias rd='rmdir'
-#a1# Execute \kbd{mkdir}
-alias md='mkdir'
-
# see http://www.cl.cam.ac.uk/~mgk25/unicode.html#term for details
alias term2iso="echo 'Setting terminal to iso mode' ; print -n '\e%@'"
alias term2utf="echo 'Setting terminal to utf-8 mode'; print -n '\e%G'"
fi
}
-# I like clean prompt, so provide simple way to get that
-check_com 0 || alias 0='return 0'
-
-# for really lazy people like mika:
-check_com S &>/dev/null || alias S='screen'
-check_com s &>/dev/null || alias s='ssh'
-
# especially for roadwarriors using GNU screen and ssh:
if ! check_com asc &>/dev/null ; then
asc() { autossh -t "$@" 'screen -RdU' }
compdef asc=ssh
fi
-# get top 10 shell commands:
-alias top10='print -l ${(o)history%% *} | uniq -c | sort -nr | head -n 10'
-
-# truecrypt; use e.g. via 'truec /dev/ice /mnt/ice' or 'truec -i'
-if check_com -c truecrypt ; then
- if isutfenv ; then
- alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077,utf8" '
- else
- alias truec='truecrypt --mount-options "rw,sync,dirsync,users,uid=1000,gid=users,umask=077" '
- fi
-fi
-
#f1# Hints for the use of zsh on grml
zsh-help() {
print "$bg[white]$fg[black]
System wide configuration without touching configuration files of grml
can take place in /etc/zsh/zshrc.local.
-Normally, the root user (EUID == 0) does not get the whole grml setup.
-If you want to force the whole setup for that user, too, set
-GRML_ALWAYS_LOAD_ALL=1 in .zshrc.pre in root'\''s home directory.
-
For information regarding zsh start at http://grml.org/zsh/
Take a look at grml'\''s zsh refcard:
#a3# Execute \kbd{grep-excuses}
alias ge='grep-excuses'
- # debian upgrade
- #f3# Execute \kbd{apt-get update \&\& }\\&\quad \kbd{apt-get dist-upgrade}
- upgrade() {
- emulate -L zsh
- if [[ -z $1 ]] ; then
- $SUDO apt-get update
- $SUDO apt-get -u upgrade
- else
- ssh $1 $SUDO apt-get update
- # ask before the upgrade
- local dummy
- ssh $1 $SUDO apt-get --no-act upgrade
- echo -n 'Process the upgrade?'
- read -q dummy
- if [[ $dummy == "y" ]] ; then
- ssh $1 $SUDO apt-get -u upgrade --yes
- fi
- fi
- }
-
# get a root shell as normal user in live-cd mode:
if isgrmlcd && [[ $UID -ne 0 ]] ; then
alias su="sudo su"
fi
fi
-# get_tw_cli has been renamed into get_3ware
-if check_com -c get_3ware ; then
- get_tw_cli() {
- echo 'Warning: get_tw_cli has been renamed into get_3ware. Invoking get_3ware for you.'>&2
- get_3ware
- }
-fi
-
-# I hate lacking backward compatibility, so provide an alternative therefore
-if ! check_com -c apache2-ssl-certificate ; then
-
- 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
unlimit
is425 && limit stack 8192
# shell functions
-#f1# Provide csh compatibility
-setenv() { typeset -x "${1}${1:+=}${(@)argv[2,$#]}" } # csh compatibility
-
#f1# Reload an autoloadable function
freload() { while (( $# )); do; unfunction $1; autoload -U $1; shift; done }
compdef _functions freload
done
}
-# fast manual access
-if check_com qma ; then
- #f1# View the zsh manual
- manzsh() { qma zshall "$1" }
- compdef _man qma
-else
- manzsh() { /usr/bin/man zshall | vim -c "se ft=man| se hlsearch" +/"$1" - ; }
-fi
-
# TODO: Is it supported to use pager settings like this?
# PAGER='less -Mr' - If so, the use of $PAGER here needs fixing
# with respect to wordsplitting. (ie. ${=PAGER})
#k# display help for keybindings and ZLE (cycle pages with consecutive use)
zle -N help-zle && bindkey '^Xz' help-zle
-check_com -c qma && alias ?='qma zshall'
-
# grep for running process, like: 'any vim'
any() {
emulate -L zsh
print 'Finished, running "swapoff -a; swapon -a" may also be useful.'
}
-# print hex value of a number
-hex() {
- emulate -L zsh
- [[ -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
-
-# just press 'asdf' keys to toggle between dvorak and us keyboard layout
-aoeu() {
- echo -n 'Switching to us keyboard layout: '
- [[ -z "$DISPLAY" ]] && $SUDO loadkeys us &>/dev/null || setxkbmap us &>/dev/null
- echo 'Done'
-}
-asdf() {
- echo -n 'Switching to dvorak keyboard layout: '
- [[ -z "$DISPLAY" ]] && $SUDO loadkeys dvorak &>/dev/null || setxkbmap dvorak &>/dev/null
- echo 'Done'
-}
-# just press 'asdf' key to toggle from neon layout to us keyboard layout
-uiae() {
- echo -n 'Switching to us keyboard layout: '
- setxkbmap us && echo 'Done' || echo 'Failed'
-}
-
-# set up an ipv6 tunnel
-ipv6-tunnel() {
- emulate -L zsh
- case $1 in
- start)
- if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
- print 'ipv6 tunnel already set up, nothing to be done.'
- print 'execute: "ifconfig sit1 down ; ifconfig sit0 down" to remove ipv6-tunnel.' ; return 1
- else
- [[ -n "$PUBLIC_IP" ]] || \
- local PUBLIC_IP=$(ifconfig $(route -n | awk '/^0\.0\.0\.0/{print $8; exit}') | \
- awk '/inet addr:/ {print $2}' | tr -d 'addr:')
-
- [[ -n "$PUBLIC_IP" ]] || { print 'No $PUBLIC_IP set and could not determine default one.' ; return 1 }
- local IPV6ADDR=$(printf "2002:%02x%02x:%02x%02x:1::1" $(print ${PUBLIC_IP//./ }))
- print -n "Setting up ipv6 tunnel $IPV6ADDR via ${PUBLIC_IP}: "
- ifconfig sit0 tunnel ::192.88.99.1 up
- ifconfig sit1 add "$IPV6ADDR" && print done || print failed
- fi
- ;;
- status)
- if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
- print 'ipv6 tunnel available' ; return 0
- else
- print 'ipv6 tunnel not available' ; return 1
- fi
- ;;
- stop)
- if ifconfig sit1 2>/dev/null | grep -q 'inet6 addr: 2002:.*:1::1' ; then
- print -n 'Stopping ipv6 tunnel (sit0 + sit1): '
- ifconfig sit1 down ; ifconfig sit0 down && print done || print failed
- else
- print 'No ipv6 tunnel found, nothing to be done.' ; return 1
- fi
- ;;
- *)
- print "Usage: ipv6-tunnel [start|stop|status]">&2 ; return 1
- ;;
- esac
-}
-
-# run dhclient for wireless device
-iwclient() {
- sudo dhclient "$(wavemon -d | awk '/device/{print $3}')"
-}
-
-# spawn a minimally set up mksh - useful if you want to umount /usr/.
-minimal-shell() {
- emulate -L zsh
- local shell="/bin/mksh"
-
- if [[ ! -x ${shell} ]]; then
- printf '`%s'\'' not available, giving up.\n' ${shell} >&2
- return 1
- fi
-
- exec env -i ENV="/etc/minimal-shellrc" HOME="$HOME" TERM="$TERM" ${shell}
-}
-
# a wrapper for vim, that deals with title setting
# VIM_OPTIONS
# set this array to a set of options to vim you always want
cp -a "$1" "${1}_$(date --iso-8601=seconds)"
}
-#f1# grep for patterns in grml's zsh setup
-zg() {
- LANG=C perl -e '
-
-sub usage {
- print "usage: zg -[anr] <pattern>\n";
- print " Search for patterns in grml'\''s zshrc.\n";
- print " zg takes no or exactly one option plus a non empty pattern.\n\n";
- print " options:\n";
- print " -- no options (use if your pattern starts in with a dash.\n";
- print " -a search for the pattern in all code regions\n";
- print " -n search for the pattern in non-root code only\n";
- print " -r search in code for everyone (also root) only\n\n";
- print " The default is -a for non-root users and -r for root.\n\n";
- print " If you installed the zshrc to a non-default locations (ie *NOT*\n";
- print " in /etc/zsh/zshrc) do: export GRML_ZSHRC=\$HOME/.zshrc\n";
- print " ...in case you copied the file to that location.\n\n";
- exit 1;
-}
-
-if ($ENV{GRML_ZSHRC} ne "") {
- $RC = $ENV{GRML_ZSHRC};
-} else {
- $RC = "/etc/zsh/zshrc";
-}
-
-usage if ($#ARGV < 0 || $#ARGV > 1);
-if ($> == 0) { $mode = "allonly"; }
-else { $mode = "all"; }
-
-$opt = $ARGV[0];
-if ($opt eq "--") { shift; }
-elsif ($opt eq "-a") { $mode = "all"; shift; }
-elsif ($opt eq "-n") { $mode = "nonroot"; shift; }
-elsif ($opt eq "-r" ) { $mode = "allonly"; shift; }
-elsif ($opt =~ m/^-/ || $#ARGV > 0) { usage(); }
-
-$pattern = $ARGV[0];
-usage() if ($pattern eq "");
-
-open FH, "<$RC" or die "zg: Could not open $RC: $!\n";
-while ($line = <FH>) {
- chomp $line;
- if ($line =~ m/^#:grep:marker:for:mika:/) { $markerfound = 1; next; }
- next if ($mode eq "nonroot" && markerfound == 0);
- break if ($mode eq "allonly" && markerfound == 1);
- print $line, "\n" if ($line =~ /$pattern/);
-}
-close FH;
-exit 0;
-
- ' -- "$@"
- return $?
-}
-
ssl_hashes=( sha512 sha256 sha1 md5 )
for sh in ${ssl_hashes}; do
# load the lookup subsystem if it's available on the system
zrcautoload lookupinit && lookupinit
-#:grep:marker:for:mika: :-)
-### non-root (EUID != 0) code below
-###
-
-if (( GRML_ALWAYS_LOAD_ALL == 0 )) && (( $EUID == 0 )) ; then
- zrclocal
- return 0
-fi
-
# variables
# set terminal property (used e.g. by msgid-chooser)
export COLORTERM="yes"
-#m# v QTDIR \kbd{/usr/share/qt[34]}\quad [for non-root only]
-[[ -d /usr/share/qt3 ]] && export QTDIR=/usr/share/qt3
-[[ -d /usr/share/qt4 ]] && export QTDIR=/usr/share/qt4
-
-# support running 'jikes *.java && jamvm HelloWorld' OOTB:
-#v# [for non-root only]
-[[ -f /usr/share/classpath/glibj.zip ]] && export JIKESPATH=/usr/share/classpath/glibj.zip
-
# aliases
-# Xterm resizing-fu.
-# Based on http://svn.kitenet.net/trunk/home-full/.zshrc?rev=11710&view=log (by Joey Hess)
-alias hide='echo -en "\033]50;nil2\007"'
-alias tiny='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-80-*-*-c-*-iso8859-15\007"'
-alias small='echo -en "\033]50;6x10\007"'
-alias medium='echo -en "\033]50;-misc-fixed-medium-r-normal--13-120-75-75-c-80-iso8859-15\007"'
-alias default='echo -e "\033]50;-misc-fixed-medium-r-normal-*-*-140-*-*-c-*-iso8859-15\007"'
-alias large='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-150-*-*-c-*-iso8859-15\007"'
-alias huge='echo -en "\033]50;-misc-fixed-medium-r-normal-*-*-210-*-*-c-*-iso8859-15\007"'
-alias smartfont='echo -en "\033]50;-artwiz-smoothansi-*-*-*-*-*-*-*-*-*-*-*-*\007"'
-alias semifont='echo -en "\033]50;-misc-fixed-medium-r-semicondensed-*-*-120-*-*-*-*-iso8859-15\007"'
-
# general
#a2# Execute \kbd{du -sch}
alias da='du -sch'
#a2# Execute \kbd{jobs -l}
alias j='jobs -l'
-# compile stuff
-#a2# Execute \kbd{./configure}
-alias CO="./configure"
-#a2# Execute \kbd{./configure --help}
-alias CH="./configure --help"
-
# listing stuff
#a2# Execute \kbd{ls -lSrah}
alias dir="ls -lSrah"
#a2# Display the ten smallest files
alias lssmall="ls -Srl *(.oL[1,10])" # display the smallest files
-# chmod
-#a2# Execute \kbd{chmod 600}
-alias rw-='chmod 600'
-#a2# Execute \kbd{chmod 700}
-alias rwx='chmod 700'
-#m# a2 r-{}- Execute \kbd{chmod 644}
-alias r--='chmod 644'
-#a2# Execute \kbd{chmod 755}
-alias r-x='chmod 755'
-
# some useful aliases
-#a2# Execute \kbd{mkdir -p}
-alias md='mkdir -p'
#a2# Remove current empty directory. Execute \kbd{cd ..; rmdir $OLDCWD}
alias rmcdir='cd ..; rmdir $OLDPWD || cd $OLDPWD'
-# console stuff
-#a2# Execute \kbd{mplayer -vo fbdev}
-alias cmplayer='mplayer -vo fbdev'
-#a2# Execute \kbd{mplayer -vo fbdev -fs -zoom}
-alias fbmplayer='mplayer -vo fbdev -fs -zoom'
-#a2# Execute \kbd{links2 -driver fb}
-alias fblinks='links2 -driver fb'
-
#a2# ssh with StrictHostKeyChecking=no \\&\quad and UserKnownHostsFile unset
alias insecssh='ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
alias insecscp='scp -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
# simple webserver
check_com -c python && alias http="python -m SimpleHTTPServer"
-# Use 'g' instead of 'git':
-check_com g || alias g='git'
-
# work around non utf8 capable software in utf environment via $LANG and luit
if check_com isutfenv && check_com luit ; then
if check_com -c mrxvt ; then
# useful functions
-# searching
-#f4# Search for newspostings from authors
-agoogle() { ${=BROWSER} "http://groups.google.com/groups?as_uauthors=$*" ; }
-#f4# Search Debian Bug Tracking System
-debbug() {
- emulate -L zsh
- setopt extendedglob
- if [[ $# -eq 1 ]]; then
- case "$1" in
- ([0-9]##)
- ${=BROWSER} "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=$1"
- ;;
- (*@*)
- ${=BROWSER} "http://bugs.debian.org/cgi-bin/pkgreport.cgi?submitter=$1"
- ;;
- (*)
- ${=BROWSER} "http://bugs.debian.org/$*"
- ;;
- esac
- else
- print "$0 needs one argument"
- return 1
- fi
-}
-#f4# Search Debian Bug Tracking System in mbox format
-debbugm() {
- emulate -L zsh
- bts show --mbox $1
-}
-#f4# Search DMOZ
-dmoz() {
- emulate -L zsh
- ${=BROWSER} http://search.dmoz.org/cgi-bin/search\?search=${1// /_}
-}
-#f4# Search German Wiktionary
-dwicti() {
- emulate -L zsh
- ${=BROWSER} http://de.wiktionary.org/wiki/${(C)1// /_}
-}
-#f4# Search English Wiktionary
-ewicti() {
- emulate -L zsh
- ${=BROWSER} http://en.wiktionary.org/wiki/${(C)1// /_}
-}
-#f4# Search Google Groups
-ggogle() {
- emulate -L zsh
- ${=BROWSER} "http://groups.google.com/groups?q=$*"
-}
-#f4# Search Google
-google() {
- emulate -L zsh
- ${=BROWSER} "http://www.google.com/search?&num=100&q=$*"
-}
-#f4# Search Google Groups for MsgID
-mggogle() {
- emulate -L zsh
- ${=BROWSER} "http://groups.google.com/groups?selm=$*"
-}
-#f4# Search Netcraft
-netcraft(){
- emulate -L zsh
- ${=BROWSER} "http://toolbar.netcraft.com/site_report?url=$1"
-}
-#f4# Use German Wikipedia's full text search
-swiki() {
- emulate -L zsh
- ${=BROWSER} http://de.wikipedia.org/wiki/Spezial:Search/${(C)1}
-}
-#f4# search \kbd{dict.leo.org}
-oleo() {
- emulate -L zsh
- ${=BROWSER} "http://dict.leo.org/?search=$*"
-}
-#f4# Search German Wikipedia
-wikide() {
- emulate -L zsh
- ${=BROWSER} http://de.wikipedia.org/wiki/"${(C)*}"
-}
-#f4# Search English Wikipedia
-wikien() {
- emulate -L zsh
- ${=BROWSER} http://en.wikipedia.org/wiki/"${(C)*}"
-}
-#f4# Search official debs
-wodeb() {
- emulate -L zsh
- ${=BROWSER} "http://packages.debian.org/search?keywords=$1&searchon=contents&suite=${2:=unstable}§ion=all"
-}
-
-#m# f4 gex() Exact search via Google
-check_com google && gex () {
- google "\"[ $1]\" $*"
-}
-
-# misc
#f5# Backup \kbd{file {\rm to} file\_timestamp}
bk() {
emulate -L zsh
cp -b $1 $1_`date --iso-8601=m`
}
-#f5# Copied diff
-cdiff() {
- emulate -L zsh
- diff -crd "$@" | egrep -v "^Only in |^Binary files "
-}
+
#f5# cd to directoy and list files
cl() {
emulate -L zsh
cd $1 && ls -a
}
-#f5# Cvs add
-cvsa() {
- emulate -L zsh
- cvs add $* && cvs com -m 'initial checkin' $*
-}
-#f5# Cvs diff
-cvsd() {
- emulate -L zsh
- cvs diff -N $* |& $PAGER
-}
-#f5# Cvs log
-cvsl() {
- emulate -L zsh
- cvs log $* |& $PAGER
-}
-#f5# Cvs update
-cvsq() {
- emulate -L zsh
- cvs -nq update
-}
-#f5# Rcs2log
-cvsr() {
- emulate -L zsh
- rcs2log $* | $PAGER
-}
-#f5# Cvs status
-cvss() {
- emulate -L zsh
- cvs status -v $*
-}
-#f5# Disassemble source files using gcc and as
-disassemble(){
- emulate -L zsh
- gcc -pipe -S -o - -O -g $* | as -aldh -o /dev/null
-}
-#f5# Firefox remote control - open given URL
-fir() {
- if [ -e /etc/debian_version ]; then
- firefox -a iceweasel -remote "openURL($1)" || firefox ${1}&
- else
- firefox -a firefox -remote "openURL($1)" || firefox ${1}&
- fi
-}
+
# smart cd function, allows switching to /etc when running 'cd /etc/fstab'
cd() {
if (( ${#argv} == 1 )) && [[ -f ${1} ]]; then
}
#f5# Create Directoy and \kbd{cd} to it
-mcd() {
+mkcd() {
mkdir -p "$@" && cd "$@"
}
+
#f5# Create temporary directory and \kbd{cd} to it
cdt() {
local t
echo "$t"
builtin cd "$t"
}
-#f5# Unified diff to timestamped outputfile
-mdiff() {
- diff -udrP "$1" "$2" > diff.`date "+%Y-%m-%d"`."$1"
-}
#f5# Create directory under cursor or the selected area
# Press ctrl-xM to create the directory under the cursor or the selected area.
#k# mkdir -p <dir> from string under cursor or marked area
zle -N inplaceMkDirs && bindkey '^XM' inplaceMkDirs
-#f5# Memory overview
-memusage() {
- ps aux | awk '{if (NR > 1) print $5; if (NR > 2) print "+"} END { print "p" }' | dc
-}
-#f5# Show contents of gzipped tar file
-shtar() {
- emulate -L zsh
- gunzip -c $1 | tar -tf - -- | $PAGER
-}
-#f5# Show contents of zip file
-shzip() {
- emulate -L zsh
- unzip -l $1 | $PAGER
-}
-#f5# Unified diff
-udiff() {
- emulate -L zsh
- diff -urd $* | egrep -v "^Only in |^Binary files "
-}
-#f5# (Mis)use \kbd{vim} as \kbd{less}
-viless() {
- emulate -L zsh
- vim --cmd 'let no_plugin_maps = 1' -c "so \$VIMRUNTIME/macros/less.vim" "${@:--}"
-}
-
-# Function Usage: uopen $URL/$file
-#f5# Download a file and display it locally
-uopen() {
- emulate -L zsh
- if ! [[ -n "$1" ]] ; then
- print "Usage: uopen \$URL/\$file">&2
- return 1
- else
- FILE=$1
- MIME=$(curl --head $FILE | grep Content-Type | cut -d ' ' -f 2 | cut -d\; -f 1)
- MIME=${MIME%$'\r'}
- curl $FILE | see ${MIME}:-
- fi
-}
-
-# Function Usage: doc packagename
-#f5# \kbd{cd} to /usr/share/doc/\textit{package}
-doc() {
- emulate -L zsh
- cd /usr/share/doc/$1 && ls
-}
-_doc() { _files -W /usr/share/doc -/ }
-check_com compdef && compdef _doc doc
-
-#f5# Make screenshot
-sshot() {
- [[ ! -d ~/shots ]] && mkdir ~/shots
- #cd ~/shots ; sleep 5 ; import -window root -depth 8 -quality 80 `date "+%Y-%m-%d--%H:%M:%S"`.png
- cd ~/shots ; sleep 5; import -window root shot_`date --iso-8601=m`.jpg
-}
-
-# list images only
-limg() {
- local -a images
- images=( *.{jpg,gif,png}(.N) )
-
- if [[ $#images -eq 0 ]] ; then
- print "No image files found"
- else
- ls "$images[@]"
- fi
-}
-
-#f5# Create PDF file from source code
-makereadable() {
- emulate -L zsh
- output=$1
- shift
- a2ps --medium A4dj -E -o $output $*
- ps2pdf $output
-}
-
-# zsh with perl-regex - use it e.g. via:
-# regcheck '\s\d\.\d{3}\.\d{3} Euro' ' 1.000.000 Euro'
-#f5# Checks whether a regex matches or not.\\&\quad Example: \kbd{regcheck '.\{3\} EUR' '500 EUR'}
-regcheck() {
- emulate -L zsh
- zmodload -i zsh/pcre
- pcre_compile $1 && \
- pcre_match $2 && echo "regex matches" || echo "regex does not match"
-}
-
#f5# List files which have been accessed within the last {\it n} days, {\it n} defaults to 1
accessed() {
emulate -L zsh
# modified() was named new() in earlier versions, add an alias for backwards compatibility
check_com new || alias new=modified
-#f5# Grep in history
-greph() {
- emulate -L zsh
- history 0 | grep $1
-}
# use colors when GNU grep with color-support
#a2# Execute \kbd{grep -{}-color=auto}
(grep --help 2>/dev/null |grep -- --color) >/dev/null && alias grep='grep --color=auto'
-#a2# Execute \kbd{grep -i -{}-color=auto}
-alias GREP='grep -i --color=auto'
-
-#f5# Watch manpages in a stretched style
-man2() { PAGER='dash -c "sed G | /usr/bin/less"' command man "$@" ; }
-
-# usage example: 'lcheck strcpy'
-#f5# Find out which libs define a symbol
-lcheck() {
- if [[ -n "$1" ]] ; then
- nm -go /usr/lib/lib*.a 2>/dev/null | grep ":[[:xdigit:]]\{8\} . .*$1"
- else
- echo "Usage: lcheck <function>" >&2
- fi
-}
-
-#f5# Clean up directory - remove well known tempfiles
-purge() {
- emulate -L zsh
- setopt HIST_SUBST_PATTERN
- local -a TEXTEMPFILES GHCTEMPFILES PYTEMPFILES FILES
- TEXTEMPFILES=(*.tex(N:s/%tex/'(log|toc|aux|nav|snm|out|tex.backup|bbl|blg|bib.backup|vrb|lof|lot|hd|idx)(N)'/))
- GHCTEMPFILES=(*.(hs|lhs)(N:r:s/%/'.(hi|hc|(p|u|s)_(o|hi))(N)'/))
- PYTEMPFILES=(*.py(N:s/%py/'(pyc|pyo)(N)'/))
- LONELY_MOOD_FILES=((*.mood)(.NDe:'local -a AF;AF=( ${${REPLY#.}%mood}(mp3|flac|ogg|asf|wmv|aac)(N) ); [[ -z "$AF" ]]':))
- ZSH_COMPILED=(*.zwc(.NDe:'[[ -f ${REPLY%.zwc} && ${REPLY%.zwc} -nt ${REPLY} ]]':))
- 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} )
- local NBFILES=${#FILES}
- local CURDIRSUDO=""
- [[ ! -w ./ ]] && CURDIRSUDO=$SUDO
- if [[ $NBFILES > 0 ]] ; then
- print -l $FILES
- local ans
- echo -n "Remove these files? [y/n] "
- read -q ans; echo
- if [[ $ans == "y" ]] ; then
- $CURDIRSUDO rm ${FILES}
- echo ">> $PWD purged, $NBFILES files removed"
- else
- echo "Ok. .. then not.."
- fi
- fi
-}
-
-#f5# show labels and uuids of disk devices
-if is439 && [[ -d /dev/disk/by-id/ ]]; then
- lsdisk() {
- emulate -L zsh
- setopt extendedglob
- local -a -U disks
- local -A mountinfo
- disks=( /dev/disk/by-id/*(@:A) )
- [[ -r /proc/mounts ]] && for cline ( "${(f)$(</proc/mounts)[@]}" ) mountinfo["${cline[(w)1]:A}"]="${cline[(w)2,-1]}"
- for dev in "$disks[@]"; do
- 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)
- [[ -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]}"
- for sysdevsize ( /sys/block/${dev:t}/size(N) /sys/block/${${dev:t}%%<->}/${dev:t}/size(N) ) \
- print -f " Size: %.3f GiB (%d Byte)\n" $(($(<$sysdevsize)/(2.0*1024.0*1024.0))) $(($(<$sysdevsize)*512))
-
- print -f " Id: %s\n" /dev/disk/by-id/*(@e/'[[ ${REPLY:A} == $dev ]]'/N:t)
- done
- }
-fi
-
-#f5# run command or function in a list of directories
-rundirs() {
- local d CMD STARTDIR=$PWD
- CMD=$1; shift
- ( for d ($@) {cd -q $d && { print cd $d; ${(z)CMD} ; cd -q $STARTDIR }} )
-}
# Translate DE<=>EN
# 'translate' looks up fot a word in a file with language-to-language
esac
}
-#f5# List all occurrences of programm in current PATH
-plap() {
- emulate -L zsh
- if [[ $# = 0 ]] ; then
- echo "Usage: $0 program"
- echo "Example: $0 zsh"
- echo "Lists all occurrences of program in the current PATH."
- else
- ls -l ${^path}/*$1*(*N)
- fi
-}
-
-# Found in the mailinglistarchive from Zsh (IIRC ~1996)
-#f5# Select items for specific command(s) from history
-selhist() {
- emulate -L zsh
- local TAB=$'\t';
- (( $# < 1 )) && {
- echo "Usage: $0 command"
- return 1
- };
- cmd=(${(f)"$(grep -w $1 $HISTFILE | sort | uniq | pr -tn)"})
- print -l $cmd | less -F
- echo -n "enter number of desired command [1 - $(( ${#cmd[@]} - 1 ))]: "
- local answer
- read answer
- print -z "${cmd[$answer]#*$TAB}"
-}
-
-# Use vim to convert plaintext to HTML
-#f5# Transform files to html with highlighting
-2html() {
- emulate -L zsh
- vim -u NONE -n -c ':syntax on' -c ':so $VIMRUNTIME/syntax/2html.vim' -c ':wqa' $1 &>/dev/null
-}
-
# Usage: simple-extract <file>
# Using option -d deletes the original archive file.
#f5# Smart archive extractor
compdef _simple_extract simple-extract
alias se=simple-extract
-# Usage: smartcompress <file> (<type>)
-#f5# Smart archive creator
-smartcompress() {
- emulate -L zsh
- if [[ -n $2 ]] ; then
- case $2 in
- tgz | tar.gz) tar -zcvf$1.$2 $1 ;;
- tbz2 | tar.bz2) tar -jcvf$1.$2 $1 ;;
- tar.Z) tar -Zcvf$1.$2 $1 ;;
- tar) tar -cvf$1.$2 $1 ;;
- gz | gzip) gzip $1 ;;
- bz2 | bzip2) bzip2 $1 ;;
- *)
- echo "Error: $2 is not a valid compression type"
- ;;
- esac
- else
- smartcompress $1 tar.gz
- fi
-}
-
-# Usage: show-archive <archive>
-#f5# List an archive's content
-show-archive() {
- emulate -L zsh
- if [[ -f $1 ]] ; then
- case $1 in
- *.tar.gz) gunzip -c $1 | tar -tf - -- ;;
- *.tar) tar -tf $1 ;;
- *.tgz) tar -ztf $1 ;;
- *.zip) unzip -l $1 ;;
- *.bz2) bzless $1 ;;
- *.deb) dpkg-deb --fsys-tarfile $1 | tar -tf - -- ;;
- *) echo "'$1' Error. Please go away" ;;
- esac
- else
- echo "'$1' is not a valid archive"
- fi
-}
-
-# It's shameless stolen from <http://www.vim.org/tips/tip.php?tip_id=167>
-#f5# Use \kbd{vim} as your manpage reader
-vman() {
- emulate -L zsh
- if (( ${#argv} == 0 )); then
- printf 'usage: vman <topic>\n'
- return 1
- fi
- man "$@" | col -b | view -c 'set ft=man nomod nolist' -
-}
-
-# function readme() { $PAGER -- (#ia3)readme* }
-#f5# View all README-like files in current directory in pager
-readme() {
- emulate -L zsh
- setopt extendedglob
- local files
- files=(./(#i)*(read*me|lue*m(in|)ut|lies*mich)*(NDr^/=p%))
- if (($#files)) ; then
- $PAGER $files
- else
- print 'No README files.'
- fi
-}
-
-# function ansi-colors()
-#f5# Display ANSI colors
-ansi-colors() {
- typeset esc="\033[" line1 line2
- echo " _ _ _40 _ _ _41_ _ _ _42 _ _ 43_ _ _ 44_ _ _45 _ _ _ 46_ _ _ 47_ _ _ 49_ _"
- for fore in 30 31 32 33 34 35 36 37; do
- line1="$fore "
- line2=" "
- for back in 40 41 42 43 44 45 46 47 49; do
- line1="${line1}${esc}${back};${fore}m Normal ${esc}0m"
- line2="${line2}${esc}${back};${fore};1m Bold ${esc}0m"
- done
- echo -e "$line1\n$line2"
- done
-}
-
-#f5# Find all files in \$PATH with setuid bit set
-suidfind() { ls -latg $path | grep '^...s' }
-
-# TODO: So, this is the third incarnation of this function!?
-#f5# Reload given functions
-refunc() {
- for func in $argv ; do
- unfunction $func
- autoload $func
- done
-}
-compdef _functions refunc
-
-# a small check to see which DIR is located on which server/partition.
-# stolen and modified from Sven's zshrc.forall
-#f5# Report diskusage of a directory
-dirspace() {
- emulate -L zsh
- if [[ -n "$1" ]] ; then
- for dir in "$@" ; do
- if [[ -d "$dir" ]] ; then
- ( cd $dir; echo "-<$dir>"; du -shx .; echo);
- else
- echo "warning: $dir does not exist" >&2
- fi
- done
- else
- for dir in $path; do
- if [[ -d "$dir" ]] ; then
- ( cd $dir; echo "-<$dir>"; du -shx .; echo);
- else
- echo "warning: $dir does not exist" >&2
- fi
- done
- fi
-}
-
-# % slow_print `cat /etc/passwd`
-#f5# Slowly print out parameters
-slow_print() {
- for argument in "$@" ; do
- for ((i = 1; i <= ${#1} ;i++)) ; do
- print -n "${argument[i]}"
- sleep 0.08
- done
- print -n " "
- done
- print ""
-}
-
-#f5# Show some status info
-status() {
- print
- print "Date..: "$(date "+%Y-%m-%d %H:%M:%S")
- print "Shell.: Zsh $ZSH_VERSION (PID = $$, $SHLVL nests)"
- print "Term..: $TTY ($TERM), ${BAUD:+$BAUD bauds, }$COLUMNS x $LINES chars"
- print "Login.: $LOGNAME (UID = $EUID) on $HOST"
- print "System: $(cat /etc/[A-Za-z]*[_-][rv]e[lr]*)"
- print "Uptime:$(uptime)"
- print
-}
-
-# Rip an audio CD
-#f5# Rip an audio CD
-audiorip() {
- mkdir -p ~/ripps
- cd ~/ripps
- cdrdao read-cd --device $DEVICE --driver generic-mmc audiocd.toc
- cdrdao read-cddb --device $DEVICE --driver generic-mmc audiocd.toc
- echo " * Would you like to burn the cd now? (yes/no)"
- read input
- if [[ "$input" = "yes" ]] ; then
- echo " ! Burning Audio CD"
- audioburn
- echo " * done."
- else
- echo " ! Invalid response."
- fi
-}
-
-# and burn it
-#f5# Burn an audio CD (in combination with audiorip)
-audioburn() {
- cd ~/ripps
- cdrdao write --device $DEVICE --driver generic-mmc audiocd.toc
- echo " * Should I remove the temporary files? (yes/no)"
- read input
- if [[ "$input" = "yes" ]] ; then
- echo " ! Removing Temporary Files."
- cd ~
- rm -rf ~/ripps
- echo " * done."
- else
- echo " ! Invalid response."
- fi
-}
-
-#f5# Make an audio CD from all mp3 files
-mkaudiocd() {
- # TODO: do the renaming more zshish, possibly with zmv()
- emulate -L zsh
- cd ~/ripps
- for i in *.[Mm][Pp]3; do mv "$i" `echo $i | tr '[A-Z]' '[a-z]'`; done
- for i in *.mp3; do mv "$i" `echo $i | tr ' ' '_'`; done
- for i in *.mp3; do mpg123 -w `basename $i .mp3`.wav $i; done
- normalize -m *.wav
- for i in *.wav; do sox $i.wav -r 44100 $i.wav resample; done
-}
-
-#f5# Create an ISO image. You are prompted for\\&\quad volume name, filename and directory
-mkiso() {
- emulate -L zsh
- echo " * Volume name "
- read volume
- echo " * ISO Name (ie. tmp.iso)"
- read iso
- echo " * Directory or File"
- read files
- mkisofs -o ~/$iso -A $volume -allow-multidot -J -R -iso-level 3 -V $volume -R $files
-}
-
-#f5# Simple thumbnails generator
-genthumbs() {
- rm -rf thumb-* index.html
- echo "
-<html>
- <head>
- <title>Images</title>
- </head>
- <body>" > index.html
- for f in *.(gif|jpeg|jpg|png) ; do
- convert -size 100x200 "$f" -resize 100x200 thumb-"$f"
- echo " <a href=\"$f\"><img src=\"thumb-$f\"></a>" >> index.html
- done
- echo "
- </body>
-</html>" >> index.html
-}
-
#f5# Set all ulimit parameters to \kbd{unlimited}
allulimit() {
ulimit -c unlimited
ulimit -t unlimited
}
-#f5# RFC 2396 URL encoding in Z-Shell
-urlencode() {
- emulate -L zsh
- setopt extendedglob
- input=( ${(s::)1} )
- print ${(j::)input/(#b)([^A-Za-z0-9_.!~*\'\(\)-])/%${(l:2::0:)$(([##16]#match))}}
-}
-
-# http://strcat.de/blog/index.php?/archives/335-Software-sauber-deinstallieren...html
-#f5# Log 'make install' output
-mmake() {
- emulate -L zsh
- [[ ! -d ~/.errorlogs ]] && mkdir ~/.errorlogs
- make -n install > ~/.errorlogs/${PWD##*/}-makelog
-}
-
-#f5# Indent source code
-smart-indent() {
- indent -npro -kr -i8 -ts8 -sob -l80 -ss -ncs "$@"
-}
-
-# highlight important stuff in diff output, usage example: hg diff | hidiff
-#m# a2 hidiff \kbd{histring} oneliner for diffs
-check_com -c histring && \
- alias hidiff="histring -fE '^Comparing files .*|^diff .*' | histring -c yellow -fE '^\-.*' | histring -c green -fE '^\+.*'"
-
-# rename pictures based on information found in exif headers
-#f5# Rename pictures based on information found in exif headers
-exirename() {
- emulate -L zsh
- if [[ $# -lt 1 ]] ; then
- echo 'Usage: jpgrename $FILES' >& 2
- return 1
- else
- echo -n 'Checking for jhead with version newer than 1.9: '
- jhead_version=`jhead -h | grep 'used by most Digital Cameras. v.*' | awk '{print $6}' | tr -d v`
- if [[ $jhead_version > '1.9' ]]; then
- echo 'success - now running jhead.'
- jhead -n%Y-%m-%d_%Hh%M_%f $*
- else
- echo 'failed - exiting.'
- fi
- fi
-}
-
-# get_ic() - queries imap servers for capabilities; real simple. no imaps
-ic_get() {
- emulate -L zsh
- local port
- if [[ ! -z $1 ]] ; then
- port=${2:-143}
- print "querying imap server on $1:${port}...\n";
- print "a1 capability\na2 logout\n" | nc $1 ${port}
- else
- print "usage:\n $0 <imap-server> [port]"
- fi
-}
-
-# creates a Maildir/ with its {new,cur,tmp} subdirs
-mkmaildir() {
- emulate -L zsh
- local root subdir
- root=${MAILDIR_ROOT:-${HOME}/Mail}
- if [[ -z ${1} ]] ; then print "Usage:\n $0 <dirname>" ; return 1 ; fi
- subdir=${1}
- mkdir -p ${root}/${subdir}/{cur,new,tmp}
-}
-
#f5# Change the xterm title from within GNU-screen
xtrename() {
emulate -L zsh
return 0
}
-# hl() highlighted less
-# http://ft.bewatermyfriend.org/comp/data/zsh/zfunct.html
-if check_com -c highlight ; then
- function hl() {
- emulate -L zsh
- local theme lang
- theme=${HL_THEME:-""}
- case ${1} in
- (-l|--list)
- ( printf 'available languages (syntax parameter):\n\n' ;
- highlight --list-langs ; ) | less -SMr
- ;;
- (-t|--themes)
- ( printf 'available themes (style parameter):\n\n' ;
- highlight --list-themes ; ) | less -SMr
- ;;
- (-h|--help)
- printf 'usage: hl <syntax[:theme]> <file>\n'
- printf ' available options: --list (-l), --themes (-t), --help (-h)\n\n'
- printf ' Example: hl c main.c\n'
- ;;
- (*)
- if [[ -z ${2} ]] || (( ${#argv} > 2 )) ; then
- printf 'usage: hl <syntax[:theme]> <file>\n'
- printf ' available options: --list (-l), --themes (-t), --help (-h)\n'
- (( ${#argv} > 2 )) && printf ' Too many arguments.\n'
- return 1
- fi
- lang=${1%:*}
- [[ ${1} == *:* ]] && [[ -n ${1#*:} ]] && theme=${1#*:}
- if [[ -n ${theme} ]] ; then
- highlight -O xterm256 --syntax ${lang} --style ${theme} ${2} | less -SMr
- else
- highlight -O ansi --syntax ${lang} ${2} | less -SMr
- fi
- ;;
- esac
- return 0
- }
- # ... and a proper completion for hl()
- # needs 'highlight' as well, so it fits fine in here.
- function _hl_genarg() {
- local expl
- if [[ -prefix 1 *: ]] ; then
- local themes
- themes=(${${${(f)"$(LC_ALL=C highlight --list-themes)"}/ #/}:#*(Installed|Use name)*})
- compset -P 1 '*:'
- _wanted -C list themes expl theme compadd ${themes}
- else
- local langs
- langs=(${${${(f)"$(LC_ALL=C highlight --list-langs)"}/ #/}:#*(Installed|Use name)*})
- _wanted -C list languages expl languages compadd -S ':' -q ${langs}
- fi
- }
- function _hl_complete() {
- _arguments -s '1: :_hl_genarg' '2:files:_path_files'
- }
- compdef _hl_complete hl
-fi
-
# TODO:
# Rewrite this by either using tinyurl.com's API
# or using another shortening service to comply with
# fi
#}
-#f2# Print a specific line of file(s).
-linenr () {
- emulate -L zsh
- if [ $# -lt 2 ] ; then
- print "Usage: linenr <number>[,<number>] <file>" ; return 1
- elif [ $# -eq 2 ] ; then
- local number=$1
- local file=$2
- command ed -s $file <<< "${number}n"
- else
- local number=$1
- shift
- for file in "$@" ; do
- if [ ! -d $file ] ; then
- echo "${file}:"
- command ed -s $file <<< "${number}n" 2> /dev/null
- else
- continue
- fi
- done | less
- fi
-}
-
#f2# Find history events by search pattern and list them by date.
whatwhen() {
emulate -L zsh
esac
}
-# change fluxbox keys from 'Alt-#' to 'Alt-F#' and vice versa
-fluxkey-change() {
- emulate -L zsh
- [[ -n "$FLUXKEYS" ]] || local FLUXKEYS="$HOME/.fluxbox/keys"
- if ! [[ -r "$FLUXKEYS" ]] ; then
- echo "Sorry, \$FLUXKEYS file $FLUXKEYS could not be read - nothing to be done."
- return 1
- else
- if grep -q 'Mod1 F[0-9] :Workspace [0-9]' $FLUXKEYS ; then
- echo -n 'Switching to Alt-# mode in ~/.fluxbox/keys: '
- sed -i -e 's|^\(Mod[0-9]\+[: space :]\+\)F\([0-9]\+[: space :]\+:Workspace.*\)|\1\2|' $FLUXKEYS && echo done || echo failed
- elif grep -q 'Mod1 [0-9] :Workspace [0-9]' $FLUXKEYS ; then
- echo -n 'Switching to Alt-F# mode in ~/.fluxbox/keys: '
- sed -i -e 's|^\(Mod[0-9]\+[: space :]\+\)\([0-9]\+[: space :]\+:Workspace.*\)|\1F\2|' $FLUXKEYS && echo done || echo failed
- else
- echo 'Sorry, do not know what to do.'
- return 1
- fi
- fi
-}
-
# mercurial related stuff
if check_com -c hg ; then
# gnu like diff for mercurial
fi # end of check whether we have the 'hg'-executable
-# some useful commands often hard to remember - let's grep for them
-# actually use our zg() function now. :)
-
-# Work around ion/xterm resize bug.
-#if [[ "$SHLVL" -eq 1 ]]; then
-# if check_com -c resize ; then
-# eval `resize </dev/null`
-# fi
-#fi
-
-# enable jackd:
-# /usr/bin/jackd -dalsa -dhw:0 -r48000 -p1024 -n2
-# now play audio file:
-# alsaplayer -o jack foobar.mp3
-
-# send files via netcat
-# on sending side:
-# send() {j=$*; tar cpz ${j/%${!#}/}|nc -w 1 ${!#} 51330;}
-# send dir* $HOST
-# alias receive='nc -vlp 51330 | tar xzvp'
-
-# debian stuff:
-# dh_make -e foo@localhost -f $1
-# dpkg-buildpackage -rfakeroot
-# lintian *.deb
-# dpkg-scanpackages ./ /dev/null | gzip > Packages.gz
-# dpkg-scansources . | gzip > Sources.gz
-# grep-dctrl --field Maintainer $* /var/lib/apt/lists/*
-
-# other stuff:
-# convert -geometry 200x200 -interlace LINE -verbose
-# ldapsearch -x -b "OU=Bedienstete,O=tug" -h ldap.tugraz.at sn=$1
-# ps -ao user,pcpu,start,command
-# gpg --keyserver blackhole.pca.dfn.de --recv-keys
-# xterm -bg black -fg yellow -fn -misc-fixed-medium-r-normal--14-140-75-75-c-90-iso8859-15 -ah
-# nc -vz $1 1-1024 # portscan via netcat
-# wget --mirror --no-parent --convert-links
-# pal -d `date +%d`
-# autoload -U tetris; zle -N tetris; bindkey '...' ; echo "press ... for playing tennis"
-#
-# modify console cursor
-# see http://www.tldp.org/HOWTO/Framebuffer-HOWTO-5.html
-# print $'\e[?96;0;64c'
-
# grml-small cleanups
# The following is used to remove zsh-config-items that do not work
projects / grml-etc-core.git / blobdiff