3757 lines
122 KiB
Bash
3757 lines
122 KiB
Bash
# Filename: /etc/zsh/zshrc
|
||
# Purpose: config file for zsh (z shell)
|
||
# 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.
|
||
################################################################################
|
||
# This file is sourced only for interactive shells. It
|
||
# should contain commands to set up aliases, functions,
|
||
# options, key bindings, etc.
|
||
#
|
||
# Global Order: zshenv, zprofile, zshrc, zlogin
|
||
################################################################################
|
||
|
||
# USAGE
|
||
# If you are using this file as your ~/.zshrc file, please use ~/.zshrc.pre
|
||
# and ~/.zshrc.local for your own customisations. The former file is read
|
||
# before ~/.zshrc, the latter is read after it. Also, consider reading the
|
||
# refcard and the reference manual for this setup, both available from:
|
||
# <http://grml.org/zsh/>
|
||
|
||
# Contributing:
|
||
# If you want to help to improve grml's zsh setup, clone the grml-etc-core
|
||
# repository from git.grml.org:
|
||
# git clone git://git.grml.org/grml-etc-core.git
|
||
#
|
||
# Make your changes, commit them; use 'git format-patch' to create a series
|
||
# of patches and send those to the following address via 'git send-email':
|
||
# grml-etc-core@grml.org
|
||
#
|
||
# Doing so makes sure the right people get your patches for review and
|
||
# possibly inclusion.
|
||
|
||
# zsh-refcard-tag documentation:
|
||
# You may notice strange looking comments in this file.
|
||
# These are there for a purpose. grml's zsh-refcard can now be
|
||
# automatically generated from the contents of the actual configuration
|
||
# file. However, we need a little extra information on which comments
|
||
# and what lines of code to take into account (and for what purpose).
|
||
#
|
||
# Here is what they mean:
|
||
#
|
||
# List of tags (comment types) used:
|
||
# #a# Next line contains an important alias, that should
|
||
# be included in the grml-zsh-refcard.
|
||
# (placement tag: @@INSERT-aliases@@)
|
||
# #f# Next line contains the beginning of an important function.
|
||
# (placement tag: @@INSERT-functions@@)
|
||
# #v# Next line contains an important variable.
|
||
# (placement tag: @@INSERT-variables@@)
|
||
# #k# Next line contains an important keybinding.
|
||
# (placement tag: @@INSERT-keybindings@@)
|
||
# #d# Hashed directories list generation:
|
||
# start denotes the start of a list of 'hash -d'
|
||
# definitions.
|
||
# end denotes its end.
|
||
# (placement tag: @@INSERT-hasheddirs@@)
|
||
# #A# Abbreviation expansion list generation:
|
||
# start denotes the beginning of abbreviations.
|
||
# end denotes their end.
|
||
# Lines within this section that end in '#d .*' provide
|
||
# extra documentation to be included in the refcard.
|
||
# (placement tag: @@INSERT-abbrev@@)
|
||
# #m# This tag allows you to manually generate refcard entries
|
||
# for code lines that are hard/impossible to parse.
|
||
# Example:
|
||
# #m# k ESC-h Call the run-help function
|
||
# That would add a refcard entry in the keybindings table
|
||
# for 'ESC-h' with the given comment.
|
||
# So the syntax is: #m# <section> <argument> <comment>
|
||
# #o# This tag lets you insert entries to the 'other' hash.
|
||
# Generally, this should not be used. It is there for
|
||
# things that cannot be done easily in another way.
|
||
# (placement tag: @@INSERT-other-foobar@@)
|
||
#
|
||
# All of these tags (except for m and o) take two arguments, the first
|
||
# within the tag, the other after the tag:
|
||
#
|
||
# #<tag><section># <comment>
|
||
#
|
||
# Where <section> is really just a number, which are defined by the
|
||
# @secmap array on top of 'genrefcard.pl'. The reason for numbers
|
||
# instead of names is, that for the reader, the tag should not differ
|
||
# much from a regular comment. For zsh, it is a regular comment indeed.
|
||
# The numbers have got the following meanings:
|
||
# 0 -> "default"
|
||
# 1 -> "system"
|
||
# 2 -> "user"
|
||
# 3 -> "debian"
|
||
# 4 -> "search"
|
||
# 5 -> "shortcuts"
|
||
# 6 -> "services"
|
||
#
|
||
# So, the following will add an entry to the 'functions' table in the
|
||
# 'system' section, with a (hopefully) descriptive comment:
|
||
# #f1# Edit an alias via zle
|
||
# edalias() {
|
||
#
|
||
# It will then show up in the @@INSERT-aliases-system@@ replacement tag
|
||
# that can be found in 'grml-zsh-refcard.tex.in'.
|
||
# If the section number is omitted, the 'default' section is assumed.
|
||
# Furthermore, in 'grml-zsh-refcard.tex.in' @@INSERT-aliases@@ is
|
||
# exactly the same as @@INSERT-aliases-default@@. If you want a list of
|
||
# *all* aliases, for example, use @@INSERT-aliases-all@@.
|
||
|
||
# zsh profiling
|
||
# just execute 'ZSH_PROFILE_RC=1 zsh' and run 'zprof' to get the details
|
||
if [[ $ZSH_PROFILE_RC -gt 0 ]] ; then
|
||
zmodload zsh/zprof
|
||
fi
|
||
|
||
# load .zshrc.pre to give the user the chance to overwrite the defaults
|
||
[[ -r ${ZDOTDIR:-${HOME}}/.zshrc.pre ]] && source ${ZDOTDIR:-${HOME}}/.zshrc.pre
|
||
|
||
# check for version/system
|
||
# check for versions (compatibility reasons)
|
||
function is4 () {
|
||
[[ $ZSH_VERSION == <4->* ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
function is41 () {
|
||
[[ $ZSH_VERSION == 4.<1->* || $ZSH_VERSION == <5->* ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
function is42 () {
|
||
[[ $ZSH_VERSION == 4.<2->* || $ZSH_VERSION == <5->* ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
function is425 () {
|
||
[[ $ZSH_VERSION == 4.2.<5->* || $ZSH_VERSION == 4.<3->* || $ZSH_VERSION == <5->* ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
function is43 () {
|
||
[[ $ZSH_VERSION == 4.<3->* || $ZSH_VERSION == <5->* ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
function is433 () {
|
||
[[ $ZSH_VERSION == 4.3.<3->* || $ZSH_VERSION == 4.<4->* \
|
||
|| $ZSH_VERSION == <5->* ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
function is437 () {
|
||
[[ $ZSH_VERSION == 4.3.<7->* || $ZSH_VERSION == 4.<4->* \
|
||
|| $ZSH_VERSION == <5->* ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
function is439 () {
|
||
[[ $ZSH_VERSION == 4.3.<9->* || $ZSH_VERSION == 4.<4->* \
|
||
|| $ZSH_VERSION == <5->* ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
#f1# Checks whether or not you're running grml
|
||
function isgrml () {
|
||
[[ -f /etc/grml_version ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
#f1# Checks whether or not you're running a grml cd
|
||
function isgrmlcd () {
|
||
[[ -f /etc/grml_cd ]] && return 0
|
||
return 1
|
||
}
|
||
|
||
if isgrml ; then
|
||
#f1# Checks whether or not you're running grml-small
|
||
function isgrmlsmall () {
|
||
if [[ ${${${(f)"$(</etc/grml_version)"}%% *}##*-} == 'small' ]]; then
|
||
return 0
|
||
fi
|
||
return 1
|
||
}
|
||
else
|
||
function isgrmlsmall () { return 1 }
|
||
fi
|
||
|
||
GRML_OSTYPE=$(uname -s)
|
||
|
||
function islinux () {
|
||
[[ $GRML_OSTYPE == "Linux" ]]
|
||
}
|
||
|
||
function isdarwin () {
|
||
[[ $GRML_OSTYPE == "Darwin" ]]
|
||
}
|
||
|
||
function isfreebsd () {
|
||
[[ $GRML_OSTYPE == "FreeBSD" ]]
|
||
}
|
||
|
||
function isopenbsd () {
|
||
[[ $GRML_OSTYPE == "OpenBSD" ]]
|
||
}
|
||
|
||
function issolaris () {
|
||
[[ $GRML_OSTYPE == "SunOS" ]]
|
||
}
|
||
|
||
#f1# are we running within an utf environment?
|
||
function isutfenv () {
|
||
case "$LANG $CHARSET $LANGUAGE" in
|
||
*utf*) return 0 ;;
|
||
*UTF*) return 0 ;;
|
||
*) return 1 ;;
|
||
esac
|
||
}
|
||
|
||
# check for user, if not running as root set $SUDO to sudo
|
||
(( EUID != 0 )) && SUDO='sudo' || SUDO=''
|
||
|
||
# change directory to home on first invocation of zsh
|
||
# important for rungetty -> autologin
|
||
# Thanks go to Bart Schaefer!
|
||
isgrml && function checkhome () {
|
||
if [[ -z "$ALREADY_DID_CD_HOME" ]] ; then
|
||
export ALREADY_DID_CD_HOME=$HOME
|
||
cd
|
||
fi
|
||
}
|
||
|
||
# check for zsh v3.1.7+
|
||
|
||
if ! [[ ${ZSH_VERSION} == 3.1.<7->* \
|
||
|| ${ZSH_VERSION} == 3.<2->.<->* \
|
||
|| ${ZSH_VERSION} == <4->.<->* ]] ; then
|
||
|
||
printf '-!-\n'
|
||
printf '-!- In this configuration we try to make use of features, that only\n'
|
||
printf '-!- require version 3.1.7 of the shell; That way this setup can be\n'
|
||
printf '-!- used with a wide range of zsh versions, while using fairly\n'
|
||
printf '-!- advanced features in all supported versions.\n'
|
||
printf '-!-\n'
|
||
printf '-!- However, you are running zsh version %s.\n' "$ZSH_VERSION"
|
||
printf '-!-\n'
|
||
printf '-!- While this *may* work, it might as well fail.\n'
|
||
printf '-!- Please consider updating to at least version 3.1.7 of zsh.\n'
|
||
printf '-!-\n'
|
||
printf '-!- DO NOT EXPECT THIS TO WORK FLAWLESSLY!\n'
|
||
printf '-!- If it does today, you'\''ve been lucky.\n'
|
||
printf '-!-\n'
|
||
printf '-!- Ye been warned!\n'
|
||
printf '-!-\n'
|
||
|
||
function zstyle () { : }
|
||
fi
|
||
|
||
# autoload wrapper - use this one instead of autoload directly
|
||
# We need to define this function as early as this, because autoloading
|
||
# 'is-at-least()' needs it.
|
||
function zrcautoload () {
|
||
emulate -L zsh
|
||
setopt extended_glob
|
||
local fdir ffile
|
||
local -i ffound
|
||
|
||
ffile=$1
|
||
(( ffound = 0 ))
|
||
for fdir in ${fpath} ; do
|
||
[[ -e ${fdir}/${ffile} ]] && (( ffound = 1 ))
|
||
done
|
||
|
||
(( ffound == 0 )) && return 1
|
||
if [[ $ZSH_VERSION == 3.1.<6-> || $ZSH_VERSION == <4->* ]] ; then
|
||
autoload -U ${ffile} || return 1
|
||
else
|
||
autoload ${ffile} || return 1
|
||
fi
|
||
return 0
|
||
}
|
||
|
||
# The following is the ‘add-zsh-hook’ function from zsh upstream. It is
|
||
# included here to make the setup work with older versions of zsh (prior to
|
||
# 4.3.7) in which this function had a bug that triggers annoying errors during
|
||
# shell startup. This is exactly upstreams code from f0068edb4888a4d8fe94def,
|
||
# with just a few adjustments in coding style to make the function look more
|
||
# compact. This definition can be removed as soon as we raise the minimum
|
||
# version requirement to 4.3.7 or newer.
|
||
function add-zsh-hook () {
|
||
# Add to HOOK the given FUNCTION.
|
||
# HOOK is one of chpwd, precmd, preexec, periodic, zshaddhistory,
|
||
# zshexit, zsh_directory_name (the _functions subscript is not required).
|
||
#
|
||
# With -d, remove the function from the hook instead; delete the hook
|
||
# variable if it is empty.
|
||
#
|
||
# -D behaves like -d, but pattern characters are active in the function
|
||
# name, so any matching function will be deleted from the hook.
|
||
#
|
||
# Without -d, the FUNCTION is marked for autoload; -U is passed down to
|
||
# autoload if that is given, as are -z and -k. (This is harmless if the
|
||
# function is actually defined inline.)
|
||
emulate -L zsh
|
||
local -a hooktypes
|
||
hooktypes=(
|
||
chpwd precmd preexec periodic zshaddhistory zshexit
|
||
zsh_directory_name
|
||
)
|
||
local usage="Usage: $0 hook function\nValid hooks are:\n $hooktypes"
|
||
local opt
|
||
local -a autoopts
|
||
integer del list help
|
||
while getopts "dDhLUzk" opt; do
|
||
case $opt in
|
||
(d) del=1 ;;
|
||
(D) del=2 ;;
|
||
(h) help=1 ;;
|
||
(L) list=1 ;;
|
||
([Uzk]) autoopts+=(-$opt) ;;
|
||
(*) return 1 ;;
|
||
esac
|
||
done
|
||
shift $(( OPTIND - 1 ))
|
||
if (( list )); then
|
||
typeset -mp "(${1:-${(@j:|:)hooktypes}})_functions"
|
||
return $?
|
||
elif (( help || $# != 2 || ${hooktypes[(I)$1]} == 0 )); then
|
||
print -u$(( 2 - help )) $usage
|
||
return $(( 1 - help ))
|
||
fi
|
||
local hook="${1}_functions"
|
||
local fn="$2"
|
||
if (( del )); then
|
||
# delete, if hook is set
|
||
if (( ${(P)+hook} )); then
|
||
if (( del == 2 )); then
|
||
set -A $hook ${(P)hook:#${~fn}}
|
||
else
|
||
set -A $hook ${(P)hook:#$fn}
|
||
fi
|
||
# unset if no remaining entries --- this can give better
|
||
# performance in some cases
|
||
if (( ! ${(P)#hook} )); then
|
||
unset $hook
|
||
fi
|
||
fi
|
||
else
|
||
if (( ${(P)+hook} )); then
|
||
if (( ${${(P)hook}[(I)$fn]} == 0 )); then
|
||
set -A $hook ${(P)hook} $fn
|
||
fi
|
||
else
|
||
set -A $hook $fn
|
||
fi
|
||
autoload $autoopts -- $fn
|
||
fi
|
||
}
|
||
|
||
# Load is-at-least() for more precise version checks Note that this test will
|
||
# *always* fail, if the is-at-least function could not be marked for
|
||
# autoloading.
|
||
zrcautoload is-at-least || function is-at-least () { return 1 }
|
||
|
||
# set some important options (as early as possible)
|
||
|
||
# append history list to the history file; this is the default but we make sure
|
||
# because it's required for share_history.
|
||
setopt append_history
|
||
|
||
# import new commands from the history file also in other zsh-session
|
||
is4 && setopt share_history
|
||
|
||
# save each command's beginning timestamp and the duration to the history file
|
||
setopt extended_history
|
||
|
||
# If a new command line being added to the history list duplicates an older
|
||
# one, the older command is removed from the list
|
||
is4 && setopt histignorealldups
|
||
|
||
# remove command lines from the history list when the first character on the
|
||
# line is a space
|
||
setopt histignorespace
|
||
|
||
# if a command is issued that can't be executed as a normal command, and the
|
||
# command is the name of a directory, perform the cd command to that directory.
|
||
setopt auto_cd
|
||
|
||
# in order to use #, ~ and ^ for filename generation grep word
|
||
# *~(*.gz|*.bz|*.bz2|*.zip|*.Z) -> searches for word not in compressed files
|
||
# don't forget to quote '^', '~' and '#'!
|
||
setopt extended_glob
|
||
|
||
# display PID when suspending processes as well
|
||
setopt longlistjobs
|
||
|
||
# report the status of backgrounds jobs immediately
|
||
setopt notify
|
||
|
||
# whenever a command completion is attempted, make sure the entire command path
|
||
# is hashed first.
|
||
setopt hash_list_all
|
||
|
||
# not just at the end
|
||
setopt completeinword
|
||
|
||
# Don't send SIGHUP to background processes when the shell exits.
|
||
setopt nohup
|
||
|
||
# make cd push the old directory onto the directory stack.
|
||
setopt auto_pushd
|
||
|
||
# avoid "beep"ing
|
||
setopt nobeep
|
||
|
||
# don't push the same dir twice.
|
||
setopt pushd_ignore_dups
|
||
|
||
# * shouldn't match dotfiles. ever.
|
||
setopt noglobdots
|
||
|
||
# use zsh style word splitting
|
||
setopt noshwordsplit
|
||
|
||
# don't error out when unset parameters are used
|
||
setopt unset
|
||
|
||
# setting some default values
|
||
NOCOR=${NOCOR:-0}
|
||
NOMENU=${NOMENU:-0}
|
||
NOPRECMD=${NOPRECMD:-0}
|
||
COMMAND_NOT_FOUND=${COMMAND_NOT_FOUND:-0}
|
||
GRML_ZSH_CNF_HANDLER=${GRML_ZSH_CNF_HANDLER:-/usr/share/command-not-found/command-not-found}
|
||
GRML_DISPLAY_BATTERY=${GRML_DISPLAY_BATTERY:-${BATTERY:-0}}
|
||
GRMLSMALL_SPECIFIC=${GRMLSMALL_SPECIFIC:-1}
|
||
ZSH_NO_DEFAULT_LOCALE=${ZSH_NO_DEFAULT_LOCALE:-0}
|
||
|
||
typeset -ga ls_options
|
||
typeset -ga grep_options
|
||
if ls --color=auto / >/dev/null 2>&1; then
|
||
ls_options+=( --color=auto )
|
||
elif ls -G / >/dev/null 2>&1; then
|
||
ls_options+=( -G )
|
||
fi
|
||
if grep --color=auto -q "a" <<< "a" >/dev/null 2>&1; then
|
||
grep_options+=( --color=auto )
|
||
fi
|
||
|
||
# utility functions
|
||
# this function checks if a command exists and returns either true
|
||
# or false. This avoids using 'which' and 'whence', which will
|
||
# avoid problems with aliases for which on certain weird systems. :-)
|
||
# Usage: check_com [-c|-g] word
|
||
# -c only checks for external commands
|
||
# -g does the usual tests and also checks for global aliases
|
||
function check_com () {
|
||
emulate -L zsh
|
||
local -i comonly gatoo
|
||
comonly=0
|
||
gatoo=0
|
||
|
||
if [[ $1 == '-c' ]] ; then
|
||
comonly=1
|
||
shift 1
|
||
elif [[ $1 == '-g' ]] ; then
|
||
gatoo=1
|
||
shift 1
|
||
fi
|
||
|
||
if (( ${#argv} != 1 )) ; then
|
||
printf 'usage: check_com [-c|-g] <command>\n' >&2
|
||
return 1
|
||
fi
|
||
|
||
if (( comonly > 0 )) ; then
|
||
(( ${+commands[$1]} )) && return 0
|
||
return 1
|
||
fi
|
||
|
||
if (( ${+commands[$1]} )) \
|
||
|| (( ${+functions[$1]} )) \
|
||
|| (( ${+aliases[$1]} )) \
|
||
|| (( ${+reswords[(r)$1]} )) ; then
|
||
return 0
|
||
fi
|
||
|
||
if (( gatoo > 0 )) && (( ${+galiases[$1]} )) ; then
|
||
return 0
|
||
fi
|
||
|
||
return 1
|
||
}
|
||
|
||
# creates an alias and precedes the command with
|
||
# sudo if $EUID is not zero.
|
||
function salias () {
|
||
emulate -L zsh
|
||
local only=0 ; local multi=0
|
||
local key val
|
||
while getopts ":hao" opt; do
|
||
case $opt in
|
||
o) only=1 ;;
|
||
a) multi=1 ;;
|
||
h)
|
||
printf 'usage: salias [-hoa] <alias-expression>\n'
|
||
printf ' -h shows this help text.\n'
|
||
printf ' -a replace '\'' ; '\'' sequences with '\'' ; sudo '\''.\n'
|
||
printf ' be careful using this option.\n'
|
||
printf ' -o only sets an alias if a preceding sudo would be needed.\n'
|
||
return 0
|
||
;;
|
||
*) salias -h >&2; return 1 ;;
|
||
esac
|
||
done
|
||
shift "$((OPTIND-1))"
|
||
|
||
if (( ${#argv} > 1 )) ; then
|
||
printf 'Too many arguments %s\n' "${#argv}"
|
||
return 1
|
||
fi
|
||
|
||
key="${1%%\=*}" ; val="${1#*\=}"
|
||
if (( EUID == 0 )) && (( only == 0 )); then
|
||
alias -- "${key}=${val}"
|
||
elif (( EUID > 0 )) ; then
|
||
(( multi > 0 )) && val="${val// ; / ; sudo }"
|
||
alias -- "${key}=sudo ${val}"
|
||
fi
|
||
|
||
return 0
|
||
}
|
||
|
||
# Check if we can read given files and source those we can.
|
||
function xsource () {
|
||
if (( ${#argv} < 1 )) ; then
|
||
printf 'usage: xsource FILE(s)...\n' >&2
|
||
return 1
|
||
fi
|
||
|
||
while (( ${#argv} > 0 )) ; do
|
||
[[ -r "$1" ]] && source "$1"
|
||
shift
|
||
done
|
||
return 0
|
||
}
|
||
|
||
# Check if we can read a given file and 'cat(1)' it.
|
||
function xcat () {
|
||
emulate -L zsh
|
||
if (( ${#argv} != 1 )) ; then
|
||
printf 'usage: xcat FILE\n' >&2
|
||
return 1
|
||
fi
|
||
|
||
[[ -r $1 ]] && cat $1
|
||
return 0
|
||
}
|
||
|
||
# Remove these functions again, they are of use only in these
|
||
# setup files. This should be called at the end of .zshrc.
|
||
function xunfunction () {
|
||
emulate -L zsh
|
||
local -a funcs
|
||
local func
|
||
funcs=(salias xcat xsource xunfunction zrcautoload zrcautozle)
|
||
for func in $funcs ; do
|
||
[[ -n ${functions[$func]} ]] \
|
||
&& unfunction $func
|
||
done
|
||
return 0
|
||
}
|
||
|
||
# this allows us to stay in sync with grml's zshrc and put own
|
||
# modifications in ~/.zshrc.local
|
||
function zrclocal () {
|
||
xsource "/etc/zsh/zshrc.local"
|
||
xsource "${ZDOTDIR:-${HOME}}/.zshrc.local"
|
||
return 0
|
||
}
|
||
|
||
# locale setup
|
||
if (( ZSH_NO_DEFAULT_LOCALE == 0 )); then
|
||
xsource "/etc/default/locale"
|
||
fi
|
||
|
||
for var in LANG LC_ALL LC_MESSAGES ; do
|
||
[[ -n ${(P)var} ]] && export $var
|
||
done
|
||
builtin unset -v var
|
||
|
||
# set some variables
|
||
if check_com -c vim ; then
|
||
#v#
|
||
export EDITOR=${EDITOR:-vim}
|
||
else
|
||
export EDITOR=${EDITOR:-vi}
|
||
fi
|
||
|
||
#v#
|
||
export PAGER=${PAGER:-less}
|
||
|
||
#v#
|
||
export MAIL=${MAIL:-/var/mail/$USER}
|
||
|
||
# color setup for ls:
|
||
check_com -c dircolors && eval $(dircolors -b)
|
||
# color setup for ls on OS X / FreeBSD:
|
||
isdarwin && export CLICOLOR=1
|
||
isfreebsd && export CLICOLOR=1
|
||
|
||
# do MacPorts setup on darwin
|
||
if isdarwin && [[ -d /opt/local ]]; then
|
||
# Note: PATH gets set in /etc/zprofile on Darwin, so this can't go into
|
||
# zshenv.
|
||
PATH="/opt/local/bin:/opt/local/sbin:$PATH"
|
||
MANPATH="/opt/local/share/man:$MANPATH"
|
||
fi
|
||
# do Fink setup on darwin
|
||
isdarwin && xsource /sw/bin/init.sh
|
||
|
||
# load our function and completion directories
|
||
for fdir in /usr/share/grml/zsh/completion /usr/share/grml/zsh/functions; do
|
||
fpath=( ${fdir} ${fdir}/**/*(/N) ${fpath} )
|
||
done
|
||
typeset -aU ffiles
|
||
ffiles=(/usr/share/grml/zsh/functions/**/[^_]*[^~](N.:t))
|
||
(( ${#ffiles} > 0 )) && autoload -U "${ffiles[@]}"
|
||
unset -v fdir ffiles
|
||
|
||
# support colors in less
|
||
export LESS_TERMCAP_mb=$'\E[01;31m'
|
||
export LESS_TERMCAP_md=$'\E[01;31m'
|
||
export LESS_TERMCAP_me=$'\E[0m'
|
||
export LESS_TERMCAP_se=$'\E[0m'
|
||
export LESS_TERMCAP_so=$'\E[01;44;33m'
|
||
export LESS_TERMCAP_ue=$'\E[0m'
|
||
export LESS_TERMCAP_us=$'\E[01;32m'
|
||
|
||
# mailchecks
|
||
MAILCHECK=30
|
||
|
||
# report about cpu-/system-/user-time of command if running longer than
|
||
# 5 seconds
|
||
REPORTTIME=5
|
||
|
||
# watch for everyone but me and root
|
||
watch=(notme root)
|
||
|
||
# automatically remove duplicates from these arrays
|
||
typeset -U path PATH cdpath CDPATH fpath FPATH manpath MANPATH
|
||
|
||
# Load a few modules
|
||
is4 && \
|
||
for mod in parameter complist deltochar mathfunc ; do
|
||
zmodload -i zsh/${mod} 2>/dev/null || print "Notice: no ${mod} available :("
|
||
done && builtin unset -v mod
|
||
|
||
# autoload zsh modules when they are referenced
|
||
if is4 ; then
|
||
zmodload -a zsh/stat zstat
|
||
zmodload -a zsh/zpty zpty
|
||
zmodload -ap zsh/mapfile mapfile
|
||
fi
|
||
|
||
# completion system
|
||
COMPDUMPFILE=${COMPDUMPFILE:-${ZDOTDIR:-${HOME}}/.zcompdump}
|
||
if zrcautoload compinit ; then
|
||
compinit -d ${COMPDUMPFILE} || print 'Notice: no compinit available :('
|
||
else
|
||
print 'Notice: no compinit available :('
|
||
function compdef { }
|
||
fi
|
||
|
||
# completion system
|
||
|
||
# called later (via is4 && grmlcomp)
|
||
# note: use 'zstyle' for getting current settings
|
||
# press ^xh (control-x h) for getting tags in context; ^x? (control-x ?) to run complete_debug with trace output
|
||
function grmlcomp () {
|
||
# TODO: This could use some additional information
|
||
|
||
# Make sure the completion system is initialised
|
||
(( ${+_comps} )) || return 1
|
||
|
||
# allow one error for every three characters typed in approximate completer
|
||
zstyle ':completion:*:approximate:' max-errors 'reply=( $((($#PREFIX+$#SUFFIX)/3 )) numeric )'
|
||
|
||
# don't complete backup files as executables
|
||
zstyle ':completion:*:complete:-command-::commands' ignored-patterns '(aptitude-*|*\~)'
|
||
|
||
# start menu completion only if it could find no unambiguous initial string
|
||
zstyle ':completion:*:correct:*' insert-unambiguous true
|
||
zstyle ':completion:*:corrections' format $'%{\e[0;31m%}%d (errors: %e)%{\e[0m%}'
|
||
zstyle ':completion:*:correct:*' original true
|
||
|
||
# activate color-completion
|
||
zstyle ':completion:*:default' list-colors ${(s.:.)LS_COLORS}
|
||
|
||
# format on completion
|
||
zstyle ':completion:*:descriptions' format $'%{\e[0;31m%}completing %B%d%b%{\e[0m%}'
|
||
|
||
# automatically complete 'cd -<tab>' and 'cd -<ctrl-d>' with menu
|
||
# zstyle ':completion:*:*:cd:*:directory-stack' menu yes select
|
||
|
||
# insert all expansions for expand completer
|
||
zstyle ':completion:*:expand:*' tag-order all-expansions
|
||
zstyle ':completion:*:history-words' list false
|
||
|
||
# activate menu
|
||
zstyle ':completion:*:history-words' menu yes
|
||
|
||
# ignore duplicate entries
|
||
zstyle ':completion:*:history-words' remove-all-dups yes
|
||
zstyle ':completion:*:history-words' stop yes
|
||
|
||
# match uppercase from lowercase
|
||
zstyle ':completion:*' matcher-list 'm:{a-z}={A-Z}'
|
||
|
||
# separate matches into groups
|
||
zstyle ':completion:*:matches' group 'yes'
|
||
zstyle ':completion:*' group-name ''
|
||
|
||
if [[ "$NOMENU" -eq 0 ]] ; then
|
||
# if there are more than 5 options allow selecting from a menu
|
||
zstyle ':completion:*' menu select=5
|
||
else
|
||
# don't use any menus at all
|
||
setopt no_auto_menu
|
||
fi
|
||
|
||
zstyle ':completion:*:messages' format '%d'
|
||
zstyle ':completion:*:options' auto-description '%d'
|
||
|
||
# describe options in full
|
||
zstyle ':completion:*:options' description 'yes'
|
||
|
||
# on processes completion complete all user processes
|
||
zstyle ':completion:*:processes' command 'ps -au$USER'
|
||
|
||
# offer indexes before parameters in subscripts
|
||
zstyle ':completion:*:*:-subscript-:*' tag-order indexes parameters
|
||
|
||
# provide verbose completion information
|
||
zstyle ':completion:*' verbose true
|
||
|
||
# recent (as of Dec 2007) zsh versions are able to provide descriptions
|
||
# for commands (read: 1st word in the line) that it will list for the user
|
||
# to choose from. The following disables that, because it's not exactly fast.
|
||
zstyle ':completion:*:-command-:*:' verbose false
|
||
|
||
# set format for warnings
|
||
zstyle ':completion:*:warnings' format $'%{\e[0;31m%}No matches for:%{\e[0m%} %d'
|
||
|
||
# define files to ignore for zcompile
|
||
zstyle ':completion:*:*:zcompile:*' ignored-patterns '(*~|*.zwc)'
|
||
zstyle ':completion:correct:' prompt 'correct to: %e'
|
||
|
||
# Ignore completion functions for commands you don't have:
|
||
zstyle ':completion::(^approximate*):*:functions' ignored-patterns '_*'
|
||
|
||
# Provide more processes in completion of programs like killall:
|
||
zstyle ':completion:*:processes-names' command 'ps c -u ${USER} -o command | uniq'
|
||
|
||
# complete manual by their section
|
||
zstyle ':completion:*:manuals' separate-sections true
|
||
zstyle ':completion:*:manuals.*' insert-sections true
|
||
zstyle ':completion:*:man:*' menu yes select
|
||
|
||
# Search path for sudo completion
|
||
zstyle ':completion:*:sudo:*' command-path /usr/local/sbin \
|
||
/usr/local/bin \
|
||
/usr/sbin \
|
||
/usr/bin \
|
||
/sbin \
|
||
/bin \
|
||
/usr/X11R6/bin
|
||
|
||
# provide .. as a completion
|
||
zstyle ':completion:*' special-dirs ..
|
||
|
||
# run rehash on completion so new installed program are found automatically:
|
||
function _force_rehash () {
|
||
(( CURRENT == 1 )) && rehash
|
||
return 1
|
||
}
|
||
|
||
## correction
|
||
# some people don't like the automatic correction - so run 'NOCOR=1 zsh' to deactivate it
|
||
if [[ "$NOCOR" -gt 0 ]] ; then
|
||
zstyle ':completion:*' completer _oldlist _expand _force_rehash _complete _files _ignored
|
||
setopt nocorrect
|
||
else
|
||
# try to be smart about when to use what completer...
|
||
setopt correct
|
||
zstyle -e ':completion:*' completer '
|
||
if [[ $_last_try != "$HISTNO$BUFFER$CURSOR" ]] ; then
|
||
_last_try="$HISTNO$BUFFER$CURSOR"
|
||
reply=(_complete _match _ignored _prefix _files)
|
||
else
|
||
if [[ $words[1] == (rm|mv) ]] ; then
|
||
reply=(_complete _files)
|
||
else
|
||
reply=(_oldlist _expand _force_rehash _complete _ignored _correct _approximate _files)
|
||
fi
|
||
fi'
|
||
fi
|
||
|
||
# command for process lists, the local web server details and host completion
|
||
zstyle ':completion:*:urls' local 'www' '/var/www/' 'public_html'
|
||
|
||
# Some functions, like _apt and _dpkg, are very slow. We can use a cache in
|
||
# order to speed things up
|
||
if [[ ${GRML_COMP_CACHING:-yes} == yes ]]; then
|
||
GRML_COMP_CACHE_DIR=${GRML_COMP_CACHE_DIR:-${ZDOTDIR:-$HOME}/.cache}
|
||
if [[ ! -d ${GRML_COMP_CACHE_DIR} ]]; then
|
||
command mkdir -p "${GRML_COMP_CACHE_DIR}"
|
||
fi
|
||
zstyle ':completion:*' use-cache yes
|
||
zstyle ':completion:*:complete:*' cache-path "${GRML_COMP_CACHE_DIR}"
|
||
fi
|
||
|
||
# host completion
|
||
if is42 ; then
|
||
[[ -r ~/.ssh/config ]] && _ssh_config_hosts=(${${(s: :)${(ps:\t:)${${(@M)${(f)"$(<$HOME/.ssh/config)"}:#Host *}#Host }}}:#*[*?]*}) || _ssh_config_hosts=()
|
||
[[ -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_config_hosts=()
|
||
_ssh_hosts=()
|
||
_etc_hosts=()
|
||
fi
|
||
hosts=(
|
||
$(hostname)
|
||
"$_ssh_config_hosts[@]"
|
||
"$_ssh_hosts[@]"
|
||
"$_etc_hosts[@]"
|
||
localhost
|
||
)
|
||
zstyle ':completion:*:hosts' hosts $hosts
|
||
# TODO: so, why is this here?
|
||
# zstyle '*' hosts $hosts
|
||
|
||
# use generic completion system for programs not yet defined; (_gnu_generic works
|
||
# with commands that provide a --help option with "standard" gnu-like output.)
|
||
for compcom in cp deborphan df feh fetchipac gpasswd head hnb ipacsum mv \
|
||
pal stow uname ; do
|
||
[[ -z ${_comps[$compcom]} ]] && compdef _gnu_generic ${compcom}
|
||
done; unset compcom
|
||
|
||
# see upgrade function in this file
|
||
compdef _hosts upgrade
|
||
}
|
||
|
||
# Keyboard setup: The following is based on the same code, we wrote for
|
||
# debian's setup. It ensures the terminal is in the right mode, when zle is
|
||
# active, so the values from $terminfo are valid. Therefore, this setup should
|
||
# work on all systems, that have support for `terminfo'. It also requires the
|
||
# zsh in use to have the `zsh/terminfo' module built.
|
||
#
|
||
# If you are customising your `zle-line-init()' or `zle-line-finish()'
|
||
# functions, make sure you call the following utility functions in there:
|
||
#
|
||
# - zle-line-init(): zle-smkx
|
||
# - zle-line-finish(): zle-rmkx
|
||
|
||
# Use emacs-like key bindings by default:
|
||
bindkey -e
|
||
|
||
# Custom widgets:
|
||
|
||
## beginning-of-line OR beginning-of-buffer OR beginning of history
|
||
## by: Bart Schaefer <schaefer@brasslantern.com>, Bernhard Tittelbach
|
||
function beginning-or-end-of-somewhere () {
|
||
local hno=$HISTNO
|
||
if [[ ( "${LBUFFER[-1]}" == $'\n' && "${WIDGET}" == beginning-of* ) || \
|
||
( "${RBUFFER[1]}" == $'\n' && "${WIDGET}" == end-of* ) ]]; then
|
||
zle .${WIDGET:s/somewhere/buffer-or-history/} "$@"
|
||
else
|
||
zle .${WIDGET:s/somewhere/line-hist/} "$@"
|
||
if (( HISTNO != hno )); then
|
||
zle .${WIDGET:s/somewhere/buffer-or-history/} "$@"
|
||
fi
|
||
fi
|
||
}
|
||
zle -N beginning-of-somewhere beginning-or-end-of-somewhere
|
||
zle -N end-of-somewhere beginning-or-end-of-somewhere
|
||
|
||
# add a command line to the shells history without executing it
|
||
function commit-to-history () {
|
||
print -s ${(z)BUFFER}
|
||
zle send-break
|
||
}
|
||
zle -N commit-to-history
|
||
|
||
# only slash should be considered as a word separator:
|
||
function slash-backward-kill-word () {
|
||
local WORDCHARS="${WORDCHARS:s@/@}"
|
||
# zle backward-word
|
||
zle backward-kill-word
|
||
}
|
||
zle -N slash-backward-kill-word
|
||
|
||
# a generic accept-line wrapper
|
||
|
||
# This widget can prevent unwanted autocorrections from command-name
|
||
# to _command-name, rehash automatically on enter and call any number
|
||
# of builtin and user-defined widgets in different contexts.
|
||
#
|
||
# For a broader description, see:
|
||
# <http://bewatermyfriend.org/posts/2007/12-26.11-50-38-tooltime.html>
|
||
#
|
||
# The code is imported from the file 'zsh/functions/accept-line' from
|
||
# <http://ft.bewatermyfriend.org/comp/zsh/zsh-dotfiles.tar.bz2>, which
|
||
# distributed under the same terms as zsh itself.
|
||
|
||
# A newly added command will may not be found or will cause false
|
||
# correction attempts, if you got auto-correction set. By setting the
|
||
# following style, we force accept-line() to rehash, if it cannot
|
||
# find the first word on the command line in the $command[] hash.
|
||
zstyle ':acceptline:*' rehash true
|
||
|
||
function Accept-Line () {
|
||
setopt localoptions noksharrays
|
||
local -a subs
|
||
local -xi aldone
|
||
local sub
|
||
local alcontext=${1:-$alcontext}
|
||
|
||
zstyle -a ":acceptline:${alcontext}" actions subs
|
||
|
||
(( ${#subs} < 1 )) && return 0
|
||
|
||
(( aldone = 0 ))
|
||
for sub in ${subs} ; do
|
||
[[ ${sub} == 'accept-line' ]] && sub='.accept-line'
|
||
zle ${sub}
|
||
|
||
(( aldone > 0 )) && break
|
||
done
|
||
}
|
||
|
||
function Accept-Line-getdefault () {
|
||
emulate -L zsh
|
||
local default_action
|
||
|
||
zstyle -s ":acceptline:${alcontext}" default_action default_action
|
||
case ${default_action} in
|
||
((accept-line|))
|
||
printf ".accept-line"
|
||
;;
|
||
(*)
|
||
printf ${default_action}
|
||
;;
|
||
esac
|
||
}
|
||
|
||
function Accept-Line-HandleContext () {
|
||
zle Accept-Line
|
||
|
||
default_action=$(Accept-Line-getdefault)
|
||
zstyle -T ":acceptline:${alcontext}" call_default \
|
||
&& zle ${default_action}
|
||
}
|
||
|
||
function accept-line () {
|
||
setopt localoptions noksharrays
|
||
local -a cmdline
|
||
local -x alcontext
|
||
local buf com fname format msg default_action
|
||
|
||
alcontext='default'
|
||
buf="${BUFFER}"
|
||
cmdline=(${(z)BUFFER})
|
||
com="${cmdline[1]}"
|
||
fname="_${com}"
|
||
|
||
Accept-Line 'preprocess'
|
||
|
||
zstyle -t ":acceptline:${alcontext}" rehash \
|
||
&& [[ -z ${commands[$com]} ]] \
|
||
&& rehash
|
||
|
||
if [[ -n ${com} ]] \
|
||
&& [[ -n ${reswords[(r)$com]} ]] \
|
||
|| [[ -n ${aliases[$com]} ]] \
|
||
|| [[ -n ${functions[$com]} ]] \
|
||
|| [[ -n ${builtins[$com]} ]] \
|
||
|| [[ -n ${commands[$com]} ]] ; then
|
||
|
||
# there is something sensible to execute, just do it.
|
||
alcontext='normal'
|
||
Accept-Line-HandleContext
|
||
|
||
return
|
||
fi
|
||
|
||
if [[ -o correct ]] \
|
||
|| [[ -o correctall ]] \
|
||
&& [[ -n ${functions[$fname]} ]] ; then
|
||
|
||
# nothing there to execute but there is a function called
|
||
# _command_name; a completion widget. Makes no sense to
|
||
# call it on the commandline, but the correct{,all} options
|
||
# will ask for it nevertheless, so warn the user.
|
||
if [[ ${LASTWIDGET} == 'accept-line' ]] ; then
|
||
# Okay, we warned the user before, he called us again,
|
||
# so have it his way.
|
||
alcontext='force'
|
||
Accept-Line-HandleContext
|
||
|
||
return
|
||
fi
|
||
|
||
if zstyle -t ":acceptline:${alcontext}" nocompwarn ; then
|
||
alcontext='normal'
|
||
Accept-Line-HandleContext
|
||
else
|
||
# prepare warning message for the user, configurable via zstyle.
|
||
zstyle -s ":acceptline:${alcontext}" compwarnfmt msg
|
||
|
||
if [[ -z ${msg} ]] ; then
|
||
msg="%c will not execute and completion %f exists."
|
||
fi
|
||
|
||
zformat -f msg "${msg}" "c:${com}" "f:${fname}"
|
||
|
||
zle -M -- "${msg}"
|
||
fi
|
||
return
|
||
elif [[ -n ${buf//[$' \t\n']##/} ]] ; then
|
||
# If we are here, the commandline contains something that is not
|
||
# executable, which is neither subject to _command_name correction
|
||
# and is not empty. might be a variable assignment
|
||
alcontext='misc'
|
||
Accept-Line-HandleContext
|
||
|
||
return
|
||
fi
|
||
|
||
# If we got this far, the commandline only contains whitespace, or is empty.
|
||
alcontext='empty'
|
||
Accept-Line-HandleContext
|
||
}
|
||
|
||
zle -N accept-line
|
||
zle -N Accept-Line
|
||
zle -N Accept-Line-HandleContext
|
||
|
||
# power completion / abbreviation expansion / buffer expansion
|
||
# see http://zshwiki.org/home/examples/zleiab for details
|
||
# less risky than the global aliases but powerful as well
|
||
# just type the abbreviation key and afterwards 'ctrl-x .' to expand it
|
||
declare -A abk
|
||
setopt extendedglob
|
||
setopt interactivecomments
|
||
abk=(
|
||
# key # value (#d additional doc string)
|
||
#A# start
|
||
'...' '../..'
|
||
'....' '../../..'
|
||
'BG' '& exit'
|
||
'C' '| wc -l'
|
||
'G' '|& grep '${grep_options:+"${grep_options[*]}"}
|
||
'H' '| head'
|
||
'Hl' ' --help |& less -r' #d (Display help in pager)
|
||
'L' '| less'
|
||
'LL' '|& less -r'
|
||
'M' '| most'
|
||
'N' '&>/dev/null' #d (No Output)
|
||
'R' '| tr A-z N-za-m' #d (ROT13)
|
||
'SL' '| sort | less'
|
||
'S' '| sort -u'
|
||
'T' '| tail'
|
||
'V' '|& vim -'
|
||
#A# end
|
||
'co' './configure && make && sudo make install'
|
||
)
|
||
|
||
function zleiab () {
|
||
emulate -L zsh
|
||
setopt extendedglob
|
||
local MATCH
|
||
|
||
LBUFFER=${LBUFFER%%(#m)[.\-+:|_a-zA-Z0-9]#}
|
||
LBUFFER+=${abk[$MATCH]:-$MATCH}
|
||
}
|
||
|
||
zle -N zleiab
|
||
|
||
function help-show-abk () {
|
||
zle -M "$(print "Available abbreviations for expansion:"; print -a -C 2 ${(kv)abk})"
|
||
}
|
||
|
||
zle -N help-show-abk
|
||
|
||
# press "ctrl-x d" to insert the actual date in the form yyyy-mm-dd
|
||
function insert-datestamp () { LBUFFER+=${(%):-'%D{%Y-%m-%d}'}; }
|
||
zle -N insert-datestamp
|
||
|
||
# press esc-m for inserting last typed word again (thanks to caphuso!)
|
||
function insert-last-typed-word () { zle insert-last-word -- 0 -1 };
|
||
zle -N insert-last-typed-word;
|
||
|
||
function grml-zsh-fg () {
|
||
if (( ${#jobstates} )); then
|
||
zle .push-input
|
||
[[ -o hist_ignore_space ]] && BUFFER=' ' || BUFFER=''
|
||
BUFFER="${BUFFER}fg"
|
||
zle .accept-line
|
||
else
|
||
zle -M 'No background jobs. Doing nothing.'
|
||
fi
|
||
}
|
||
zle -N grml-zsh-fg
|
||
|
||
# run command line as user root via sudo:
|
||
function sudo-command-line () {
|
||
[[ -z $BUFFER ]] && zle up-history
|
||
if [[ $BUFFER != sudo\ * ]]; then
|
||
BUFFER="sudo $BUFFER"
|
||
CURSOR=$(( CURSOR+5 ))
|
||
fi
|
||
}
|
||
zle -N sudo-command-line
|
||
|
||
### jump behind the first word on the cmdline.
|
||
### useful to add options.
|
||
function jump_after_first_word () {
|
||
local words
|
||
words=(${(z)BUFFER})
|
||
|
||
if (( ${#words} <= 1 )) ; then
|
||
CURSOR=${#BUFFER}
|
||
else
|
||
CURSOR=${#${words[1]}}
|
||
fi
|
||
}
|
||
zle -N jump_after_first_word
|
||
|
||
#f5# Create directory under cursor or the selected area
|
||
function inplaceMkDirs () {
|
||
# Press ctrl-xM to create the directory under the cursor or the selected area.
|
||
# To select an area press ctrl-@ or ctrl-space and use the cursor.
|
||
# Use case: you type "mv abc ~/testa/testb/testc/" and remember that the
|
||
# directory does not exist yet -> press ctrl-XM and problem solved
|
||
local PATHTOMKDIR
|
||
if ((REGION_ACTIVE==1)); then
|
||
local F=$MARK T=$CURSOR
|
||
if [[ $F -gt $T ]]; then
|
||
F=${CURSOR}
|
||
T=${MARK}
|
||
fi
|
||
# get marked area from buffer and eliminate whitespace
|
||
PATHTOMKDIR=${BUFFER[F+1,T]%%[[:space:]]##}
|
||
PATHTOMKDIR=${PATHTOMKDIR##[[:space:]]##}
|
||
else
|
||
local bufwords iword
|
||
bufwords=(${(z)LBUFFER})
|
||
iword=${#bufwords}
|
||
bufwords=(${(z)BUFFER})
|
||
PATHTOMKDIR="${(Q)bufwords[iword]}"
|
||
fi
|
||
[[ -z "${PATHTOMKDIR}" ]] && return 1
|
||
PATHTOMKDIR=${~PATHTOMKDIR}
|
||
if [[ -e "${PATHTOMKDIR}" ]]; then
|
||
zle -M " path already exists, doing nothing"
|
||
else
|
||
zle -M "$(mkdir -p -v "${PATHTOMKDIR}")"
|
||
zle end-of-line
|
||
fi
|
||
}
|
||
|
||
zle -N inplaceMkDirs
|
||
|
||
#v1# set number of lines to display per page
|
||
HELP_LINES_PER_PAGE=20
|
||
#v1# set location of help-zle cache file
|
||
HELP_ZLE_CACHE_FILE=~/.cache/zsh_help_zle_lines.zsh
|
||
# helper function for help-zle, actually generates the help text
|
||
function help_zle_parse_keybindings () {
|
||
emulate -L zsh
|
||
setopt extendedglob
|
||
unsetopt ksharrays #indexing starts at 1
|
||
|
||
#v1# choose files that help-zle will parse for keybindings
|
||
((${+HELPZLE_KEYBINDING_FILES})) || HELPZLE_KEYBINDING_FILES=( /etc/zsh/zshrc ~/.zshrc.pre ~/.zshrc ~/.zshrc.local )
|
||
|
||
if [[ -r $HELP_ZLE_CACHE_FILE ]]; then
|
||
local load_cache=0
|
||
local f
|
||
for f ($HELPZLE_KEYBINDING_FILES) [[ $f -nt $HELP_ZLE_CACHE_FILE ]] && load_cache=1
|
||
[[ $load_cache -eq 0 ]] && . $HELP_ZLE_CACHE_FILE && return
|
||
fi
|
||
|
||
#fill with default keybindings, possibly to be overwritten in a file later
|
||
#Note that due to zsh inconsistency on escaping assoc array keys, we encase the key in '' which we will remove later
|
||
local -A help_zle_keybindings
|
||
help_zle_keybindings['<Ctrl>@']="set MARK"
|
||
help_zle_keybindings['<Ctrl>x<Ctrl>j']="vi-join lines"
|
||
help_zle_keybindings['<Ctrl>x<Ctrl>b']="jump to matching brace"
|
||
help_zle_keybindings['<Ctrl>x<Ctrl>u']="undo"
|
||
help_zle_keybindings['<Ctrl>_']="undo"
|
||
help_zle_keybindings['<Ctrl>x<Ctrl>f<c>']="find <c> in cmdline"
|
||
help_zle_keybindings['<Ctrl>a']="goto beginning of line"
|
||
help_zle_keybindings['<Ctrl>e']="goto end of line"
|
||
help_zle_keybindings['<Ctrl>t']="transpose charaters"
|
||
help_zle_keybindings['<Alt>t']="transpose words"
|
||
help_zle_keybindings['<Alt>s']="spellcheck word"
|
||
help_zle_keybindings['<Ctrl>k']="backward kill buffer"
|
||
help_zle_keybindings['<Ctrl>u']="forward kill buffer"
|
||
help_zle_keybindings['<Ctrl>y']="insert previously killed word/string"
|
||
help_zle_keybindings["<Alt>'"]="quote line"
|
||
help_zle_keybindings['<Alt>"']="quote from mark to cursor"
|
||
help_zle_keybindings['<Alt><arg>']="repeat next cmd/char <arg> times (<Alt>-<Alt>1<Alt>0a -> -10 times 'a')"
|
||
help_zle_keybindings['<Alt>u']="make next word Uppercase"
|
||
help_zle_keybindings['<Alt>l']="make next word lowercase"
|
||
help_zle_keybindings['<Ctrl>xd']="preview expansion under cursor"
|
||
help_zle_keybindings['<Alt>q']="push current CL into background, freeing it. Restore on next CL"
|
||
help_zle_keybindings['<Alt>.']="insert (and interate through) last word from prev CLs"
|
||
help_zle_keybindings['<Alt>,']="complete word from newer history (consecutive hits)"
|
||
help_zle_keybindings['<Alt>m']="repeat last typed word on current CL"
|
||
help_zle_keybindings['<Ctrl>v']="insert next keypress symbol literally (e.g. for bindkey)"
|
||
help_zle_keybindings['!!:n*<Tab>']="insert last n arguments of last command"
|
||
help_zle_keybindings['!!:n-<Tab>']="insert arguments n..N-2 of last command (e.g. mv s s d)"
|
||
help_zle_keybindings['<Alt>h']="show help/manpage for current command"
|
||
|
||
#init global variables
|
||
unset help_zle_lines help_zle_sln
|
||
typeset -g -a help_zle_lines
|
||
typeset -g help_zle_sln=1
|
||
|
||
local k v f cline
|
||
local lastkeybind_desc contents #last description starting with #k# that we found
|
||
local num_lines_elapsed=0 #number of lines between last description and keybinding
|
||
#search config files in the order they a called (and thus the order in which they overwrite keybindings)
|
||
for f in $HELPZLE_KEYBINDING_FILES; do
|
||
[[ -r "$f" ]] || continue #not readable ? skip it
|
||
contents="$(<$f)"
|
||
for cline in "${(f)contents}"; do
|
||
#zsh pattern: matches lines like: #k# ..............
|
||
if [[ "$cline" == (#s)[[:space:]]#\#k\#[[:space:]]##(#b)(*)[[:space:]]#(#e) ]]; then
|
||
lastkeybind_desc="$match[*]"
|
||
num_lines_elapsed=0
|
||
#zsh pattern: matches lines that set a keybinding using bind2map, bindkey or compdef -k
|
||
# ignores lines that are commentend out
|
||
# grabs first in '' or "" enclosed string with length between 1 and 6 characters
|
||
elif [[ "$cline" == [^#]#(bind2maps[[:space:]](*)-s|bindkey|compdef -k)[[:space:]](*)(#b)(\"((?)(#c1,6))\"|\'((?)(#c1,6))\')(#B)(*) ]]; then
|
||
#description previously found ? description not more than 2 lines away ? keybinding not empty ?
|
||
if [[ -n $lastkeybind_desc && $num_lines_elapsed -lt 2 && -n $match[1] ]]; then
|
||
#substitute keybinding string with something readable
|
||
k=${${${${${${${match[1]/\\e\^h/<Alt><BS>}/\\e\^\?/<Alt><BS>}/\\e\[5~/<PageUp>}/\\e\[6~/<PageDown>}//(\\e|\^\[)/<Alt>}//\^/<Ctrl>}/3~/<Alt><Del>}
|
||
#put keybinding in assoc array, possibly overwriting defaults or stuff found in earlier files
|
||
#Note that we are extracting the keybinding-string including the quotes (see Note at beginning)
|
||
help_zle_keybindings[${k}]=$lastkeybind_desc
|
||
fi
|
||
lastkeybind_desc=""
|
||
else
|
||
((num_lines_elapsed++))
|
||
fi
|
||
done
|
||
done
|
||
unset contents
|
||
#calculate length of keybinding column
|
||
local kstrlen=0
|
||
for k (${(k)help_zle_keybindings[@]}) ((kstrlen < ${#k})) && kstrlen=${#k}
|
||
#convert the assoc array into preformated lines, which we are able to sort
|
||
for k v in ${(kv)help_zle_keybindings[@]}; do
|
||
#pad keybinding-string to kstrlen chars and remove outermost characters (i.e. the quotes)
|
||
help_zle_lines+=("${(r:kstrlen:)k[2,-2]}${v}")
|
||
done
|
||
#sort lines alphabetically
|
||
help_zle_lines=("${(i)help_zle_lines[@]}")
|
||
[[ -d ${HELP_ZLE_CACHE_FILE:h} ]] || mkdir -p "${HELP_ZLE_CACHE_FILE:h}"
|
||
echo "help_zle_lines=(${(q)help_zle_lines[@]})" >| $HELP_ZLE_CACHE_FILE
|
||
zcompile $HELP_ZLE_CACHE_FILE
|
||
}
|
||
typeset -g help_zle_sln
|
||
typeset -g -a help_zle_lines
|
||
|
||
# Provides (partially autogenerated) help on keybindings and the zsh line editor
|
||
function help-zle () {
|
||
emulate -L zsh
|
||
unsetopt ksharrays #indexing starts at 1
|
||
#help lines already generated ? no ? then do it
|
||
[[ ${+functions[help_zle_parse_keybindings]} -eq 1 ]] && {help_zle_parse_keybindings && unfunction help_zle_parse_keybindings}
|
||
#already displayed all lines ? go back to the start
|
||
[[ $help_zle_sln -gt ${#help_zle_lines} ]] && help_zle_sln=1
|
||
local sln=$help_zle_sln
|
||
#note that help_zle_sln is a global var, meaning we remember the last page we viewed
|
||
help_zle_sln=$((help_zle_sln + HELP_LINES_PER_PAGE))
|
||
zle -M "${(F)help_zle_lines[sln,help_zle_sln-1]}"
|
||
}
|
||
zle -N help-zle
|
||
|
||
## complete word from currently visible Screen or Tmux buffer.
|
||
if check_com -c screen || check_com -c tmux; then
|
||
function _complete_screen_display () {
|
||
[[ "$TERM" != "screen" ]] && return 1
|
||
|
||
local TMPFILE=$(mktemp)
|
||
local -U -a _screen_display_wordlist
|
||
trap "rm -f $TMPFILE" EXIT
|
||
|
||
# fill array with contents from screen hardcopy
|
||
if ((${+TMUX})); then
|
||
#works, but crashes tmux below version 1.4
|
||
#luckily tmux -V option to ask for version, was also added in 1.4
|
||
tmux -V &>/dev/null || return
|
||
tmux -q capture-pane \; save-buffer -b 0 $TMPFILE \; delete-buffer -b 0
|
||
else
|
||
screen -X hardcopy $TMPFILE
|
||
# screen sucks, it dumps in latin1, apparently always. so recode it
|
||
# to system charset
|
||
check_com recode && recode latin1 $TMPFILE
|
||
fi
|
||
_screen_display_wordlist=( ${(QQ)$(<$TMPFILE)} )
|
||
# remove PREFIX to be completed from that array
|
||
_screen_display_wordlist[${_screen_display_wordlist[(i)$PREFIX]}]=""
|
||
compadd -a _screen_display_wordlist
|
||
}
|
||
#m# k CTRL-x\,\,\,S Complete word from GNU screen buffer
|
||
bindkey -r "^xS"
|
||
compdef -k _complete_screen_display complete-word '^xS'
|
||
fi
|
||
|
||
# Load a few more functions and tie them to widgets, so they can be bound:
|
||
|
||
function zrcautozle () {
|
||
emulate -L zsh
|
||
local fnc=$1
|
||
zrcautoload $fnc && zle -N $fnc
|
||
}
|
||
|
||
function zrcgotwidget () {
|
||
(( ${+widgets[$1]} ))
|
||
}
|
||
|
||
function zrcgotkeymap () {
|
||
[[ -n ${(M)keymaps:#$1} ]]
|
||
}
|
||
|
||
zrcautozle insert-files
|
||
zrcautozle edit-command-line
|
||
zrcautozle insert-unicode-char
|
||
if zrcautoload history-search-end; then
|
||
zle -N history-beginning-search-backward-end history-search-end
|
||
zle -N history-beginning-search-forward-end history-search-end
|
||
fi
|
||
zle -C hist-complete complete-word _generic
|
||
zstyle ':completion:hist-complete:*' completer _history
|
||
|
||
# The actual terminal setup hooks and bindkey-calls:
|
||
|
||
# An array to note missing features to ease diagnosis in case of problems.
|
||
typeset -ga grml_missing_features
|
||
|
||
function zrcbindkey () {
|
||
if (( ARGC )) && zrcgotwidget ${argv[-1]}; then
|
||
bindkey "$@"
|
||
fi
|
||
}
|
||
|
||
function bind2maps () {
|
||
local i sequence widget
|
||
local -a maps
|
||
|
||
while [[ "$1" != "--" ]]; do
|
||
maps+=( "$1" )
|
||
shift
|
||
done
|
||
shift
|
||
|
||
if [[ "$1" == "-s" ]]; then
|
||
shift
|
||
sequence="$1"
|
||
else
|
||
sequence="${key[$1]}"
|
||
fi
|
||
widget="$2"
|
||
|
||
[[ -z "$sequence" ]] && return 1
|
||
|
||
for i in "${maps[@]}"; do
|
||
zrcbindkey -M "$i" "$sequence" "$widget"
|
||
done
|
||
}
|
||
|
||
if (( ${+terminfo[smkx]} )) && (( ${+terminfo[rmkx]} )); then
|
||
function zle-smkx () {
|
||
emulate -L zsh
|
||
printf '%s' ${terminfo[smkx]}
|
||
}
|
||
function zle-rmkx () {
|
||
emulate -L zsh
|
||
printf '%s' ${terminfo[rmkx]}
|
||
}
|
||
function zle-line-init () {
|
||
zle-smkx
|
||
}
|
||
function zle-line-finish () {
|
||
zle-rmkx
|
||
}
|
||
zle -N zle-line-init
|
||
zle -N zle-line-finish
|
||
else
|
||
for i in {s,r}mkx; do
|
||
(( ${+terminfo[$i]} )) || grml_missing_features+=($i)
|
||
done
|
||
unset i
|
||
fi
|
||
|
||
typeset -A key
|
||
key=(
|
||
Home "${terminfo[khome]}"
|
||
End "${terminfo[kend]}"
|
||
Insert "${terminfo[kich1]}"
|
||
Delete "${terminfo[kdch1]}"
|
||
Up "${terminfo[kcuu1]}"
|
||
Down "${terminfo[kcud1]}"
|
||
Left "${terminfo[kcub1]}"
|
||
Right "${terminfo[kcuf1]}"
|
||
PageUp "${terminfo[kpp]}"
|
||
PageDown "${terminfo[knp]}"
|
||
BackTab "${terminfo[kcbt]}"
|
||
)
|
||
|
||
# Guidelines for adding key bindings:
|
||
#
|
||
# - Do not add hardcoded escape sequences, to enable non standard key
|
||
# combinations such as Ctrl-Meta-Left-Cursor. They are not easily portable.
|
||
#
|
||
# - Adding Ctrl characters, such as '^b' is okay; note that '^b' and '^B' are
|
||
# the same key.
|
||
#
|
||
# - All keys from the $key[] mapping are obviously okay.
|
||
#
|
||
# - Most terminals send "ESC x" when Meta-x is pressed. Thus, sequences like
|
||
# '\ex' are allowed in here as well.
|
||
|
||
bind2maps emacs -- Home beginning-of-somewhere
|
||
bind2maps viins vicmd -- Home vi-beginning-of-line
|
||
bind2maps emacs -- End end-of-somewhere
|
||
bind2maps viins vicmd -- End vi-end-of-line
|
||
bind2maps emacs viins -- Insert overwrite-mode
|
||
bind2maps vicmd -- Insert vi-insert
|
||
bind2maps emacs -- Delete delete-char
|
||
bind2maps viins vicmd -- Delete vi-delete-char
|
||
bind2maps emacs viins vicmd -- Up up-line-or-search
|
||
bind2maps emacs viins vicmd -- Down down-line-or-search
|
||
bind2maps emacs -- Left backward-char
|
||
bind2maps viins vicmd -- Left vi-backward-char
|
||
bind2maps emacs -- Right forward-char
|
||
bind2maps viins vicmd -- Right vi-forward-char
|
||
#k# Perform abbreviation expansion
|
||
bind2maps emacs viins -- -s '^x.' zleiab
|
||
#k# Display list of abbreviations that would expand
|
||
bind2maps emacs viins -- -s '^xb' help-show-abk
|
||
#k# mkdir -p <dir> from string under cursor or marked area
|
||
bind2maps emacs viins -- -s '^xM' inplaceMkDirs
|
||
#k# display help for keybindings and ZLE
|
||
bind2maps emacs viins -- -s '^xz' help-zle
|
||
#k# Insert files and test globbing
|
||
bind2maps emacs viins -- -s "^xf" insert-files
|
||
#k# Edit the current line in \kbd{\$EDITOR}
|
||
bind2maps emacs viins -- -s '\ee' edit-command-line
|
||
#k# search history backward for entry beginning with typed text
|
||
bind2maps emacs viins -- -s '^xp' history-beginning-search-backward-end
|
||
#k# search history forward for entry beginning with typed text
|
||
bind2maps emacs viins -- -s '^xP' history-beginning-search-forward-end
|
||
#k# search history backward for entry beginning with typed text
|
||
bind2maps emacs viins -- PageUp history-beginning-search-backward-end
|
||
#k# search history forward for entry beginning with typed text
|
||
bind2maps emacs viins -- PageDown history-beginning-search-forward-end
|
||
bind2maps emacs viins -- -s "^x^h" commit-to-history
|
||
#k# Kill left-side word or everything up to next slash
|
||
bind2maps emacs viins -- -s '\ev' slash-backward-kill-word
|
||
#k# Kill left-side word or everything up to next slash
|
||
bind2maps emacs viins -- -s '\e^h' slash-backward-kill-word
|
||
#k# Kill left-side word or everything up to next slash
|
||
bind2maps emacs viins -- -s '\e^?' slash-backward-kill-word
|
||
# Do history expansion on space:
|
||
bind2maps emacs viins -- -s ' ' magic-space
|
||
#k# Trigger menu-complete
|
||
bind2maps emacs viins -- -s '\ei' menu-complete # menu completion via esc-i
|
||
#k# Insert a timestamp on the command line (yyyy-mm-dd)
|
||
bind2maps emacs viins -- -s '^xd' insert-datestamp
|
||
#k# Insert last typed word
|
||
bind2maps emacs viins -- -s "\em" insert-last-typed-word
|
||
#k# A smart shortcut for \kbd{fg<enter>}
|
||
bind2maps emacs viins -- -s '^z' grml-zsh-fg
|
||
#k# prepend the current command with "sudo"
|
||
bind2maps emacs viins -- -s "^os" sudo-command-line
|
||
#k# jump to after first word (for adding options)
|
||
bind2maps emacs viins -- -s '^x1' jump_after_first_word
|
||
#k# complete word from history with menu
|
||
bind2maps emacs viins -- -s "^x^x" hist-complete
|
||
|
||
# insert unicode character
|
||
# usage example: 'ctrl-x i' 00A7 'ctrl-x i' will give you an §
|
||
# See for example http://unicode.org/charts/ for unicode characters code
|
||
#k# Insert Unicode character
|
||
bind2maps emacs viins -- -s '^xi' insert-unicode-char
|
||
|
||
# use the new *-pattern-* widgets for incremental history search
|
||
if zrcgotwidget history-incremental-pattern-search-backward; then
|
||
for seq wid in '^r' history-incremental-pattern-search-backward \
|
||
'^s' history-incremental-pattern-search-forward
|
||
do
|
||
bind2maps emacs viins vicmd -- -s $seq $wid
|
||
done
|
||
builtin unset -v seq wid
|
||
fi
|
||
|
||
if zrcgotkeymap menuselect; then
|
||
#m# k Shift-tab Perform backwards menu completion
|
||
bind2maps menuselect -- BackTab reverse-menu-complete
|
||
|
||
#k# menu selection: pick item but stay in the menu
|
||
bind2maps menuselect -- -s '\e^M' accept-and-menu-complete
|
||
# also use + and INSERT since it's easier to press repeatedly
|
||
bind2maps menuselect -- -s '+' accept-and-menu-complete
|
||
bind2maps menuselect -- Insert accept-and-menu-complete
|
||
|
||
# accept a completion and try to complete again by using menu
|
||
# completion; very useful with completing directories
|
||
# by using 'undo' one's got a simple file browser
|
||
bind2maps menuselect -- -s '^o' accept-and-infer-next-history
|
||
fi
|
||
|
||
# Finally, here are still a few hardcoded escape sequences; Special sequences
|
||
# like Ctrl-<Cursor-key> etc do suck a fair bit, because they are not
|
||
# standardised and most of the time are not available in a terminals terminfo
|
||
# entry.
|
||
#
|
||
# While we do not encourage adding bindings like these, we will keep these for
|
||
# backward compatibility.
|
||
|
||
## use Ctrl-left-arrow and Ctrl-right-arrow for jumping to word-beginnings on
|
||
## the command line.
|
||
# URxvt sequences:
|
||
bind2maps emacs viins vicmd -- -s '\eOc' forward-word
|
||
bind2maps emacs viins vicmd -- -s '\eOd' backward-word
|
||
# These are for xterm:
|
||
bind2maps emacs viins vicmd -- -s '\e[1;5C' forward-word
|
||
bind2maps emacs viins vicmd -- -s '\e[1;5D' backward-word
|
||
## the same for alt-left-arrow and alt-right-arrow
|
||
# URxvt again:
|
||
bind2maps emacs viins vicmd -- -s '\e\e[C' forward-word
|
||
bind2maps emacs viins vicmd -- -s '\e\e[D' backward-word
|
||
# Xterm again:
|
||
bind2maps emacs viins vicmd -- -s '^[[1;3C' forward-word
|
||
bind2maps emacs viins vicmd -- -s '^[[1;3D' backward-word
|
||
# Also try ESC Left/Right:
|
||
bind2maps emacs viins vicmd -- -s '\e'${key[Right]} forward-word
|
||
bind2maps emacs viins vicmd -- -s '\e'${key[Left]} backward-word
|
||
|
||
# autoloading
|
||
|
||
zrcautoload zmv
|
||
zrcautoload zed
|
||
|
||
# we don't want to quote/espace URLs on our own...
|
||
# if autoload -U url-quote-magic ; then
|
||
# zle -N self-insert url-quote-magic
|
||
# zstyle ':url-quote-magic:*' url-metas '*?[]^()~#{}='
|
||
# else
|
||
# print 'Notice: no url-quote-magic available :('
|
||
# fi
|
||
alias url-quote='autoload -U url-quote-magic ; zle -N self-insert url-quote-magic'
|
||
|
||
#m# k ESC-h Call \kbd{run-help} for the 1st word on the command line
|
||
alias run-help >&/dev/null && unalias run-help
|
||
for rh in run-help{,-git,-ip,-openssl,-p4,-sudo,-svk,-svn}; do
|
||
zrcautoload $rh
|
||
done; unset rh
|
||
|
||
# command not found handling
|
||
|
||
(( ${COMMAND_NOT_FOUND} == 1 )) &&
|
||
function command_not_found_handler () {
|
||
emulate -L zsh
|
||
if [[ -x ${GRML_ZSH_CNF_HANDLER} ]] ; then
|
||
${GRML_ZSH_CNF_HANDLER} $1
|
||
fi
|
||
return 1
|
||
}
|
||
|
||
# history
|
||
|
||
#v#
|
||
HISTFILE=${HISTFILE:-${ZDOTDIR:-${HOME}}/.zsh_history}
|
||
isgrmlcd && HISTSIZE=500 || HISTSIZE=${HISTSIZE:-5000}
|
||
isgrmlcd && SAVEHIST=1000 || SAVEHIST=${SAVEHIST:-10000} # useful for setopt append_history
|
||
|
||
# dirstack handling
|
||
|
||
DIRSTACKSIZE=${DIRSTACKSIZE:-20}
|
||
DIRSTACKFILE=${DIRSTACKFILE:-${ZDOTDIR:-${HOME}}/.zdirs}
|
||
|
||
if zstyle -T ':grml:chpwd:dirstack' enable; then
|
||
typeset -gaU GRML_PERSISTENT_DIRSTACK
|
||
function grml_dirstack_filter () {
|
||
local -a exclude
|
||
local filter entry
|
||
if zstyle -s ':grml:chpwd:dirstack' filter filter; then
|
||
$filter $1 && return 0
|
||
fi
|
||
if zstyle -a ':grml:chpwd:dirstack' exclude exclude; then
|
||
for entry in "${exclude[@]}"; do
|
||
[[ $1 == ${~entry} ]] && return 0
|
||
done
|
||
fi
|
||
return 1
|
||
}
|
||
|
||
function chpwd () {
|
||
(( ZSH_SUBSHELL )) && return
|
||
(( $DIRSTACKSIZE <= 0 )) && return
|
||
[[ -z $DIRSTACKFILE ]] && return
|
||
grml_dirstack_filter $PWD && return
|
||
GRML_PERSISTENT_DIRSTACK=(
|
||
$PWD "${(@)GRML_PERSISTENT_DIRSTACK[1,$DIRSTACKSIZE]}"
|
||
)
|
||
builtin print -l ${GRML_PERSISTENT_DIRSTACK} >! ${DIRSTACKFILE}
|
||
}
|
||
|
||
if [[ -f ${DIRSTACKFILE} ]]; then
|
||
# Enabling NULL_GLOB via (N) weeds out any non-existing
|
||
# directories from the saved dir-stack file.
|
||
dirstack=( ${(f)"$(< $DIRSTACKFILE)"}(N) )
|
||
# "cd -" won't work after login by just setting $OLDPWD, so
|
||
[[ -d $dirstack[1] ]] && cd -q $dirstack[1] && cd -q $OLDPWD
|
||
fi
|
||
|
||
if zstyle -t ':grml:chpwd:dirstack' filter-on-load; then
|
||
for i in "${dirstack[@]}"; do
|
||
if ! grml_dirstack_filter "$i"; then
|
||
GRML_PERSISTENT_DIRSTACK=(
|
||
"${GRML_PERSISTENT_DIRSTACK[@]}"
|
||
$i
|
||
)
|
||
fi
|
||
done
|
||
else
|
||
GRML_PERSISTENT_DIRSTACK=( "${dirstack[@]}" )
|
||
fi
|
||
fi
|
||
|
||
# directory based profiles
|
||
|
||
if is433 ; then
|
||
|
||
# chpwd_profiles(): Directory Profiles, Quickstart:
|
||
#
|
||
# In .zshrc.local:
|
||
#
|
||
# zstyle ':chpwd:profiles:/usr/src/grml(|/|/*)' profile grml
|
||
# zstyle ':chpwd:profiles:/usr/src/debian(|/|/*)' profile debian
|
||
# chpwd_profiles
|
||
#
|
||
# For details see the `grmlzshrc.5' manual page.
|
||
function chpwd_profiles () {
|
||
local profile context
|
||
local -i reexecute
|
||
|
||
context=":chpwd:profiles:$PWD"
|
||
zstyle -s "$context" profile profile || profile='default'
|
||
zstyle -T "$context" re-execute && reexecute=1 || reexecute=0
|
||
|
||
if (( ${+parameters[CHPWD_PROFILE]} == 0 )); then
|
||
typeset -g CHPWD_PROFILE
|
||
local CHPWD_PROFILES_INIT=1
|
||
(( ${+functions[chpwd_profiles_init]} )) && chpwd_profiles_init
|
||
elif [[ $profile != $CHPWD_PROFILE ]]; then
|
||
(( ${+functions[chpwd_leave_profile_$CHPWD_PROFILE]} )) \
|
||
&& chpwd_leave_profile_${CHPWD_PROFILE}
|
||
fi
|
||
if (( reexecute )) || [[ $profile != $CHPWD_PROFILE ]]; then
|
||
(( ${+functions[chpwd_profile_$profile]} )) && chpwd_profile_${profile}
|
||
fi
|
||
|
||
CHPWD_PROFILE="${profile}"
|
||
return 0
|
||
}
|
||
|
||
chpwd_functions=( ${chpwd_functions} chpwd_profiles )
|
||
|
||
fi # is433
|
||
|
||
# Prompt setup for grml:
|
||
|
||
# set colors for use in prompts (modern zshs allow for the use of %F{red}foo%f
|
||
# in prompts to get a red "foo" embedded, but it's good to keep these for
|
||
# backwards compatibility).
|
||
if is437; then
|
||
BLUE="%F{blue}"
|
||
RED="%F{red}"
|
||
GREEN="%F{green}"
|
||
CYAN="%F{cyan}"
|
||
MAGENTA="%F{magenta}"
|
||
YELLOW="%F{yellow}"
|
||
WHITE="%F{white}"
|
||
NO_COLOR="%f"
|
||
elif zrcautoload colors && colors 2>/dev/null ; then
|
||
BLUE="%{${fg[blue]}%}"
|
||
RED="%{${fg_bold[red]}%}"
|
||
GREEN="%{${fg[green]}%}"
|
||
CYAN="%{${fg[cyan]}%}"
|
||
MAGENTA="%{${fg[magenta]}%}"
|
||
YELLOW="%{${fg[yellow]}%}"
|
||
WHITE="%{${fg[white]}%}"
|
||
NO_COLOR="%{${reset_color}%}"
|
||
else
|
||
BLUE=$'%{\e[1;34m%}'
|
||
RED=$'%{\e[1;31m%}'
|
||
GREEN=$'%{\e[1;32m%}'
|
||
CYAN=$'%{\e[1;36m%}'
|
||
WHITE=$'%{\e[1;37m%}'
|
||
MAGENTA=$'%{\e[1;35m%}'
|
||
YELLOW=$'%{\e[1;33m%}'
|
||
NO_COLOR=$'%{\e[0m%}'
|
||
fi
|
||
|
||
# First, the easy ones: PS2..4:
|
||
|
||
# secondary prompt, printed when the shell needs more information to complete a
|
||
# command.
|
||
PS2='\`%_> '
|
||
# selection prompt used within a select loop.
|
||
PS3='?# '
|
||
# the execution trace prompt (setopt xtrace). default: '+%N:%i>'
|
||
PS4='+%N:%i:%_> '
|
||
|
||
# Some additional features to use with our prompt:
|
||
#
|
||
# - battery status
|
||
# - debian_chroot
|
||
# - vcs_info setup and version specific fixes
|
||
|
||
# display battery status on right side of prompt using 'GRML_DISPLAY_BATTERY=1' in .zshrc.pre
|
||
|
||
function battery () {
|
||
if [[ $GRML_DISPLAY_BATTERY -gt 0 ]] ; then
|
||
if islinux ; then
|
||
batterylinux
|
||
elif isopenbsd ; then
|
||
batteryopenbsd
|
||
elif isfreebsd ; then
|
||
batteryfreebsd
|
||
elif isdarwin ; then
|
||
batterydarwin
|
||
else
|
||
#not yet supported
|
||
GRML_DISPLAY_BATTERY=0
|
||
fi
|
||
fi
|
||
}
|
||
|
||
function batterylinux () {
|
||
GRML_BATTERY_LEVEL=''
|
||
local batteries bat capacity
|
||
batteries=( /sys/class/power_supply/BAT*(N) )
|
||
if (( $#batteries > 0 )) ; then
|
||
for bat in $batteries ; do
|
||
if [[ -e $bat/capacity ]]; then
|
||
capacity=$(< $bat/capacity)
|
||
else
|
||
typeset -F energy_full=$(< $bat/energy_full)
|
||
typeset -F energy_now=$(< $bat/energy_now)
|
||
typeset -i capacity=$(( 100 * $energy_now / $energy_full))
|
||
fi
|
||
case $(< $bat/status) in
|
||
Charging)
|
||
GRML_BATTERY_LEVEL+=" ^"
|
||
;;
|
||
Discharging)
|
||
if (( capacity < 20 )) ; then
|
||
GRML_BATTERY_LEVEL+=" !v"
|
||
else
|
||
GRML_BATTERY_LEVEL+=" v"
|
||
fi
|
||
;;
|
||
*) # Full, Unknown
|
||
GRML_BATTERY_LEVEL+=" ="
|
||
;;
|
||
esac
|
||
GRML_BATTERY_LEVEL+="${capacity}%%"
|
||
done
|
||
fi
|
||
}
|
||
|
||
function batteryopenbsd () {
|
||
GRML_BATTERY_LEVEL=''
|
||
local bat batfull batwarn batnow num
|
||
for num in 0 1 ; do
|
||
bat=$(sysctl -n hw.sensors.acpibat${num} 2>/dev/null)
|
||
if [[ -n $bat ]]; then
|
||
batfull=${"$(sysctl -n hw.sensors.acpibat${num}.amphour0)"%% *}
|
||
batwarn=${"$(sysctl -n hw.sensors.acpibat${num}.amphour1)"%% *}
|
||
batnow=${"$(sysctl -n hw.sensors.acpibat${num}.amphour3)"%% *}
|
||
case "$(sysctl -n hw.sensors.acpibat${num}.raw0)" in
|
||
*" discharging"*)
|
||
if (( batnow < batwarn )) ; then
|
||
GRML_BATTERY_LEVEL+=" !v"
|
||
else
|
||
GRML_BATTERY_LEVEL+=" v"
|
||
fi
|
||
;;
|
||
*" charging"*)
|
||
GRML_BATTERY_LEVEL+=" ^"
|
||
;;
|
||
*)
|
||
GRML_BATTERY_LEVEL+=" ="
|
||
;;
|
||
esac
|
||
GRML_BATTERY_LEVEL+="${$(( 100 * batnow / batfull ))%%.*}%%"
|
||
fi
|
||
done
|
||
}
|
||
|
||
function batteryfreebsd () {
|
||
GRML_BATTERY_LEVEL=''
|
||
local num
|
||
local -A table
|
||
for num in 0 1 ; do
|
||
table=( ${=${${${${${(M)${(f)"$(acpiconf -i $num 2>&1)"}:#(State|Remaining capacity):*}%%( ##|%)}//:[ $'\t']##/@}// /-}//@/ }} )
|
||
if [[ -n $table ]] && [[ $table[State] != "not-present" ]] ; then
|
||
case $table[State] in
|
||
*discharging*)
|
||
if (( $table[Remaining-capacity] < 20 )) ; then
|
||
GRML_BATTERY_LEVEL+=" !v"
|
||
else
|
||
GRML_BATTERY_LEVEL+=" v"
|
||
fi
|
||
;;
|
||
*charging*)
|
||
GRML_BATTERY_LEVEL+=" ^"
|
||
;;
|
||
*)
|
||
GRML_BATTERY_LEVEL+=" ="
|
||
;;
|
||
esac
|
||
GRML_BATTERY_LEVEL+="$table[Remaining-capacity]%%"
|
||
fi
|
||
done
|
||
}
|
||
|
||
function batterydarwin () {
|
||
GRML_BATTERY_LEVEL=''
|
||
local -a table
|
||
table=( ${$(pmset -g ps)[(w)7,8]%%(\%|);} )
|
||
if [[ -n $table[2] ]] ; then
|
||
case $table[2] in
|
||
charging)
|
||
GRML_BATTERY_LEVEL+=" ^"
|
||
;;
|
||
discharging)
|
||
if (( $table[1] < 20 )) ; then
|
||
GRML_BATTERY_LEVEL+=" !v"
|
||
else
|
||
GRML_BATTERY_LEVEL+=" v"
|
||
fi
|
||
;;
|
||
*)
|
||
GRML_BATTERY_LEVEL+=" ="
|
||
;;
|
||
esac
|
||
GRML_BATTERY_LEVEL+="$table[1]%%"
|
||
fi
|
||
}
|
||
|
||
# set variable debian_chroot if running in a chroot with /etc/debian_chroot
|
||
if [[ -z "$debian_chroot" ]] && [[ -r /etc/debian_chroot ]] ; then
|
||
debian_chroot=$(</etc/debian_chroot)
|
||
fi
|
||
|
||
# gather version control information for inclusion in a prompt
|
||
|
||
if zrcautoload vcs_info; then
|
||
# `vcs_info' in zsh versions 4.3.10 and below have a broken `_realpath'
|
||
# function, which can cause a lot of trouble with our directory-based
|
||
# profiles. So:
|
||
if [[ ${ZSH_VERSION} == 4.3.<-10> ]] ; then
|
||
function VCS_INFO_realpath () {
|
||
setopt localoptions NO_shwordsplit chaselinks
|
||
( builtin cd -q $1 2> /dev/null && pwd; )
|
||
}
|
||
fi
|
||
|
||
zstyle ':vcs_info:*' max-exports 2
|
||
|
||
if [[ -o restricted ]]; then
|
||
zstyle ':vcs_info:*' enable NONE
|
||
fi
|
||
fi
|
||
|
||
typeset -A grml_vcs_coloured_formats
|
||
typeset -A grml_vcs_plain_formats
|
||
|
||
grml_vcs_plain_formats=(
|
||
format "(%s%)-[%b] " "zsh: %r"
|
||
actionformat "(%s%)-[%b|%a] " "zsh: %r"
|
||
rev-branchformat "%b:%r"
|
||
)
|
||
|
||
grml_vcs_coloured_formats=(
|
||
format "${MAGENTA}(${NO_COLOR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${MAGENTA}]${NO_COLOR} "
|
||
actionformat "${MAGENTA}(${NO_COLOR}%s${MAGENTA})${YELLOW}-${MAGENTA}[${GREEN}%b${YELLOW}|${RED}%a${MAGENTA}]${NO_COLOR} "
|
||
rev-branchformat "%b${RED}:${YELLOW}%r"
|
||
)
|
||
|
||
typeset GRML_VCS_COLOUR_MODE=xxx
|
||
|
||
function grml_vcs_info_toggle_colour () {
|
||
emulate -L zsh
|
||
if [[ $GRML_VCS_COLOUR_MODE == plain ]]; then
|
||
grml_vcs_info_set_formats coloured
|
||
else
|
||
grml_vcs_info_set_formats plain
|
||
fi
|
||
return 0
|
||
}
|
||
|
||
function grml_vcs_info_set_formats () {
|
||
emulate -L zsh
|
||
#setopt localoptions xtrace
|
||
local mode=$1 AF F BF
|
||
if [[ $mode == coloured ]]; then
|
||
AF=${grml_vcs_coloured_formats[actionformat]}
|
||
F=${grml_vcs_coloured_formats[format]}
|
||
BF=${grml_vcs_coloured_formats[rev-branchformat]}
|
||
GRML_VCS_COLOUR_MODE=coloured
|
||
else
|
||
AF=${grml_vcs_plain_formats[actionformat]}
|
||
F=${grml_vcs_plain_formats[format]}
|
||
BF=${grml_vcs_plain_formats[rev-branchformat]}
|
||
GRML_VCS_COLOUR_MODE=plain
|
||
fi
|
||
|
||
zstyle ':vcs_info:*' actionformats "$AF" "zsh: %r"
|
||
zstyle ':vcs_info:*' formats "$F" "zsh: %r"
|
||
zstyle ':vcs_info:(sv[nk]|bzr):*' branchformat "$BF"
|
||
return 0
|
||
}
|
||
|
||
# Change vcs_info formats for the grml prompt. The 2nd format sets up
|
||
# $vcs_info_msg_1_ to contain "zsh: repo-name" used to set our screen title.
|
||
if [[ "$TERM" == dumb ]] ; then
|
||
grml_vcs_info_set_formats plain
|
||
else
|
||
grml_vcs_info_set_formats coloured
|
||
fi
|
||
|
||
# Now for the fun part: The grml prompt themes in `promptsys' mode of operation
|
||
|
||
# This actually defines three prompts:
|
||
#
|
||
# - grml
|
||
# - grml-large
|
||
# - grml-chroot
|
||
#
|
||
# They all share the same code and only differ with respect to which items they
|
||
# contain. The main source of documentation is the `prompt_grml_help' function
|
||
# below, which gets called when the user does this: prompt -h grml
|
||
|
||
function prompt_grml_help () {
|
||
<<__EOF0__
|
||
prompt grml
|
||
|
||
This is the prompt as used by the grml-live system <http://grml.org>. It is
|
||
a rather simple one-line prompt, that by default looks something like this:
|
||
|
||
<user>@<host> <current-working-directory>[ <vcs_info-data>]%
|
||
|
||
The prompt itself integrates with zsh's prompt themes system (as you are
|
||
witnessing right now) and is configurable to a certain degree. In
|
||
particular, these aspects are customisable:
|
||
|
||
- The items used in the prompt (e.g. you can remove \`user' from
|
||
the list of activated items, which will cause the user name to
|
||
be omitted from the prompt string).
|
||
|
||
- The attributes used with the items are customisable via strings
|
||
used before and after the actual item.
|
||
|
||
The available items are: at, battery, change-root, date, grml-chroot,
|
||
history, host, jobs, newline, path, percent, rc, rc-always, sad-smiley,
|
||
shell-level, time, user, vcs
|
||
|
||
The actual configuration is done via zsh's \`zstyle' mechanism. The
|
||
context, that is used while looking up styles is:
|
||
|
||
':prompt:grml:<left-or-right>:<subcontext>'
|
||
|
||
Here <left-or-right> is either \`left' or \`right', signifying whether the
|
||
style should affect the left or the right prompt. <subcontext> is either
|
||
\`setup' or 'items:<item>', where \`<item>' is one of the available items.
|
||
|
||
The styles:
|
||
|
||
- use-rprompt (boolean): If \`true' (the default), print a sad smiley
|
||
in $RPROMPT if the last command a returned non-successful error code.
|
||
(This in only valid if <left-or-right> is "right"; ignored otherwise)
|
||
|
||
- items (list): The list of items used in the prompt. If \`vcs' is
|
||
present in the list, the theme's code invokes \`vcs_info'
|
||
accordingly. Default (left): rc change-root user at host path vcs
|
||
percent; Default (right): sad-smiley
|
||
|
||
- strip-sensitive-characters (boolean): If the \`prompt_subst' option
|
||
is active in zsh, the shell performs lots of expansions on prompt
|
||
variable strings, including command substitution. So if you don't
|
||
control where some of your prompt strings is coming from, this is
|
||
an exploitable weakness. Grml's zsh setup does not set this option
|
||
and it is off in the shell in zsh-mode by default. If it *is* turned
|
||
on however, this style becomes active, and there are two flavours of
|
||
it: On per default is a global variant in the '*:setup' context. This
|
||
strips characters after the whole prompt string was constructed. There
|
||
is a second variant in the '*:items:<item>', that is off by default.
|
||
It allows fine grained control over which items' data is stripped.
|
||
The characters that are stripped are: \$ and \`.
|
||
|
||
Available styles in 'items:<item>' are: pre, post. These are strings that
|
||
are inserted before (pre) and after (post) the item in question. Thus, the
|
||
following would cause the user name to be printed in red instead of the
|
||
default blue:
|
||
|
||
zstyle ':prompt:grml:*:items:user' pre '%F{red}'
|
||
|
||
Note, that the \`post' style may remain at its default value, because its
|
||
default value is '%f', which turns the foreground text attribute off (which
|
||
is exactly, what is still required with the new \`pre' value).
|
||
__EOF0__
|
||
}
|
||
|
||
function prompt_grml-chroot_help () {
|
||
<<__EOF0__
|
||
prompt grml-chroot
|
||
|
||
This is a variation of the grml prompt, see: prompt -h grml
|
||
|
||
The main difference is the default value of the \`items' style. The rest
|
||
behaves exactly the same. Here are the defaults for \`grml-chroot':
|
||
|
||
- left: grml-chroot user at host path percent
|
||
- right: (empty list)
|
||
__EOF0__
|
||
}
|
||
|
||
function prompt_grml-large_help () {
|
||
<<__EOF0__
|
||
prompt grml-large
|
||
|
||
This is a variation of the grml prompt, see: prompt -h grml
|
||
|
||
The main difference is the default value of the \`items' style. In
|
||
particular, this theme uses _two_ lines instead of one with the plain
|
||
\`grml' theme. The rest behaves exactly the same. Here are the defaults
|
||
for \`grml-large':
|
||
|
||
- left: rc jobs history shell-level change-root time date newline user
|
||
at host path vcs percent
|
||
- right: sad-smiley
|
||
__EOF0__
|
||
}
|
||
|
||
function grml_prompt_setup () {
|
||
emulate -L zsh
|
||
autoload -Uz vcs_info
|
||
# The following autoload is disabled for now, since this setup includes a
|
||
# static version of the ‘add-zsh-hook’ function above. It needs to be
|
||
# re-enabled as soon as that static definition is removed again.
|
||
#autoload -Uz add-zsh-hook
|
||
add-zsh-hook precmd prompt_$1_precmd
|
||
}
|
||
|
||
function prompt_grml_setup () {
|
||
grml_prompt_setup grml
|
||
}
|
||
|
||
function prompt_grml-chroot_setup () {
|
||
grml_prompt_setup grml-chroot
|
||
}
|
||
|
||
function prompt_grml-large_setup () {
|
||
grml_prompt_setup grml-large
|
||
}
|
||
|
||
# These maps define default tokens and pre-/post-decoration for items to be
|
||
# used within the themes. All defaults may be customised in a context sensitive
|
||
# matter by using zsh's `zstyle' mechanism.
|
||
typeset -gA grml_prompt_pre_default \
|
||
grml_prompt_post_default \
|
||
grml_prompt_token_default \
|
||
grml_prompt_token_function
|
||
|
||
grml_prompt_pre_default=(
|
||
at ''
|
||
battery ' '
|
||
change-root ''
|
||
date '%F{blue}'
|
||
grml-chroot '%F{red}'
|
||
history '%F{green}'
|
||
host ''
|
||
jobs '%F{cyan}'
|
||
newline ''
|
||
path '%B'
|
||
percent ''
|
||
rc '%B%F{red}'
|
||
rc-always ''
|
||
sad-smiley ''
|
||
shell-level '%F{red}'
|
||
time '%F{blue}'
|
||
user '%B%F{blue}'
|
||
vcs ''
|
||
)
|
||
|
||
grml_prompt_post_default=(
|
||
at ''
|
||
battery ''
|
||
change-root ''
|
||
date '%f'
|
||
grml-chroot '%f '
|
||
history '%f'
|
||
host ''
|
||
jobs '%f'
|
||
newline ''
|
||
path '%b'
|
||
percent ''
|
||
rc '%f%b'
|
||
rc-always ''
|
||
sad-smiley ''
|
||
shell-level '%f'
|
||
time '%f'
|
||
user '%f%b'
|
||
vcs ''
|
||
)
|
||
|
||
grml_prompt_token_default=(
|
||
at '@'
|
||
battery 'GRML_BATTERY_LEVEL'
|
||
change-root 'debian_chroot'
|
||
date '%D{%Y-%m-%d}'
|
||
grml-chroot 'GRML_CHROOT'
|
||
history '{history#%!} '
|
||
host '%m '
|
||
jobs '[%j running job(s)] '
|
||
newline $'\n'
|
||
path '%40<..<%~%<< '
|
||
percent '%# '
|
||
rc '%(?..%? )'
|
||
rc-always '%?'
|
||
sad-smiley '%(?..:()'
|
||
shell-level '%(3L.+ .)'
|
||
time '%D{%H:%M:%S} '
|
||
user '%n'
|
||
vcs '0'
|
||
)
|
||
|
||
function grml_theme_has_token () {
|
||
if (( ARGC != 1 )); then
|
||
printf 'usage: grml_theme_has_token <name>\n'
|
||
return 1
|
||
fi
|
||
(( ${+grml_prompt_token_default[$1]} ))
|
||
}
|
||
|
||
function GRML_theme_add_token_usage () {
|
||
<<__EOF0__
|
||
Usage: grml_theme_add_token <name> [-f|-i] <token/function> [<pre> <post>]
|
||
|
||
<name> is the name for the newly added token. If the \`-f' or \`-i' options
|
||
are used, <token/function> is the name of the function (see below for
|
||
details). Otherwise it is the literal token string to be used. <pre> and
|
||
<post> are optional.
|
||
|
||
Options:
|
||
|
||
-f <function> Use a function named \`<function>' each time the token
|
||
is to be expanded.
|
||
|
||
-i <function> Use a function named \`<function>' to initialise the
|
||
value of the token _once_ at runtime.
|
||
|
||
The functions are called with one argument: the token's new name. The
|
||
return value is expected in the \$REPLY parameter. The use of these
|
||
options is mutually exclusive.
|
||
|
||
There is a utility function \`grml_theme_has_token', which you can use
|
||
to test if a token exists before trying to add it. This can be a guard
|
||
for situations in which a \`grml_theme_add_token' call may happen more
|
||
than once.
|
||
|
||
Example:
|
||
|
||
To add a new token \`day' that expands to the current weekday in the
|
||
current locale in green foreground colour, use this:
|
||
|
||
grml_theme_add_token day '%D{%A}' '%F{green}' '%f'
|
||
|
||
Another example would be support for \$VIRTUAL_ENV:
|
||
|
||
function virtual_env_prompt () {
|
||
REPLY=\${VIRTUAL_ENV+\${VIRTUAL_ENV:t} }
|
||
}
|
||
grml_theme_add_token virtual-env -f virtual_env_prompt
|
||
|
||
After that, you will be able to use a changed \`items' style to
|
||
assemble your prompt.
|
||
__EOF0__
|
||
}
|
||
|
||
function grml_theme_add_token () {
|
||
emulate -L zsh
|
||
local name token pre post
|
||
local -i init funcall
|
||
|
||
if (( ARGC == 0 )); then
|
||
GRML_theme_add_token_usage
|
||
return 0
|
||
fi
|
||
|
||
init=0
|
||
funcall=0
|
||
pre=''
|
||
post=''
|
||
name=$1
|
||
shift
|
||
if [[ $1 == '-f' ]]; then
|
||
funcall=1
|
||
shift
|
||
elif [[ $1 == '-i' ]]; then
|
||
init=1
|
||
shift
|
||
fi
|
||
|
||
if (( ARGC == 0 )); then
|
||
printf '
|
||
grml_theme_add_token: No token-string/function-name provided!\n\n'
|
||
GRML_theme_add_token_usage
|
||
return 1
|
||
fi
|
||
token=$1
|
||
shift
|
||
if (( ARGC != 0 && ARGC != 2 )); then
|
||
printf '
|
||
grml_theme_add_token: <pre> and <post> need to by specified _both_!\n\n'
|
||
GRML_theme_add_token_usage
|
||
return 1
|
||
fi
|
||
if (( ARGC )); then
|
||
pre=$1
|
||
post=$2
|
||
shift 2
|
||
fi
|
||
|
||
if grml_theme_has_token $name; then
|
||
printf '
|
||
grml_theme_add_token: Token `%s'\'' exists! Giving up!\n\n' $name
|
||
GRML_theme_add_token_usage
|
||
return 2
|
||
fi
|
||
if (( init )); then
|
||
$token $name
|
||
token=$REPLY
|
||
fi
|
||
grml_prompt_pre_default[$name]=$pre
|
||
grml_prompt_post_default[$name]=$post
|
||
if (( funcall )); then
|
||
grml_prompt_token_function[$name]=$token
|
||
grml_prompt_token_default[$name]=23
|
||
else
|
||
grml_prompt_token_default[$name]=$token
|
||
fi
|
||
}
|
||
|
||
function grml_wrap_reply () {
|
||
emulate -L zsh
|
||
local target="$1"
|
||
local new="$2"
|
||
local left="$3"
|
||
local right="$4"
|
||
|
||
if (( ${+parameters[$new]} )); then
|
||
REPLY="${left}${(P)new}${right}"
|
||
else
|
||
REPLY=''
|
||
fi
|
||
}
|
||
|
||
function grml_prompt_addto () {
|
||
emulate -L zsh
|
||
local target="$1"
|
||
local lr it apre apost new v REPLY
|
||
local -a items
|
||
shift
|
||
|
||
[[ $target == PS1 ]] && lr=left || lr=right
|
||
zstyle -a ":prompt:${grmltheme}:${lr}:setup" items items || items=( "$@" )
|
||
typeset -g "${target}="
|
||
for it in "${items[@]}"; do
|
||
zstyle -s ":prompt:${grmltheme}:${lr}:items:$it" pre apre \
|
||
|| apre=${grml_prompt_pre_default[$it]}
|
||
zstyle -s ":prompt:${grmltheme}:${lr}:items:$it" post apost \
|
||
|| apost=${grml_prompt_post_default[$it]}
|
||
zstyle -s ":prompt:${grmltheme}:${lr}:items:$it" token new \
|
||
|| new=${grml_prompt_token_default[$it]}
|
||
if (( ${+grml_prompt_token_function[$it]} )); then
|
||
${grml_prompt_token_function[$it]} $it
|
||
else
|
||
case $it in
|
||
battery)
|
||
grml_wrap_reply $target $new '' ''
|
||
;;
|
||
change-root)
|
||
grml_wrap_reply $target $new '(' ')'
|
||
;;
|
||
grml-chroot)
|
||
if [[ -n ${(P)new} ]]; then
|
||
REPLY="$CHROOT"
|
||
else
|
||
REPLY=''
|
||
fi
|
||
;;
|
||
vcs)
|
||
v="vcs_info_msg_${new}_"
|
||
if (( ! vcscalled )); then
|
||
vcs_info
|
||
vcscalled=1
|
||
fi
|
||
if (( ${+parameters[$v]} )) && [[ -n "${(P)v}" ]]; then
|
||
REPLY="${(P)v}"
|
||
else
|
||
REPLY=''
|
||
fi
|
||
;;
|
||
*) REPLY="$new" ;;
|
||
esac
|
||
fi
|
||
# Strip volatile characters per item. This is off by default. See the
|
||
# global stripping code a few lines below for details.
|
||
if [[ -o prompt_subst ]] && zstyle -t ":prompt:${grmltheme}:${lr}:items:$it" \
|
||
strip-sensitive-characters
|
||
then
|
||
REPLY="${REPLY//[$\`]/}"
|
||
fi
|
||
typeset -g "${target}=${(P)target}${apre}${REPLY}${apost}"
|
||
done
|
||
|
||
# Per default, strip volatile characters (in the prompt_subst case)
|
||
# globally. If the option is off, the style has no effect. For more
|
||
# control, this can be turned off and stripping can be configured on a
|
||
# per-item basis (see above).
|
||
if [[ -o prompt_subst ]] && zstyle -T ":prompt:${grmltheme}:${lr}:setup" \
|
||
strip-sensitive-characters
|
||
then
|
||
typeset -g "${target}=${${(P)target}//[$\`]/}"
|
||
fi
|
||
}
|
||
|
||
function prompt_grml_precmd () {
|
||
emulate -L zsh
|
||
local grmltheme=grml
|
||
local -a left_items right_items
|
||
left_items=(rc change-root user at host path vcs percent)
|
||
right_items=(sad-smiley)
|
||
|
||
prompt_grml_precmd_worker
|
||
}
|
||
|
||
function prompt_grml-chroot_precmd () {
|
||
emulate -L zsh
|
||
local grmltheme=grml-chroot
|
||
local -a left_items right_items
|
||
left_items=(grml-chroot user at host path percent)
|
||
right_items=()
|
||
|
||
prompt_grml_precmd_worker
|
||
}
|
||
|
||
function prompt_grml-large_precmd () {
|
||
emulate -L zsh
|
||
local grmltheme=grml-large
|
||
local -a left_items right_items
|
||
left_items=(rc jobs history shell-level change-root time date newline
|
||
user at host path vcs percent)
|
||
right_items=(sad-smiley)
|
||
|
||
prompt_grml_precmd_worker
|
||
}
|
||
|
||
function prompt_grml_precmd_worker () {
|
||
emulate -L zsh
|
||
local -i vcscalled=0
|
||
|
||
grml_prompt_addto PS1 "${left_items[@]}"
|
||
if zstyle -T ":prompt:${grmltheme}:right:setup" use-rprompt; then
|
||
grml_prompt_addto RPS1 "${right_items[@]}"
|
||
fi
|
||
}
|
||
|
||
function grml_prompt_fallback () {
|
||
setopt prompt_subst
|
||
local p0 p1
|
||
|
||
p0="${RED}%(?..%? )${WHITE}${debian_chroot:+($debian_chroot)}"
|
||
p1="${BLUE}%n${NO_COLOR}@%m %40<...<%B%~%b%<< "'${vcs_info_msg_0_}'"%# "
|
||
if (( EUID == 0 )); then
|
||
PROMPT="${BLUE}${p0}${RED}${p1}"
|
||
else
|
||
PROMPT="${RED}${p0}${BLUE}${p1}"
|
||
fi
|
||
}
|
||
|
||
if zrcautoload promptinit && promptinit 2>/dev/null ; then
|
||
# Since we define the required functions in here and not in files in
|
||
# $fpath, we need to stick the theme's name into `$prompt_themes'
|
||
# ourselves, since promptinit does not pick them up otherwise.
|
||
prompt_themes+=( grml grml-chroot grml-large )
|
||
# Also, keep the array sorted...
|
||
prompt_themes=( "${(@on)prompt_themes}" )
|
||
else
|
||
print 'Notice: no promptinit available :('
|
||
grml_prompt_fallback
|
||
function precmd () { (( ${+functions[vcs_info]} )) && vcs_info; }
|
||
fi
|
||
|
||
if is437; then
|
||
# The prompt themes use modern features of zsh, that require at least
|
||
# version 4.3.7 of the shell. Use the fallback otherwise.
|
||
if [[ $GRML_DISPLAY_BATTERY -gt 0 ]]; then
|
||
zstyle ':prompt:grml:right:setup' items sad-smiley battery
|
||
add-zsh-hook precmd battery
|
||
fi
|
||
if [[ "$TERM" == dumb ]] ; then
|
||
zstyle ":prompt:grml(|-large|-chroot):*:items:grml-chroot" pre ''
|
||
zstyle ":prompt:grml(|-large|-chroot):*:items:grml-chroot" post ' '
|
||
for i in rc user path jobs history date time shell-level; do
|
||
zstyle ":prompt:grml(|-large|-chroot):*:items:$i" pre ''
|
||
zstyle ":prompt:grml(|-large|-chroot):*:items:$i" post ''
|
||
done
|
||
unset i
|
||
zstyle ':prompt:grml(|-large|-chroot):right:setup' use-rprompt false
|
||
elif (( EUID == 0 )); then
|
||
zstyle ':prompt:grml(|-large|-chroot):*:items:user' pre '%B%F{red}'
|
||
fi
|
||
|
||
# Finally enable one of the prompts.
|
||
if [[ -n $GRML_CHROOT ]]; then
|
||
prompt grml-chroot
|
||
elif [[ $GRMLPROMPT -gt 0 ]]; then
|
||
prompt grml-large
|
||
else
|
||
prompt grml
|
||
fi
|
||
else
|
||
grml_prompt_fallback
|
||
function precmd () { (( ${+functions[vcs_info]} )) && vcs_info; }
|
||
fi
|
||
|
||
# Terminal-title wizardry
|
||
|
||
function ESC_print () {
|
||
info_print $'\ek' $'\e\\' "$@"
|
||
}
|
||
function set_title () {
|
||
info_print $'\e]0;' $'\a' "$@"
|
||
}
|
||
|
||
function info_print () {
|
||
local esc_begin esc_end
|
||
esc_begin="$1"
|
||
esc_end="$2"
|
||
shift 2
|
||
printf '%s' ${esc_begin}
|
||
printf '%s' "$*"
|
||
printf '%s' "${esc_end}"
|
||
}
|
||
|
||
function grml_reset_screen_title () {
|
||
# adjust title of xterm
|
||
# see http://www.faqs.org/docs/Linux-mini/Xterm-Title.html
|
||
[[ ${NOTITLE:-} -gt 0 ]] && return 0
|
||
case $TERM in
|
||
(xterm*|rxvt*)
|
||
set_title ${(%):-"%n@%m: %~"}
|
||
;;
|
||
esac
|
||
}
|
||
|
||
function grml_vcs_to_screen_title () {
|
||
if [[ $TERM == screen* ]] ; then
|
||
if [[ -n ${vcs_info_msg_1_} ]] ; then
|
||
ESC_print ${vcs_info_msg_1_}
|
||
else
|
||
ESC_print "zsh"
|
||
fi
|
||
fi
|
||
}
|
||
|
||
function grml_maintain_name () {
|
||
# set hostname if not running on host with name 'grml'
|
||
if [[ -n "$HOSTNAME" ]] && [[ "$HOSTNAME" != $(hostname) ]] ; then
|
||
NAME="@$HOSTNAME"
|
||
fi
|
||
}
|
||
|
||
function grml_cmd_to_screen_title () {
|
||
# get the name of the program currently running and hostname of local
|
||
# machine set screen window title if running in a screen
|
||
if [[ "$TERM" == screen* ]] ; then
|
||
local CMD="${1[(wr)^(*=*|sudo|ssh|-*)]}$NAME"
|
||
ESC_print ${CMD}
|
||
fi
|
||
}
|
||
|
||
function grml_control_xterm_title () {
|
||
case $TERM in
|
||
(xterm*|rxvt*)
|
||
set_title "${(%):-"%n@%m:"}" "$1"
|
||
;;
|
||
esac
|
||
}
|
||
|
||
# The following autoload is disabled for now, since this setup includes a
|
||
# static version of the ‘add-zsh-hook’ function above. It needs to be
|
||
# re-enabled as soon as that static definition is removed again.
|
||
#zrcautoload add-zsh-hook || add-zsh-hook () { :; }
|
||
if [[ $NOPRECMD -eq 0 ]]; then
|
||
add-zsh-hook precmd grml_reset_screen_title
|
||
add-zsh-hook precmd grml_vcs_to_screen_title
|
||
add-zsh-hook preexec grml_maintain_name
|
||
add-zsh-hook preexec grml_cmd_to_screen_title
|
||
if [[ $NOTITLE -eq 0 ]]; then
|
||
add-zsh-hook preexec grml_control_xterm_title
|
||
fi
|
||
fi
|
||
|
||
# 'hash' some often used directories
|
||
#d# start
|
||
hash -d deb=/var/cache/apt/archives
|
||
hash -d doc=/usr/share/doc
|
||
hash -d linux=/lib/modules/$(command uname -r)/build/
|
||
hash -d log=/var/log
|
||
hash -d slog=/var/log/syslog
|
||
hash -d src=/usr/src
|
||
hash -d www=/var/www
|
||
#d# end
|
||
|
||
# some aliases
|
||
if check_com -c screen ; then
|
||
if [[ $UID -eq 0 ]] ; then
|
||
if [[ -r /etc/grml/screenrc ]]; then
|
||
alias screen='screen -c /etc/grml/screenrc'
|
||
fi
|
||
elif [[ ! -r $HOME/.screenrc ]] ; then
|
||
if [[ -r /etc/grml/screenrc_grml ]]; then
|
||
alias screen='screen -c /etc/grml/screenrc_grml'
|
||
else
|
||
if [[ -r /etc/grml/screenrc ]]; then
|
||
alias screen='screen -c /etc/grml/screenrc'
|
||
fi
|
||
fi
|
||
fi
|
||
fi
|
||
|
||
# do we have GNU ls with color-support?
|
||
if [[ "$TERM" != dumb ]]; then
|
||
#a1# List files with colors (\kbd{ls \ldots})
|
||
alias ls="command ls ${ls_options:+${ls_options[*]}}"
|
||
#a1# List all files, with colors (\kbd{ls -la \ldots})
|
||
alias la="command ls -la ${ls_options:+${ls_options[*]}}"
|
||
#a1# List files with long colored list, without dotfiles (\kbd{ls -l \ldots})
|
||
alias ll="command ls -l ${ls_options:+${ls_options[*]}}"
|
||
#a1# List files with long colored list, human readable sizes (\kbd{ls -hAl \ldots})
|
||
alias lh="command ls -hAl ${ls_options:+${ls_options[*]}}"
|
||
#a1# List files with long colored list, append qualifier to filenames (\kbd{ls -l \ldots})\\&\quad(\kbd{/} for directories, \kbd{@} for symlinks ...)
|
||
alias l="command ls -l ${ls_options:+${ls_options[*]}}"
|
||
else
|
||
alias la='command ls -la'
|
||
alias ll='command ls -l'
|
||
alias lh='command ls -hAl'
|
||
alias l='command ls -l'
|
||
fi
|
||
|
||
if [[ -r /proc/mdstat ]]; then
|
||
alias mdstat='cat /proc/mdstat'
|
||
fi
|
||
|
||
alias ...='cd ../../'
|
||
|
||
# generate alias named "$KERNELVERSION-reboot" so you can use boot with kexec:
|
||
if [[ -x /sbin/kexec ]] && [[ -r /proc/cmdline ]] ; then
|
||
alias "$(uname -r)-reboot"="kexec -l --initrd=/boot/initrd.img-"$(uname -r)" --command-line=\"$(cat /proc/cmdline)\" /boot/vmlinuz-"$(uname -r)""
|
||
fi
|
||
|
||
# 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'"
|
||
|
||
# make sure it is not assigned yet
|
||
[[ -n ${aliases[utf2iso]} ]] && unalias utf2iso
|
||
function utf2iso () {
|
||
if isutfenv ; then
|
||
local ENV
|
||
for ENV in $(env | command grep -i '.utf') ; do
|
||
eval export "$(echo $ENV | sed 's/UTF-8/iso885915/ ; s/utf8/iso885915/')"
|
||
done
|
||
fi
|
||
}
|
||
|
||
# make sure it is not assigned yet
|
||
[[ -n ${aliases[iso2utf]} ]] && unalias iso2utf
|
||
function iso2utf () {
|
||
if ! isutfenv ; then
|
||
local ENV
|
||
for ENV in $(env | command grep -i '\.iso') ; do
|
||
eval export "$(echo $ENV | sed 's/iso.*/UTF-8/ ; s/ISO.*/UTF-8/')"
|
||
done
|
||
fi
|
||
}
|
||
|
||
# especially for roadwarriors using GNU screen and ssh:
|
||
if ! check_com asc &>/dev/null ; then
|
||
function asc () { autossh -t "$@" 'screen -RdU' }
|
||
compdef asc=ssh
|
||
fi
|
||
|
||
#f1# Hints for the use of zsh on grml
|
||
function zsh-help () {
|
||
print "$bg[white]$fg[black]
|
||
zsh-help - hints for use of zsh on grml
|
||
=======================================$reset_color"
|
||
|
||
print '
|
||
Main configuration of zsh happens in /etc/zsh/zshrc.
|
||
That file is part of the package grml-etc-core, if you want to
|
||
use them on a non-grml-system just get the tar.gz from
|
||
http://deb.grml.org/ or (preferably) get it from the git repository:
|
||
|
||
http://git.grml.org/f/grml-etc-core/etc/zsh/zshrc
|
||
|
||
This version of grml'\''s zsh setup does not use skel/.zshrc anymore.
|
||
The file is still there, but it is empty for backwards compatibility.
|
||
|
||
For your own changes use these two files:
|
||
$HOME/.zshrc.pre
|
||
$HOME/.zshrc.local
|
||
|
||
The former is sourced very early in our zshrc, the latter is sourced
|
||
very lately.
|
||
|
||
System wide configuration without touching configuration files of grml
|
||
can take place in /etc/zsh/zshrc.local.
|
||
|
||
For information regarding zsh start at http://grml.org/zsh/
|
||
|
||
Take a look at grml'\''s zsh refcard:
|
||
% xpdf =(zcat /usr/share/doc/grml-docs/zsh/grml-zsh-refcard.pdf.gz)
|
||
|
||
Check out the main zsh refcard:
|
||
% '$BROWSER' http://www.bash2zsh.com/zsh_refcard/refcard.pdf
|
||
|
||
And of course visit the zsh-lovers:
|
||
% man zsh-lovers
|
||
|
||
You can adjust some options through environment variables when
|
||
invoking zsh without having to edit configuration files.
|
||
Basically meant for bash users who are not used to the power of
|
||
the zsh yet. :)
|
||
|
||
"NOCOR=1 zsh" => deactivate automatic correction
|
||
"NOMENU=1 zsh" => do not use auto menu completion
|
||
(note: use ctrl-d for completion instead!)
|
||
"NOPRECMD=1 zsh" => disable the precmd + preexec commands (set GNU screen title)
|
||
"NOTITLE=1 zsh" => disable setting the title of xterms without disabling
|
||
preexec() and precmd() completely
|
||
"GRML_DISPLAY_BATTERY=1 zsh"
|
||
=> activate battery status on right side of prompt (WIP)
|
||
"COMMAND_NOT_FOUND=1 zsh"
|
||
=> Enable a handler if an external command was not found
|
||
The command called in the handler can be altered by setting
|
||
the GRML_ZSH_CNF_HANDLER variable, the default is:
|
||
"/usr/share/command-not-found/command-not-found"
|
||
|
||
A value greater than 0 is enables a feature; a value equal to zero
|
||
disables it. If you like one or the other of these settings, you can
|
||
add them to ~/.zshrc.pre to ensure they are set when sourcing grml'\''s
|
||
zshrc.'
|
||
|
||
print "
|
||
$bg[white]$fg[black]
|
||
Please report wishes + bugs to the grml-team: http://grml.org/bugs/
|
||
Enjoy your grml system with the zsh!$reset_color"
|
||
}
|
||
|
||
# debian stuff
|
||
if [[ -r /etc/debian_version ]] ; then
|
||
if [[ -z "$GRML_NO_APT_ALIASES" ]]; then
|
||
#a3# Execute \kbd{apt-cache search}
|
||
alias acs='apt-cache search'
|
||
#a3# Execute \kbd{apt-cache show}
|
||
alias acsh='apt-cache show'
|
||
#a3# Execute \kbd{apt-cache policy}
|
||
alias acp='apt-cache policy'
|
||
if check_com -c apt ; then
|
||
#a3# Execute \kbd{apt dist-upgrade}
|
||
salias adg="apt dist-upgrade"
|
||
#a3# Execute \kbd{apt upgrade}
|
||
salias ag="apt upgrade"
|
||
#a3# Execute \kbd{apt install}
|
||
salias agi="apt install"
|
||
#a3# Execute \kbd{apt-get update}
|
||
salias au="apt update"
|
||
else
|
||
salias adg="apt-get dist-upgrade"
|
||
salias ag="apt-get upgrade"
|
||
salias agi="apt-get install"
|
||
salias au="apt-get update"
|
||
fi
|
||
#a3# Execute \kbd{aptitude install}
|
||
salias ati="aptitude install"
|
||
#a3# Execute \kbd{aptitude update ; aptitude safe-upgrade}
|
||
salias -a up="aptitude update ; aptitude safe-upgrade"
|
||
#a3# Execute \kbd{dpkg-buildpackage}
|
||
alias dbp='dpkg-buildpackage'
|
||
#a3# Execute \kbd{grep-excuses}
|
||
alias ge='grep-excuses'
|
||
fi
|
||
|
||
# get a root shell as normal user in live-cd mode:
|
||
if isgrmlcd && [[ $UID -ne 0 ]] ; then
|
||
alias su="sudo su"
|
||
fi
|
||
|
||
fi
|
||
|
||
# use /var/log/syslog iff present, fallback to journalctl otherwise
|
||
if [ -e /var/log/syslog ] ; then
|
||
#a1# Take a look at the syslog: \kbd{\$PAGER /var/log/syslog || journalctl}
|
||
salias llog="$PAGER /var/log/syslog" # take a look at the syslog
|
||
#a1# Take a look at the syslog: \kbd{tail -f /var/log/syslog || journalctl}
|
||
salias tlog="tail -f /var/log/syslog" # follow the syslog
|
||
elif check_com -c journalctl ; then
|
||
salias llog="journalctl"
|
||
salias tlog="journalctl -f"
|
||
fi
|
||
|
||
# sort installed Debian-packages by size
|
||
if check_com -c dpkg-query ; then
|
||
#a3# List installed Debian-packages sorted by size
|
||
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"
|
||
fi
|
||
|
||
# if cdrecord is a symlink (to wodim) or isn't present at all warn:
|
||
if [[ -L /usr/bin/cdrecord ]] || ! check_com -c cdrecord; then
|
||
if check_com -c wodim; then
|
||
function cdrecord () {
|
||
<<__EOF0__
|
||
cdrecord is not provided under its original name by Debian anymore.
|
||
See #377109 in the BTS of Debian for more details.
|
||
|
||
Please use the wodim binary instead
|
||
__EOF0__
|
||
return 1
|
||
}
|
||
fi
|
||
fi
|
||
|
||
if isgrmlcd; then
|
||
# No core dumps: important for a live-cd-system
|
||
limit -s core 0
|
||
fi
|
||
|
||
# grmlstuff
|
||
function grmlstuff () {
|
||
# people should use 'grml-x'!
|
||
if check_com -c 915resolution; then
|
||
function 855resolution () {
|
||
echo "Please use 915resolution as resolution modifying tool for Intel \
|
||
graphic chipset."
|
||
return -1
|
||
}
|
||
fi
|
||
|
||
#a1# Output version of running grml
|
||
alias grml-version='cat /etc/grml_version'
|
||
|
||
if check_com -c grml-debootstrap ; then
|
||
function debian2hd () {
|
||
echo "Installing debian to harddisk is possible by using grml-debootstrap."
|
||
return 1
|
||
}
|
||
fi
|
||
}
|
||
|
||
# now run the functions
|
||
isgrml && checkhome
|
||
is4 && isgrml && grmlstuff
|
||
is4 && grmlcomp
|
||
|
||
# keephack
|
||
is4 && xsource "/etc/zsh/keephack"
|
||
|
||
# wonderful idea of using "e" glob qualifier by Peter Stephenson
|
||
# You use it as follows:
|
||
# $ NTREF=/reference/file
|
||
# $ ls -l *(e:nt:)
|
||
# This lists all the files in the current directory newer than the reference file.
|
||
# You can also specify the reference file inline; note quotes:
|
||
# $ ls -l *(e:'nt ~/.zshenv':)
|
||
is4 && function nt () {
|
||
if [[ -n $1 ]] ; then
|
||
local NTREF=${~1}
|
||
fi
|
||
[[ $REPLY -nt $NTREF ]]
|
||
}
|
||
|
||
# shell functions
|
||
|
||
#f1# Reload an autoloadable function
|
||
function freload () { while (( $# )); do; unfunction $1; autoload -U $1; shift; done }
|
||
compdef _functions freload
|
||
|
||
#
|
||
# Usage:
|
||
#
|
||
# e.g.: a -> b -> c -> d ....
|
||
#
|
||
# sll a
|
||
#
|
||
#
|
||
# if parameter is given with leading '=', lookup $PATH for parameter and resolve that
|
||
#
|
||
# sll =java
|
||
#
|
||
# Note: limit for recursive symlinks on linux:
|
||
# http://git.kernel.org/cgit/linux/kernel/git/torvalds/linux.git/tree/fs/namei.c?id=refs/heads/master#l808
|
||
# This limits recursive symlink follows to 8,
|
||
# while limiting consecutive symlinks to 40.
|
||
#
|
||
# When resolving and displaying information about symlinks, no check is made
|
||
# that the displayed information does make any sense on your OS.
|
||
# We leave that decission to the user.
|
||
#
|
||
# The zstat module is used to detect symlink loops. zstat is available since zsh4.
|
||
# With an older zsh you will need to abort with <C-c> in that case.
|
||
# When a symlink loop is detected, a warning ist printed and further processing is stopped.
|
||
#
|
||
# Module zstat is loaded by default in grml zshrc, no extra action needed for that.
|
||
#
|
||
# Known bugs:
|
||
# If you happen to come across a symlink that points to a destination on another partition
|
||
# with the same inode number, that will be marked as symlink loop though it is not.
|
||
# Two hints for this situation:
|
||
# I) Play lottery the same day, as you seem to be rather lucky right now.
|
||
# II) Send patches.
|
||
#
|
||
# return status:
|
||
# 0 upon success
|
||
# 1 file/dir not accesible
|
||
# 2 symlink loop detected
|
||
#
|
||
#f1# List symlinks in detail (more detailed version of 'readlink -f', 'whence -s' and 'namei -l')
|
||
function sll () {
|
||
if [[ -z ${1} ]] ; then
|
||
printf 'Usage: %s <symlink(s)>\n' "${0}"
|
||
return 1
|
||
fi
|
||
|
||
local file jumpd curdir
|
||
local -i 10 RTN LINODE i
|
||
local -a SEENINODES
|
||
curdir="${PWD}"
|
||
RTN=0
|
||
|
||
for file in "${@}" ; do
|
||
SEENINODES=()
|
||
ls -l "${file:a}" || RTN=1
|
||
|
||
while [[ -h "$file" ]] ; do
|
||
if is4 ; then
|
||
LINODE=$(zstat -L +inode "${file}")
|
||
for i in ${SEENINODES} ; do
|
||
if (( ${i} == ${LINODE} )) ; then
|
||
builtin cd -q "${curdir}"
|
||
print 'link loop detected, aborting!'
|
||
return 2
|
||
fi
|
||
done
|
||
SEENINODES+=${LINODE}
|
||
fi
|
||
jumpd="${file:h}"
|
||
file="${file:t}"
|
||
|
||
if [[ -d ${jumpd} ]] ; then
|
||
builtin cd -q "${jumpd}" || RTN=1
|
||
fi
|
||
file=$(readlink "$file")
|
||
|
||
jumpd="${file:h}"
|
||
file="${file:t}"
|
||
|
||
if [[ -d ${jumpd} ]] ; then
|
||
builtin cd -q "${jumpd}" || RTN=1
|
||
fi
|
||
|
||
ls -l "${PWD}/${file}" || RTN=1
|
||
done
|
||
shift 1
|
||
if (( ${#} >= 1 )) ; then
|
||
print ""
|
||
fi
|
||
builtin cd -q "${curdir}"
|
||
done
|
||
return ${RTN}
|
||
}
|
||
|
||
# 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})
|
||
if check_com -c $PAGER ; then
|
||
#f3# View Debian's changelog of given package(s)
|
||
function dchange () {
|
||
emulate -L zsh
|
||
[[ -z "$1" ]] && printf 'Usage: %s <package_name(s)>\n' "$0" && return 1
|
||
|
||
local package
|
||
for package in "$@" ; do
|
||
if [[ -r /usr/share/doc/${package}/changelog.Debian.gz ]] ; then
|
||
$PAGER /usr/share/doc/${package}/changelog.Debian.gz
|
||
elif [[ -r /usr/share/doc/${package}/changelog.gz ]] ; then
|
||
$PAGER /usr/share/doc/${package}/changelog.gz
|
||
elif [[ -r /usr/share/doc/${package}/changelog ]] ; then
|
||
$PAGER /usr/share/doc/${package}/changelog
|
||
else
|
||
if check_com -c aptitude ; then
|
||
echo "No changelog for package $package found, using aptitude to retrieve it."
|
||
aptitude changelog "$package"
|
||
elif check_com -c apt-get ; then
|
||
echo "No changelog for package $package found, using apt-get to retrieve it."
|
||
apt-get changelog "$package"
|
||
else
|
||
echo "No changelog for package $package found, sorry."
|
||
fi
|
||
fi
|
||
done
|
||
}
|
||
function _dchange () { _files -W /usr/share/doc -/ }
|
||
compdef _dchange dchange
|
||
|
||
#f3# View Debian's NEWS of a given package
|
||
function dnews () {
|
||
emulate -L zsh
|
||
if [[ -r /usr/share/doc/$1/NEWS.Debian.gz ]] ; then
|
||
$PAGER /usr/share/doc/$1/NEWS.Debian.gz
|
||
else
|
||
if [[ -r /usr/share/doc/$1/NEWS.gz ]] ; then
|
||
$PAGER /usr/share/doc/$1/NEWS.gz
|
||
else
|
||
echo "No NEWS file for package $1 found, sorry."
|
||
return 1
|
||
fi
|
||
fi
|
||
}
|
||
function _dnews () { _files -W /usr/share/doc -/ }
|
||
compdef _dnews dnews
|
||
|
||
#f3# View Debian's copyright of a given package
|
||
function dcopyright () {
|
||
emulate -L zsh
|
||
if [[ -r /usr/share/doc/$1/copyright ]] ; then
|
||
$PAGER /usr/share/doc/$1/copyright
|
||
else
|
||
echo "No copyright file for package $1 found, sorry."
|
||
return 1
|
||
fi
|
||
}
|
||
function _dcopyright () { _files -W /usr/share/doc -/ }
|
||
compdef _dcopyright dcopyright
|
||
|
||
#f3# View upstream's changelog of a given package
|
||
function uchange () {
|
||
emulate -L zsh
|
||
if [[ -r /usr/share/doc/$1/changelog.gz ]] ; then
|
||
$PAGER /usr/share/doc/$1/changelog.gz
|
||
else
|
||
echo "No changelog for package $1 found, sorry."
|
||
return 1
|
||
fi
|
||
}
|
||
function _uchange () { _files -W /usr/share/doc -/ }
|
||
compdef _uchange uchange
|
||
fi
|
||
|
||
# zsh profiling
|
||
function profile () {
|
||
ZSH_PROFILE_RC=1 zsh "$@"
|
||
}
|
||
|
||
#f1# Edit an alias via zle
|
||
function edalias () {
|
||
[[ -z "$1" ]] && { echo "Usage: edalias <alias_to_edit>" ; return 1 } || vared aliases'[$1]' ;
|
||
}
|
||
compdef _aliases edalias
|
||
|
||
#f1# Edit a function via zle
|
||
function edfunc () {
|
||
[[ -z "$1" ]] && { echo "Usage: edfunc <function_to_edit>" ; return 1 } || zed -f "$1" ;
|
||
}
|
||
compdef _functions edfunc
|
||
|
||
# use it e.g. via 'Restart apache2'
|
||
#m# f6 Start() \kbd{service \em{process}}\quad\kbd{start}
|
||
#m# f6 Restart() \kbd{service \em{process}}\quad\kbd{restart}
|
||
#m# f6 Stop() \kbd{service \em{process}}\quad\kbd{stop}
|
||
#m# f6 Reload() \kbd{service \em{process}}\quad\kbd{reload}
|
||
#m# f6 Force-Reload() \kbd{service \em{process}}\quad\kbd{force-reload}
|
||
#m# f6 Status() \kbd{service \em{process}}\quad\kbd{status}
|
||
if [[ -d /etc/init.d || -d /etc/service ]] ; then
|
||
function __start_stop () {
|
||
local action_="${1:l}" # e.g Start/Stop/Restart
|
||
local service_="$2"
|
||
local param_="$3"
|
||
|
||
local service_target_="$(readlink /etc/init.d/$service_)"
|
||
if [[ $service_target_ == "/usr/bin/sv" ]]; then
|
||
# runit
|
||
case "${action_}" in
|
||
start) if [[ ! -e /etc/service/$service_ ]]; then
|
||
$SUDO ln -s "/etc/sv/$service_" "/etc/service/"
|
||
else
|
||
$SUDO "/etc/init.d/$service_" "${action_}" "$param_"
|
||
fi ;;
|
||
# there is no reload in runits sysv emulation
|
||
reload) $SUDO "/etc/init.d/$service_" "force-reload" "$param_" ;;
|
||
*) $SUDO "/etc/init.d/$service_" "${action_}" "$param_" ;;
|
||
esac
|
||
else
|
||
# sysv/sysvinit-utils, upstart
|
||
if check_com -c service ; then
|
||
$SUDO service "$service_" "${action_}" "$param_"
|
||
else
|
||
$SUDO "/etc/init.d/$service_" "${action_}" "$param_"
|
||
fi
|
||
fi
|
||
}
|
||
|
||
function _grmlinitd () {
|
||
local -a scripts
|
||
scripts=( /etc/init.d/*(x:t) )
|
||
_describe "service startup script" scripts
|
||
}
|
||
|
||
for i in Start Restart Stop Force-Reload Reload Status ; do
|
||
eval "function $i () { __start_stop $i \"\$1\" \"\$2\" ; }"
|
||
compdef _grmlinitd $i
|
||
done
|
||
builtin unset -v i
|
||
fi
|
||
|
||
#f1# Provides useful information on globbing
|
||
function H-Glob () {
|
||
echo -e "
|
||
/ directories
|
||
. plain files
|
||
@ symbolic links
|
||
= sockets
|
||
p named pipes (FIFOs)
|
||
* executable plain files (0100)
|
||
% device files (character or block special)
|
||
%b block special files
|
||
%c character special files
|
||
r owner-readable files (0400)
|
||
w owner-writable files (0200)
|
||
x owner-executable files (0100)
|
||
A group-readable files (0040)
|
||
I group-writable files (0020)
|
||
E group-executable files (0010)
|
||
R world-readable files (0004)
|
||
W world-writable files (0002)
|
||
X world-executable files (0001)
|
||
s setuid files (04000)
|
||
S setgid files (02000)
|
||
t files with the sticky bit (01000)
|
||
|
||
print *(m-1) # Files modified up to a day ago
|
||
print *(a1) # Files accessed a day ago
|
||
print *(@) # Just symlinks
|
||
print *(Lk+50) # Files bigger than 50 kilobytes
|
||
print *(Lk-50) # Files smaller than 50 kilobytes
|
||
print **/*.c # All *.c files recursively starting in \$PWD
|
||
print **/*.c~file.c # Same as above, but excluding 'file.c'
|
||
print (foo|bar).* # Files starting with 'foo' or 'bar'
|
||
print *~*.* # All Files that do not contain a dot
|
||
chmod 644 *(.^x) # make all plain non-executable files publically readable
|
||
print -l *(.c|.h) # Lists *.c and *.h
|
||
print **/*(g:users:) # Recursively match all files that are owned by group 'users'
|
||
echo /proc/*/cwd(:h:t:s/self//) # Analogous to >ps ax | awk '{print $1}'<"
|
||
}
|
||
alias help-zshglob=H-Glob
|
||
|
||
# grep for running process, like: 'any vim'
|
||
function any () {
|
||
emulate -L zsh
|
||
unsetopt KSH_ARRAYS
|
||
if [[ -z "$1" ]] ; then
|
||
echo "any - grep for process(es) by keyword" >&2
|
||
echo "Usage: any <keyword>" >&2 ; return 1
|
||
else
|
||
ps xauwww | grep -i "${grep_options[@]}" "[${1[1]}]${1[2,-1]}"
|
||
fi
|
||
}
|
||
|
||
|
||
# After resuming from suspend, system is paging heavily, leading to very bad interactivity.
|
||
# taken from $LINUX-KERNELSOURCE/Documentation/power/swsusp.txt
|
||
[[ -r /proc/1/maps ]] && \
|
||
function 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.'
|
||
}
|
||
|
||
# a wrapper for vim, that deals with title setting
|
||
# VIM_OPTIONS
|
||
# set this array to a set of options to vim you always want
|
||
# to have set when calling vim (in .zshrc.local), like:
|
||
# VIM_OPTIONS=( -p )
|
||
# This will cause vim to send every file given on the
|
||
# commandline to be send to it's own tab (needs vim7).
|
||
if check_com vim; then
|
||
function vim () {
|
||
VIM_PLEASE_SET_TITLE='yes' command vim ${VIM_OPTIONS} "$@"
|
||
}
|
||
fi
|
||
|
||
ssl_hashes=( sha512 sha256 sha1 md5 )
|
||
|
||
for sh in ${ssl_hashes}; do
|
||
eval 'ssl-cert-'${sh}'() {
|
||
emulate -L zsh
|
||
if [[ -z $1 ]] ; then
|
||
printf '\''usage: %s <file>\n'\'' "ssh-cert-'${sh}'"
|
||
return 1
|
||
fi
|
||
openssl x509 -noout -fingerprint -'${sh}' -in $1
|
||
}'
|
||
done; unset sh
|
||
|
||
function ssl-cert-fingerprints () {
|
||
emulate -L zsh
|
||
local i
|
||
if [[ -z $1 ]] ; then
|
||
printf 'usage: ssl-cert-fingerprints <file>\n'
|
||
return 1
|
||
fi
|
||
for i in ${ssl_hashes}
|
||
do ssl-cert-$i $1;
|
||
done
|
||
}
|
||
|
||
function ssl-cert-info () {
|
||
emulate -L zsh
|
||
if [[ -z $1 ]] ; then
|
||
printf 'usage: ssl-cert-info <file>\n'
|
||
return 1
|
||
fi
|
||
openssl x509 -noout -text -in $1
|
||
ssl-cert-fingerprints $1
|
||
}
|
||
|
||
# make sure our environment is clean regarding colors
|
||
builtin unset -v BLUE RED GREEN CYAN YELLOW MAGENTA WHITE NO_COLOR
|
||
|
||
# "persistent history"
|
||
# just write important commands you always need to $GRML_IMPORTANT_COMMANDS
|
||
# defaults for backward compatibility to ~/.important_commands
|
||
if [[ -r ~/.important_commands ]] ; then
|
||
GRML_IMPORTANT_COMMANDS=~/.important_commands
|
||
else
|
||
GRML_IMPORTANT_COMMANDS=${GRML_IMPORTANT_COMMANDS:-${ZDOTDIR:-${HOME}}/.important_commands}
|
||
fi
|
||
[[ -r ${GRML_IMPORTANT_COMMANDS} ]] && builtin fc -R ${GRML_IMPORTANT_COMMANDS}
|
||
|
||
# load the lookup subsystem if it's available on the system
|
||
zrcautoload lookupinit && lookupinit
|
||
|
||
# variables
|
||
|
||
# set terminal property (used e.g. by msgid-chooser)
|
||
export COLORTERM="yes"
|
||
|
||
# aliases
|
||
|
||
# general
|
||
#a2# Execute \kbd{du -sch}
|
||
[[ -n "$GRML_NO_SMALL_ALIASES" ]] || alias da='du -sch'
|
||
|
||
# listing stuff
|
||
#a2# Execute \kbd{ls -lSrah}
|
||
alias dir="command ls -lSrah"
|
||
#a2# Only show dot-directories
|
||
alias lad='command ls -d .*(/)'
|
||
#a2# Only show dot-files
|
||
alias lsa='command ls -a .*(.)'
|
||
#a2# Only files with setgid/setuid/sticky flag
|
||
alias lss='command ls -l *(s,S,t)'
|
||
#a2# Only show symlinks
|
||
alias lsl='command ls -l *(@)'
|
||
#a2# Display only executables
|
||
alias lsx='command ls -l *(*)'
|
||
#a2# Display world-{readable,writable,executable} files
|
||
alias lsw='command ls -ld *(R,W,X.^ND/)'
|
||
#a2# Display the ten biggest files
|
||
alias lsbig="command ls -flh *(.OL[1,10])"
|
||
#a2# Only show directories
|
||
alias lsd='command ls -d *(/)'
|
||
#a2# Only show empty directories
|
||
alias lse='command ls -d *(/^F)'
|
||
#a2# Display the ten newest files
|
||
alias lsnew="command ls -rtlh *(D.om[1,10])"
|
||
#a2# Display the ten oldest files
|
||
alias lsold="command ls -rtlh *(D.Om[1,10])"
|
||
#a2# Display the ten smallest files
|
||
alias lssmall="command ls -Srl *(.oL[1,10])"
|
||
#a2# Display the ten newest directories and ten newest .directories
|
||
alias lsnewdir="command ls -rthdl *(/om[1,10]) .*(D/om[1,10])"
|
||
#a2# Display the ten oldest directories and ten oldest .directories
|
||
alias lsolddir="command ls -rthdl *(/Om[1,10]) .*(D/Om[1,10])"
|
||
|
||
# some useful aliases
|
||
#a2# Remove current empty directory. Execute \kbd{cd ..; rmdir \$OLDCWD}
|
||
alias rmcdir='cd ..; rmdir $OLDPWD || cd $OLDPWD'
|
||
|
||
#a2# ssh with StrictHostKeyChecking=no \\&\quad and UserKnownHostsFile unset
|
||
alias insecssh='ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
|
||
#a2# scp with StrictHostKeyChecking=no \\&\quad and UserKnownHostsFile unset
|
||
alias insecscp='scp -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null"'
|
||
|
||
# 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
|
||
isutfenv && [[ -n "$LANG" ]] && \
|
||
alias mrxvt="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit mrxvt"
|
||
fi
|
||
|
||
if check_com -c aterm ; then
|
||
isutfenv && [[ -n "$LANG" ]] && \
|
||
alias aterm="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit aterm"
|
||
fi
|
||
|
||
if check_com -c centericq ; then
|
||
isutfenv && [[ -n "$LANG" ]] && \
|
||
alias centericq="LANG=${LANG/(#b)(*)[.@]*/$match[1].iso885915} luit centericq"
|
||
fi
|
||
fi
|
||
|
||
# useful functions
|
||
|
||
#f5# Backup \kbd{file_or_folder {\rm to} file_or_folder\_timestamp}
|
||
function bk () {
|
||
emulate -L zsh
|
||
local current_date=$(date -u "+%Y-%m-%dT%H:%M:%SZ")
|
||
local clean keep move verbose result all to_bk
|
||
setopt extended_glob
|
||
keep=1
|
||
while getopts ":hacmrv" opt; do
|
||
case $opt in
|
||
a) (( all++ ));;
|
||
c) unset move clean && (( ++keep ));;
|
||
m) unset keep clean && (( ++move ));;
|
||
r) unset move keep && (( ++clean ));;
|
||
v) verbose="-v";;
|
||
h) <<__EOF0__
|
||
bk [-hcmv] FILE [FILE ...]
|
||
bk -r [-av] [FILE [FILE ...]]
|
||
Backup a file or folder in place and append the timestamp
|
||
Remove backups of a file or folder, or all backups in the current directory
|
||
|
||
Usage:
|
||
-h Display this help text
|
||
-c Keep the file/folder as is, create a copy backup using cp(1) (default)
|
||
-m Move the file/folder, using mv(1)
|
||
-r Remove backups of the specified file or directory, using rm(1). If none
|
||
is provided, remove all backups in the current directory.
|
||
-a Remove all (even hidden) backups.
|
||
-v Verbose
|
||
|
||
The -c, -r and -m options are mutually exclusive. If specified at the same time,
|
||
the last one is used.
|
||
|
||
The return code is the sum of all cp/mv/rm return codes.
|
||
__EOF0__
|
||
return 0;;
|
||
\?) bk -h >&2; return 1;;
|
||
esac
|
||
done
|
||
shift "$((OPTIND-1))"
|
||
if (( keep > 0 )); then
|
||
if islinux || isfreebsd; then
|
||
for to_bk in "$@"; do
|
||
cp $verbose -a "${to_bk%/}" "${to_bk%/}_$current_date"
|
||
(( result += $? ))
|
||
done
|
||
else
|
||
for to_bk in "$@"; do
|
||
cp $verbose -pR "${to_bk%/}" "${to_bk%/}_$current_date"
|
||
(( result += $? ))
|
||
done
|
||
fi
|
||
elif (( move > 0 )); then
|
||
while (( $# > 0 )); do
|
||
mv $verbose "${1%/}" "${1%/}_$current_date"
|
||
(( result += $? ))
|
||
shift
|
||
done
|
||
elif (( clean > 0 )); then
|
||
if (( $# > 0 )); then
|
||
for to_bk in "$@"; do
|
||
rm $verbose -rf "${to_bk%/}"_[0-9](#c4,)-(0[0-9]|1[0-2])-([0-2][0-9]|3[0-1])T([0-1][0-9]|2[0-3])(:[0-5][0-9])(#c2)Z
|
||
(( result += $? ))
|
||
done
|
||
else
|
||
if (( all > 0 )); then
|
||
rm $verbose -rf *_[0-9](#c4,)-(0[0-9]|1[0-2])-([0-2][0-9]|3[0-1])T([0-1][0-9]|2[0-3])(:[0-5][0-9])(#c2)Z(D)
|
||
else
|
||
rm $verbose -rf *_[0-9](#c4,)-(0[0-9]|1[0-2])-([0-2][0-9]|3[0-1])T([0-1][0-9]|2[0-3])(:[0-5][0-9])(#c2)Z
|
||
fi
|
||
(( result += $? ))
|
||
fi
|
||
fi
|
||
return $result
|
||
}
|
||
|
||
#f5# cd to directory and list files
|
||
function cl () {
|
||
emulate -L zsh
|
||
cd $1 && ls -a
|
||
}
|
||
|
||
# smart cd function, allows switching to /etc when running 'cd /etc/fstab'
|
||
function cd () {
|
||
if (( ${#argv} == 1 )) && [[ -f ${1} ]]; then
|
||
[[ ! -e ${1:h} ]] && return 1
|
||
print "Correcting ${1} to ${1:h}"
|
||
builtin cd ${1:h}
|
||
else
|
||
builtin cd "$@"
|
||
fi
|
||
}
|
||
|
||
#f5# Create Directory and \kbd{cd} to it
|
||
function mkcd () {
|
||
if (( ARGC != 1 )); then
|
||
printf 'usage: mkcd <new-directory>\n'
|
||
return 1;
|
||
fi
|
||
if [[ ! -d "$1" ]]; then
|
||
command mkdir -p "$1"
|
||
else
|
||
printf '`%s'\'' already exists: cd-ing.\n' "$1"
|
||
fi
|
||
builtin cd "$1"
|
||
}
|
||
|
||
#f5# Create temporary directory and \kbd{cd} to it
|
||
function cdt () {
|
||
builtin cd "$(mktemp -d)"
|
||
builtin pwd
|
||
}
|
||
|
||
#f5# List files which have been accessed within the last {\it n} days, {\it n} defaults to 1
|
||
function accessed () {
|
||
emulate -L zsh
|
||
print -l -- *(a-${1:-1})
|
||
}
|
||
|
||
#f5# List files which have been changed within the last {\it n} days, {\it n} defaults to 1
|
||
function changed () {
|
||
emulate -L zsh
|
||
print -l -- *(c-${1:-1})
|
||
}
|
||
|
||
#f5# List files which have been modified within the last {\it n} days, {\it n} defaults to 1
|
||
function modified () {
|
||
emulate -L zsh
|
||
print -l -- *(m-${1:-1})
|
||
}
|
||
# modified() was named new() in earlier versions, add an alias for backwards compatibility
|
||
check_com new || alias new=modified
|
||
|
||
# use colors when GNU grep with color-support
|
||
if (( $#grep_options > 0 )); then
|
||
o=${grep_options:+"${grep_options[*]}"}
|
||
#a2# Execute \kbd{grep -{}-color=auto}
|
||
alias grep='grep '$o
|
||
alias egrep='egrep '$o
|
||
unset o
|
||
fi
|
||
|
||
# Translate DE<=>EN
|
||
# 'translate' looks up a word in a file with language-to-language
|
||
# translations (field separator should be " : "). A typical wordlist looks
|
||
# like the following:
|
||
# | english-word : german-translation
|
||
# It's also only possible to translate english to german but not reciprocal.
|
||
# Use the following oneliner to reverse the sort order:
|
||
# $ awk -F ':' '{ print $2" : "$1" "$3 }' \
|
||
# /usr/local/lib/words/en-de.ISO-8859-1.vok > ~/.translate/de-en.ISO-8859-1.vok
|
||
#f5# Translates a word
|
||
function trans () {
|
||
emulate -L zsh
|
||
case "$1" in
|
||
-[dD]*)
|
||
translate -l de-en $2
|
||
;;
|
||
-[eE]*)
|
||
translate -l en-de $2
|
||
;;
|
||
*)
|
||
echo "Usage: $0 { -D | -E }"
|
||
echo " -D == German to English"
|
||
echo " -E == English to German"
|
||
esac
|
||
}
|
||
|
||
# Usage: simple-extract <file>
|
||
# Using option -d deletes the original archive file.
|
||
#f5# Smart archive extractor
|
||
function simple-extract () {
|
||
emulate -L zsh
|
||
setopt extended_glob noclobber
|
||
local ARCHIVE DELETE_ORIGINAL DECOMP_CMD USES_STDIN USES_STDOUT GZTARGET WGET_CMD
|
||
local RC=0
|
||
zparseopts -D -E "d=DELETE_ORIGINAL"
|
||
for ARCHIVE in "${@}"; do
|
||
case $ARCHIVE in
|
||
*(tar.bz2|tbz2|tbz))
|
||
DECOMP_CMD="tar -xvjf -"
|
||
USES_STDIN=true
|
||
USES_STDOUT=false
|
||
;;
|
||
*(tar.gz|tgz))
|
||
DECOMP_CMD="tar -xvzf -"
|
||
USES_STDIN=true
|
||
USES_STDOUT=false
|
||
;;
|
||
*(tar.xz|txz|tar.lzma))
|
||
DECOMP_CMD="tar -xvJf -"
|
||
USES_STDIN=true
|
||
USES_STDOUT=false
|
||
;;
|
||
*tar)
|
||
DECOMP_CMD="tar -xvf -"
|
||
USES_STDIN=true
|
||
USES_STDOUT=false
|
||
;;
|
||
*rar)
|
||
DECOMP_CMD="unrar x"
|
||
USES_STDIN=false
|
||
USES_STDOUT=false
|
||
;;
|
||
*lzh)
|
||
DECOMP_CMD="lha x"
|
||
USES_STDIN=false
|
||
USES_STDOUT=false
|
||
;;
|
||
*7z)
|
||
DECOMP_CMD="7z x"
|
||
USES_STDIN=false
|
||
USES_STDOUT=false
|
||
;;
|
||
*(zip|jar))
|
||
DECOMP_CMD="unzip"
|
||
USES_STDIN=false
|
||
USES_STDOUT=false
|
||
;;
|
||
*deb)
|
||
DECOMP_CMD="ar -x"
|
||
USES_STDIN=false
|
||
USES_STDOUT=false
|
||
;;
|
||
*bz2)
|
||
DECOMP_CMD="bzip2 -d -c -"
|
||
USES_STDIN=true
|
||
USES_STDOUT=true
|
||
;;
|
||
*(gz|Z))
|
||
DECOMP_CMD="gzip -d -c -"
|
||
USES_STDIN=true
|
||
USES_STDOUT=true
|
||
;;
|
||
*(xz|lzma))
|
||
DECOMP_CMD="xz -d -c -"
|
||
USES_STDIN=true
|
||
USES_STDOUT=true
|
||
;;
|
||
*)
|
||
print "ERROR: '$ARCHIVE' has unrecognized archive type." >&2
|
||
RC=$((RC+1))
|
||
continue
|
||
;;
|
||
esac
|
||
|
||
if ! check_com ${DECOMP_CMD[(w)1]}; then
|
||
echo "ERROR: ${DECOMP_CMD[(w)1]} not installed." >&2
|
||
RC=$((RC+2))
|
||
continue
|
||
fi
|
||
|
||
GZTARGET="${ARCHIVE:t:r}"
|
||
if [[ -f $ARCHIVE ]] ; then
|
||
|
||
print "Extracting '$ARCHIVE' ..."
|
||
if $USES_STDIN; then
|
||
if $USES_STDOUT; then
|
||
${=DECOMP_CMD} < "$ARCHIVE" > $GZTARGET
|
||
else
|
||
${=DECOMP_CMD} < "$ARCHIVE"
|
||
fi
|
||
else
|
||
if $USES_STDOUT; then
|
||
${=DECOMP_CMD} "$ARCHIVE" > $GZTARGET
|
||
else
|
||
${=DECOMP_CMD} "$ARCHIVE"
|
||
fi
|
||
fi
|
||
[[ $? -eq 0 && -n "$DELETE_ORIGINAL" ]] && rm -f "$ARCHIVE"
|
||
|
||
elif [[ "$ARCHIVE" == (#s)(https|http|ftp)://* ]] ; then
|
||
if check_com curl; then
|
||
WGET_CMD="curl -L -s -o -"
|
||
elif check_com wget; then
|
||
WGET_CMD="wget -q -O -"
|
||
elif check_com fetch; then
|
||
WGET_CMD="fetch -q -o -"
|
||
else
|
||
print "ERROR: neither wget, curl nor fetch is installed" >&2
|
||
RC=$((RC+4))
|
||
continue
|
||
fi
|
||
print "Downloading and Extracting '$ARCHIVE' ..."
|
||
if $USES_STDIN; then
|
||
if $USES_STDOUT; then
|
||
${=WGET_CMD} "$ARCHIVE" | ${=DECOMP_CMD} > $GZTARGET
|
||
RC=$((RC+$?))
|
||
else
|
||
${=WGET_CMD} "$ARCHIVE" | ${=DECOMP_CMD}
|
||
RC=$((RC+$?))
|
||
fi
|
||
else
|
||
if $USES_STDOUT; then
|
||
${=DECOMP_CMD} =(${=WGET_CMD} "$ARCHIVE") > $GZTARGET
|
||
else
|
||
${=DECOMP_CMD} =(${=WGET_CMD} "$ARCHIVE")
|
||
fi
|
||
fi
|
||
|
||
else
|
||
print "ERROR: '$ARCHIVE' is neither a valid file nor a supported URI." >&2
|
||
RC=$((RC+8))
|
||
fi
|
||
done
|
||
return $RC
|
||
}
|
||
|
||
function __archive_or_uri () {
|
||
_alternative \
|
||
'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)"' \
|
||
'_urls:Remote Archives:_urls'
|
||
}
|
||
|
||
function _simple_extract () {
|
||
_arguments \
|
||
'-d[delete original archivefile after extraction]' \
|
||
'*:Archive Or Uri:__archive_or_uri'
|
||
}
|
||
compdef _simple_extract simple-extract
|
||
[[ -n "$GRML_NO_SMALL_ALIASES" ]] || alias se=simple-extract
|
||
|
||
#f5# Change the xterm title from within GNU-screen
|
||
function xtrename () {
|
||
emulate -L zsh
|
||
if [[ $1 != "-f" ]] ; then
|
||
if [[ -z ${DISPLAY} ]] ; then
|
||
printf 'xtrename only makes sense in X11.\n'
|
||
return 1
|
||
fi
|
||
else
|
||
shift
|
||
fi
|
||
if [[ -z $1 ]] ; then
|
||
printf 'usage: xtrename [-f] "title for xterm"\n'
|
||
printf ' renames the title of xterm from _within_ screen.\n'
|
||
printf ' also works without screen.\n'
|
||
printf ' will not work if DISPLAY is unset, use -f to override.\n'
|
||
return 0
|
||
fi
|
||
print -n "\eP\e]0;${1}\C-G\e\\"
|
||
return 0
|
||
}
|
||
|
||
# Create small urls via http://goo.gl using curl(1).
|
||
# API reference: https://code.google.com/apis/urlshortener/
|
||
function zurl () {
|
||
emulate -L zsh
|
||
setopt extended_glob
|
||
|
||
if [[ -z $1 ]]; then
|
||
print "USAGE: zurl <URL>"
|
||
return 1
|
||
fi
|
||
|
||
local PN url prog api json contenttype item
|
||
local -a data
|
||
PN=$0
|
||
url=$1
|
||
|
||
# Prepend 'http://' to given URL where necessary for later output.
|
||
if [[ ${url} != http(s|)://* ]]; then
|
||
url='http://'${url}
|
||
fi
|
||
|
||
if check_com -c curl; then
|
||
prog=curl
|
||
else
|
||
print "curl is not available, but mandatory for ${PN}. Aborting."
|
||
return 1
|
||
fi
|
||
api='https://www.googleapis.com/urlshortener/v1/url'
|
||
contenttype="Content-Type: application/json"
|
||
json="{\"longUrl\": \"${url}\"}"
|
||
data=(${(f)"$($prog --silent -H ${contenttype} -d ${json} $api)"})
|
||
# Parse the response
|
||
for item in "${data[@]}"; do
|
||
case "$item" in
|
||
' '#'"id":'*)
|
||
item=${item#*: \"}
|
||
item=${item%\",*}
|
||
printf '%s\n' "$item"
|
||
return 0
|
||
;;
|
||
esac
|
||
done
|
||
return 1
|
||
}
|
||
|
||
#f2# Find history events by search pattern and list them by date.
|
||
function whatwhen () {
|
||
emulate -L zsh
|
||
local usage help ident format_l format_s first_char remain first last
|
||
usage='USAGE: whatwhen [options] <searchstring> <search range>'
|
||
help='Use `whatwhen -h'\'' for further explanations.'
|
||
ident=${(l,${#${:-Usage: }},, ,)}
|
||
format_l="${ident}%s\t\t\t%s\n"
|
||
format_s="${format_l//(\\t)##/\\t}"
|
||
# Make the first char of the word to search for case
|
||
# insensitive; e.g. [aA]
|
||
first_char=[${(L)1[1]}${(U)1[1]}]
|
||
remain=${1[2,-1]}
|
||
# Default search range is `-100'.
|
||
first=${2:-\-100}
|
||
# Optional, just used for `<first> <last>' given.
|
||
last=$3
|
||
case $1 in
|
||
("")
|
||
printf '%s\n\n' 'ERROR: No search string specified. Aborting.'
|
||
printf '%s\n%s\n\n' ${usage} ${help} && return 1
|
||
;;
|
||
(-h)
|
||
printf '%s\n\n' ${usage}
|
||
print 'OPTIONS:'
|
||
printf $format_l '-h' 'show help text'
|
||
print '\f'
|
||
print 'SEARCH RANGE:'
|
||
printf $format_l "'0'" 'the whole history,'
|
||
printf $format_l '-<n>' 'offset to the current history number; (default: -100)'
|
||
printf $format_s '<[-]first> [<last>]' 'just searching within a give range'
|
||
printf '\n%s\n' 'EXAMPLES:'
|
||
printf ${format_l/(\\t)/} 'whatwhen grml' '# Range is set to -100 by default.'
|
||
printf $format_l 'whatwhen zsh -250'
|
||
printf $format_l 'whatwhen foo 1 99'
|
||
;;
|
||
(\?)
|
||
printf '%s\n%s\n\n' ${usage} ${help} && return 1
|
||
;;
|
||
(*)
|
||
# -l list results on stout rather than invoking $EDITOR.
|
||
# -i Print dates as in YYYY-MM-DD.
|
||
# -m Search for a - quoted - pattern within the history.
|
||
fc -li -m "*${first_char}${remain}*" $first $last
|
||
;;
|
||
esac
|
||
}
|
||
|
||
# mercurial related stuff
|
||
if check_com -c hg ; then
|
||
# gnu like diff for mercurial
|
||
# http://www.selenic.com/mercurial/wiki/index.cgi/TipsAndTricks
|
||
#f5# GNU like diff for mercurial
|
||
function hgdi () {
|
||
emulate -L zsh
|
||
local i
|
||
for i in $(hg status -marn "$@") ; diff -ubwd <(hg cat "$i") "$i"
|
||
}
|
||
|
||
# build debian package
|
||
#a2# Alias for \kbd{hg-buildpackage}
|
||
alias hbp='hg-buildpackage'
|
||
|
||
# execute commands on the versioned patch-queue from the current repos
|
||
[[ -n "$GRML_NO_SMALL_ALIASES" ]] || alias mq='hg -R $(readlink -f $(hg root)/.hg/patches)'
|
||
|
||
# diffstat for specific version of a mercurial repository
|
||
# hgstat => display diffstat between last revision and tip
|
||
# hgstat 1234 => display diffstat between revision 1234 and tip
|
||
#f5# Diffstat for specific version of a mercurial repos
|
||
function hgstat () {
|
||
emulate -L zsh
|
||
[[ -n "$1" ]] && hg diff -r $1 -r tip | diffstat || hg export tip | diffstat
|
||
}
|
||
|
||
fi # end of check whether we have the 'hg'-executable
|
||
|
||
# grml-small cleanups
|
||
|
||
# The following is used to remove zsh-config-items that do not work
|
||
# in grml-small by default.
|
||
# If you do not want these adjustments (for whatever reason), set
|
||
# $GRMLSMALL_SPECIFIC to 0 in your .zshrc.pre file (which this configuration
|
||
# sources if it is there).
|
||
|
||
if (( GRMLSMALL_SPECIFIC > 0 )) && isgrmlsmall ; then
|
||
|
||
unset "abk[V]"
|
||
unalias 'V' &> /dev/null
|
||
unfunction vman &> /dev/null
|
||
unfunction viless &> /dev/null
|
||
unfunction 2html &> /dev/null
|
||
|
||
# manpages are not in grmlsmall
|
||
unfunction manzsh &> /dev/null
|
||
unfunction man2 &> /dev/null
|
||
|
||
fi
|
||
|
||
zrclocal
|
||
|
||
## genrefcard.pl settings
|
||
|
||
### doc strings for external functions from files
|
||
#m# f5 grml-wallpaper() Sets a wallpaper (try completion for possible values)
|
||
|
||
### example: split functions-search 8,16,24,32
|
||
#@# split functions-search 8
|
||
|
||
## END OF FILE #################################################################
|
||
# vim:filetype=zsh foldmethod=marker autoindent expandtab shiftwidth=4
|
||
# Local variables:
|
||
# mode: sh
|
||
# End:
|