summaryrefslogtreecommitdiff
path: root/roles/zsh/files
diff options
context:
space:
mode:
authorChristian Pointner <equinox@spreadspace.org>2020-05-31 23:12:36 +0200
committerChristian Pointner <equinox@spreadspace.org>2020-05-31 23:12:36 +0200
commit3a2319c9c58886a7938deabafc66ad4bc128c9f8 (patch)
tree222b41b5b49633b9156c070df830d5c73617edd7 /roles/zsh/files
parentchaos-at-home: deploy apt-repo/base to some more hosts (diff)
move core roles to subdir
Diffstat (limited to 'roles/zsh/files')
-rw-r--r--roles/zsh/files/zshrc3756
-rw-r--r--roles/zsh/files/zshrc.skel336
2 files changed, 0 insertions, 4092 deletions
diff --git a/roles/zsh/files/zshrc b/roles/zsh/files/zshrc
deleted file mode 100644
index 6b289404..00000000
--- a/roles/zsh/files/zshrc
+++ /dev/null
@@ -1,3756 +0,0 @@
-# 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-e 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 overwriten 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 prevously 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 '^ed' 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=${ZDOTDIR:-${HOME}}/.zsh_history
-isgrmlcd && HISTSIZE=500 || HISTSIZE=5000
-isgrmlcd && SAVEHIST=1000 || 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
- # reenabled 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
-# reenabled 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 accross a symlink that points to a destination on an other 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 directoy 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 Directoy 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:
diff --git a/roles/zsh/files/zshrc.skel b/roles/zsh/files/zshrc.skel
deleted file mode 100644
index 8695b4db..00000000
--- a/roles/zsh/files/zshrc.skel
+++ /dev/null
@@ -1,336 +0,0 @@
-# Filename: /etc/skel/.zshrc
-# Purpose: config file for zsh (z shell)
-# Authors: (c) grml-team (grml.org)
-# Bug-Reports: see http://grml.org/bugs/
-# License: This file is licensed under the GPL v2 or any later version.
-################################################################################
-# Nowadays, grml's zsh setup lives in only *one* zshrc file.
-# That is the global one: /etc/zsh/zshrc (from grml-etc-core).
-# It is best to leave *this* file untouched and do personal changes to
-# your zsh setup via ${HOME}/.zshrc.local which is loaded at the end of
-# the global zshrc.
-#
-# That way, we enable people on other operating systems to use our
-# setup, too, just by copying our global zshrc to their ${HOME}/.zshrc.
-# Adjustments would still go to the .zshrc.local file.
-################################################################################
-
-## Inform users about upgrade path for grml's old zshrc layout, assuming that:
-## /etc/skel/.zshrc was installed as ~/.zshrc,
-## /etc/zsh/zshrc was installed as ~/.zshrc.global and
-## ~/.zshrc.local does not exist yet.
-if [ -r ~/.zshrc -a -r ~/.zshrc.global -a ! -r ~/.zshrc.local ] ; then
- printf '-!-\n'
- printf '-!- Looks like you are using the old zshrc layout of grml.\n'
- printf '-!- Please read the notes in the grml-zsh-refcard, being'
- printf '-!- available at: http://grml.org/zsh/\n'
- printf '-!-\n'
- printf '-!- If you just want to get rid of this warning message execute:\n'
- printf '-!- touch ~/.zshrc.local\n'
- printf '-!-\n'
-fi
-
-## Settings for umask
-#if (( EUID == 0 )); then
-# umask 002
-#else
-# umask 022
-#fi
-
-## Now, we'll give a few examples of what you might want to use in your
-## .zshrc.local file (just copy'n'paste and uncomment it there):
-
-## Prompt theme extension ##
-
-# Virtualenv support
-
-#function virtual_env_prompt () {
-# REPLY=${VIRTUAL_ENV+(${VIRTUAL_ENV:t}) }
-#}
-#grml_theme_add_token virtual-env -f virtual_env_prompt '%F{magenta}' '%f'
-#zstyle ':prompt:grml:left:setup' items rc virtual-env change-root user at host path vcs percent
-
-## ZLE tweaks ##
-
-## use the vi navigation keys (hjkl) besides cursor keys in menu completion
-#bindkey -M menuselect 'h' vi-backward-char # left
-#bindkey -M menuselect 'k' vi-up-line-or-history # up
-#bindkey -M menuselect 'l' vi-forward-char # right
-#bindkey -M menuselect 'j' vi-down-line-or-history # bottom
-
-## set command prediction from history, see 'man 1 zshcontrib'
-#is4 && zrcautoload predict-on && \
-#zle -N predict-on && \
-#zle -N predict-off && \
-#bindkey "^X^Z" predict-on && \
-#bindkey "^Z" predict-off
-
-## press ctrl-q to quote line:
-#mquote () {
-# zle beginning-of-line
-# zle forward-word
-# # RBUFFER="'$RBUFFER'"
-# RBUFFER=${(q)RBUFFER}
-# zle end-of-line
-#}
-#zle -N mquote && bindkey '^q' mquote
-
-## define word separators (for stuff like backward-word, forward-word, backward-kill-word,..)
-#WORDCHARS='*?_-.[]~=/&;!#$%^(){}<>' # the default
-#WORDCHARS=.
-#WORDCHARS='*?_[]~=&;!#$%^(){}'
-#WORDCHARS='${WORDCHARS:s@/@}'
-
-# just type '...' to get '../..'
-#rationalise-dot() {
-#local MATCH
-#if [[ $LBUFFER =~ '(^|/| | |'$'\n''|\||;|&)\.\.$' ]]; then
-# LBUFFER+=/
-# zle self-insert
-# zle self-insert
-#else
-# zle self-insert
-#fi
-#}
-#zle -N rationalise-dot
-#bindkey . rationalise-dot
-## without this, typing a . aborts incremental history search
-#bindkey -M isearch . self-insert
-
-#bindkey '\eq' push-line-or-edit
-
-## some popular options ##
-
-## add `|' to output redirections in the history
-#setopt histallowclobber
-
-## try to avoid the 'zsh: no matches found...'
-#setopt nonomatch
-
-## warning if file exists ('cat /dev/null > ~/.zshrc')
-#setopt NO_clobber
-
-## don't warn me about bg processes when exiting
-#setopt nocheckjobs
-
-## alert me if something failed
-#setopt printexitvalue
-
-## with spelling correction, assume dvorak kb
-#setopt dvorak
-
-## Allow comments even in interactive shells
-#setopt interactivecomments
-
-
-## compsys related snippets ##
-
-## changed completer settings
-#zstyle ':completion:*' completer _complete _correct _approximate
-#zstyle ':completion:*' expand prefix suffix
-
-## another different completer setting: expand shell aliases
-#zstyle ':completion:*' completer _expand_alias _complete _approximate
-
-## to have more convenient account completion, specify your logins:
-#my_accounts=(
-# {grml,grml1}@foo.invalid
-# grml-devel@bar.invalid
-#)
-#other_accounts=(
-# {fred,root}@foo.invalid
-# vera@bar.invalid
-#)
-#zstyle ':completion:*:my-accounts' users-hosts $my_accounts
-#zstyle ':completion:*:other-accounts' users-hosts $other_accounts
-
-## add grml.org to your list of hosts
-#hosts+=(grml.org)
-#zstyle ':completion:*:hosts' hosts $hosts
-
-## telnet on non-default ports? ...well:
-## specify specific port/service settings:
-#telnet_users_hosts_ports=(
-# user1@host1:
-# user2@host2:
-# @mail-server:{smtp,pop3}
-# @news-server:nntp
-# @proxy-server:8000
-#)
-#zstyle ':completion:*:*:telnet:*' users-hosts-ports $telnet_users_hosts_ports
-
-## the default grml setup provides '..' as a completion. it does not provide
-## '.' though. If you want that too, use the following line:
-#zstyle ':completion:*' special-dirs true
-
-## aliases ##
-
-## translate
-#alias u='translate -i'
-
-## ignore ~/.ssh/known_hosts entries
-#alias insecssh='ssh -o "StrictHostKeyChecking=no" -o "UserKnownHostsFile=/dev/null" -o "PreferredAuthentications=keyboard-interactive"'
-
-
-## global aliases (for those who like them) ##
-
-#alias -g '...'='../..'
-#alias -g '....'='../../..'
-#alias -g BG='& exit'
-#alias -g C='|wc -l'
-#alias -g G='|grep'
-#alias -g H='|head'
-#alias -g Hl=' --help |& less -r'
-#alias -g K='|keep'
-#alias -g L='|less'
-#alias -g LL='|& less -r'
-#alias -g M='|most'
-#alias -g N='&>/dev/null'
-#alias -g R='| tr A-z N-za-m'
-#alias -g SL='| sort | less'
-#alias -g S='| sort'
-#alias -g T='|tail'
-#alias -g V='| vim -'
-
-## instead of global aliase it might be better to use grmls $abk assoc array, whose contents are expanded after pressing ,.
-#$abk[SnL]="| sort -n | less"
-
-## get top 10 shell commands:
-#alias top10='print -l ${(o)history%% *} | uniq -c | sort -nr | head -n 10'
-
-## Execute \kbd{./configure}
-#alias CO="./configure"
-
-## Execute \kbd{./configure --help}
-#alias CH="./configure --help"
-
-## miscellaneous code ##
-
-## Use a default width of 80 for manpages for more convenient reading
-#export MANWIDTH=${MANWIDTH:-80}
-
-## Set a search path for the cd builtin
-#cdpath=(.. ~)
-
-## variation of our manzsh() function; pick you poison:
-#manzsh() { /usr/bin/man zshall | most +/"$1" ; }
-
-## Switching shell safely and efficiently? http://www.zsh.org/mla/workers/2001/msg02410.html
-#bash() {
-# NO_SWITCH="yes" command bash "$@"
-#}
-#restart () {
-# exec $SHELL $SHELL_ARGS "$@"
-#}
-
-## Handy functions for use with the (e::) globbing qualifier (like nt)
-#contains() { grep -q "$*" $REPLY }
-#sameas() { diff -q "$*" $REPLY &>/dev/null }
-#ot () { [[ $REPLY -ot ${~1} ]] }
-
-## get_ic() - queries imap servers for capabilities; real simple. no imaps
-#ic_get() {
-# emulate -L zsh
-# local port
-# if [[ ! -z $1 ]] ; then
-# port=${2:-143}
-# print "querying imap server on $1:${port}...\n";
-# print "a1 capability\na2 logout\n" | nc $1 ${port}
-# else
-# print "usage:\n $0 <imap-server> [port]"
-# fi
-#}
-
-## List all occurrences of programm in current PATH
-#plap() {
-# emulate -L zsh
-# if [[ $# = 0 ]] ; then
-# echo "Usage: $0 program"
-# echo "Example: $0 zsh"
-# echo "Lists all occurrences of program in the current PATH."
-# else
-# ls -l ${^path}/*$1*(*N)
-# fi
-#}
-
-## Find out which libs define a symbol
-#lcheck() {
-# if [[ -n "$1" ]] ; then
-# nm -go /usr/lib/lib*.a 2>/dev/null | grep ":[[:xdigit:]]\{8\} . .*$1"
-# else
-# echo "Usage: lcheck <function>" >&2
-# fi
-#}
-
-## Download a file and display it locally
-#uopen() {
-# emulate -L zsh
-# if ! [[ -n "$1" ]] ; then
-# print "Usage: uopen \$URL/\$file">&2
-# return 1
-# else
-# FILE=$1
-# MIME=$(curl --head $FILE | \
-# grep Content-Type | \
-# cut -d ' ' -f 2 | \
-# cut -d\; -f 1)
-# MIME=${MIME%$'\r'}
-# curl $FILE | see ${MIME}:-
-# fi
-#}
-
-## Memory overview
-#memusage() {
-# ps aux | awk '{if (NR > 1) print $5;
-# if (NR > 2) print "+"}
-# END { print "p" }' | dc
-#}
-
-## print hex value of a number
-#hex() {
-# emulate -L zsh
-# if [[ -n "$1" ]]; then
-# printf "%x\n" $1
-# else
-# print 'Usage: hex <number-to-convert>'
-# return 1
-# fi
-#}
-
-## log out? set timeout in seconds...
-## ...and do not log out in some specific terminals:
-#if [[ "${TERM}" == ([Exa]term*|rxvt|dtterm|screen*) ]] ; then
-# unset TMOUT
-#else
-# TMOUT=1800
-#fi
-
-## associate types and extensions (be aware with perl scripts and anwanted behaviour!)
-#check_com zsh-mime-setup || { autoload zsh-mime-setup && zsh-mime-setup }
-#alias -s pl='perl -S'
-
-## ctrl-s will no longer freeze the terminal.
-#stty erase "^?"
-
-## you want to automatically use a bigger font on big terminals?
-#if [[ "$TERM" == "xterm" ]] && [[ "$LINES" -ge 50 ]] && [[ "$COLUMNS" -ge 100 ]] && [[ -z "$SSH_CONNECTION" ]] ; then
-# large
-#fi
-
-## Some quick Perl-hacks aka /useful/ oneliner
-#bew() { perl -le 'print unpack "B*","'$1'"' }
-#web() { perl -le 'print pack "B*","'$1'"' }
-#hew() { perl -le 'print unpack "H*","'$1'"' }
-#weh() { perl -le 'print pack "H*","'$1'"' }
-#pversion() { perl -M$1 -le "print $1->VERSION" } # i. e."pversion LWP -> 5.79"
-#getlinks () { perl -ne 'while ( m/"((www|ftp|http):\/\/.*?)"/gc ) { print $1, "\n"; }' $* }
-#gethrefs () { perl -ne 'while ( m/href="([^"]*)"/gc ) { print $1, "\n"; }' $* }
-#getanames () { perl -ne 'while ( m/a name="([^"]*)"/gc ) { print $1, "\n"; }' $* }
-#getforms () { perl -ne 'while ( m:(\</?(input|form|select|option).*?\>):gic ) { print $1, "\n"; }' $* }
-#getstrings () { perl -ne 'while ( m/"(.*?)"/gc ) { print $1, "\n"; }' $*}
-#getanchors () { perl -ne 'while ( m/«([^«»\n]+)»/gc ) { print $1, "\n"; }' $* }
-#showINC () { perl -e 'for (@INC) { printf "%d %s\n", $i++, $_ }' }
-#vimpm () { vim `perldoc -l $1 | sed -e 's/pod$/pm/'` }
-#vimhelp () { vim -c "help $1" -c on -c "au! VimEnter *" }
-
-## END OF FILE #################################################################
generated by cgit v1.2.3 (git 2.39.1) at 2024-07-05 12:09:54 +0000