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
###
# 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
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() {
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# List files which have been accessed within the last {\it n} days, {\it n} defaults to 1
accessed() {
emulate -L zsh
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