dot-files/_zshrc

   1 #!/bin/zsh
   2 bindkey -e
   3
   4 stty -ixon ixany
   5 #stty erase '^H'
   6
   7 # The following lines were added by compinstall
   8 zstyle :compinstall filename "$HOME/.zshrc"
   9
  10 autoload -U compinit
  11 compinit
  12 # End of lines added by compinstall
  13
  14 zstyle ':completion:*' matcher-list 'm:{a-zA-Z}={A-Za-z} r:|[/]=* r:|=*'
  15 zstyle ':completion:*' use-cache true
  16
  17 if [[ -d "$HOME/.zfunc" ]]; then
  18     fpath=($HOME/.zfunc $fpath)
  19     autoload -U ~/.zfunc/*(:t)
  20     function r() {
  21         local f
  22         f=(~/.zfunc/*(.))
  23         unfunction $f:t 2> /dev/null
  24         autoload -U $f:t
  25     }
  26 fi
  27
  28 if [[ -f "$HOME/.ssh/known_hosts" ]]; then
  29     _cache_hosts=(`perl -ne  'if (/^([a-zA-Z0-9.-]+)/) { print "$1\n";}' ~/.ssh/known_hosts`)
  30 fi
  31
  32 autoload -U colors
  33 colors
  34
  35 setopt no_beep
  36 setopt auto_cd
  37 setopt auto_list
  38 setopt auto_menu
  39 setopt auto_name_dirs
  40 setopt auto_param_keys
  41 setopt auto_param_slash
  42 setopt auto_remove_slash
  43 setopt c_bases
  44 setopt chase_links
  45 setopt complete_aliases
  46 setopt correct
  47 setopt equals
  48 setopt glob_complete
  49 setopt prompt_bang
  50 setopt prompt_percent
  51 setopt prompt_subst
  52 setopt pushd_ignore_dups
  53 setopt pushd_to_home
  54 setopt sh_file_expansion
  55 setopt always_last_prompt
  56 setopt extended_glob
  57 setopt hist_ignore_all_dups
  58 setopt hist_ignore_space
  59 setopt inc_append_history
  60 setopt share_history
  61
  62 function _we_are_in_gnu_screen () {
  63     [[ -n "$WINDOW" ]]
  64 }
  65
  66 function _we_are_in_ssh_session () {
  67     [[ -n "$SSH_CONNECTION" ]]
  68 }
  69
  70 function _we_are_in_emacs () {
  71     [[ -n "$INSIDE_EMACS" ]]
  72 }
  73
  74 _prompt_base='%B[%n@%m] %{%(?.$fg[green].$fg[red])%}%#%{$reset_color%}%b '
  75 if ( _we_are_in_gnu_screen ); then
  76     # GNU Screen has a capability to set its window title by "ESC k
  77     # {string} ESC \". We want to reset the title to `_' to show we
  78     # aren't running any command now.
  79     PROMPT=$'%{\ek_\e\\%}'$_prompt_base
  80 else
  81     PROMPT=$_prompt_base
  82 fi
  83
  84 autoload -U add-zsh-hook
  85
  86 function _gnu_screen_preexec() {
  87     if { _we_are_in_gnu_screen } then
  88         # Set the window title of GNU Screen.
  89         local cmd=${1[(wr)^(*=*|sudo|nice|env|time|ssh|-*|[0-9]*)]}
  90         printf "\ek$cmd\e\\"
  91     fi
  92 }
  93 add-zsh-hook preexec _gnu_screen_preexec
  94
  95 function _dirinfo_precmd() {
  96     local dirinfo="$(print_directory_info $(pwd))"
  97
  98     case $dirinfo in
  99         "")
 100             RPROMPT='%U%~%u';;
 101         *)
 102             RPROMPT="%U%~%u %U($dirinfo)%u";;
 103     esac
 104 }
 105 add-zsh-hook precmd _dirinfo_precmd
 106
 107 function print_directory_info() {
 108     local absdir=$1
 109
 110     if [[ -r $absdir/.git ]] then
 111         # Git
 112         git branch --no-color 2>/dev/null \
 113             | sed -e '/^[^*]/d' -e 's/* \(.*\)/\1/'
 114
 115     elif [[ -r $absdir/.hg/branch ]] then
 116         # Hg
 117         local hgbranch=`cat $absdir/.hg/branch`
 118         if [[ -e $absdir/.hg/unpushed ]] then
 119             echo "*${hgbranch}*"
 120         else
 121             echo "$hgbranch"
 122         fi
 123
 124     elif [[ -d $absdir/_darcs ]] then
 125         # Darcs
 126         basename $absdir
 127
 128     elif [[ -r $absdir/CVS/Repository ]] then
 129         # CVS
 130         cat $absdir/CVS/Repository \
 131             | sed -e 's!\([^/]*\).*!\1!'
 132
 133     else
 134         # Unknown.
 135         if [[ $absdir = "/" ]] then
 136             # This is the root directory so exit from the recursion.
 137             echo
 138         else
 139             # Recurse to the parent dir.
 140             print_directory_info $(dirname $absdir)
 141         fi
 142     fi
 143 }
 144
 145 function nfgrep() {
 146     fgrep --with-filename --line-number --context=1 --colour=always "$@" | $PAGER
 147 }
 148
 149 function ppgrep() {
 150     local -a percol_opts
 151
 152     if [[ $# -gt 0 ]]; then
 153         percol_opts=("--query" "$1")
 154     fi
 155
 156     ps aux | percol "${percol_opts[@]}" | awk '{ print $2 }'
 157 }
 158
 159 function ppkill() {
 160     local -a ppgrep_opts
 161
 162     if [[ $1 =~ "^[^-]" ]]; then
 163         ppgrep_opts=("$1")
 164         shift
 165     fi
 166
 167     ppgrep "${ppgrep_opts[@]}" | xargs kill "$@"
 168 }
 169
 170 function find_tac_command() {
 171     if which gtac >&/dev/null; then
 172         echo "gtac"
 173     elif which tac >&/dev/null; then
 174         echo "tac"
 175     else
 176         echo "tail -r"
 177     fi
 178 }
 179
 180 function percol_select_history() {
 181     local -a tac_cmd
 182     tac_cmd=($(find_tac_command))
 183
 184     local selected
 185     selected=$("${tac_cmd[@]}" "$HISTFILE" | \
 186         sed 's/^: [0-9]*:[0-9]*;//' | \
 187         awk 'seen[$0] {next} {seen[$0]++; print}' | \
 188         percol --match-method regex --query "$LBUFFER")
 189
 190     if [[ $? -eq 0 ]]; then
 191         BUFFER="$selected"
 192         CURSOR="$#BUFFER" # move cursor to the end of line
 193         zle redisplay
 194         #zle accept-line  # uncomment this to execute the selected one immediately.
 195     else
 196         zle redisplay
 197     fi
 198 }
 199 if which percol >&/dev/null; then
 200     zle -N percol_select_history
 201     bindkey '^R' percol_select_history
 202 fi
 203
 204 HISTFILE="$HOME/.zhistory"
 205 HISTSIZE=6000000
 206 SAVEHIST=6000000
 207
 208 # Select directories with z(1)
 209 if [[ -r "$HOME/sandbox/_misc/z/z.sh" ]]; then
 210     source "$HOME/sandbox/_misc/z/z.sh"
 211
 212     function percol_select_directory() {
 213         local -a tac_cmd
 214         tac_cmd=($(find_tac_command))
 215
 216         local selected
 217         selected=$(_z -r 2>&1 | \
 218             "${tac_cmd[@]}" | \
 219             percol --query "$LBUFFER" | \
 220             sed -r 's/[^[:space:]]+[[:space:]]+//')
 221
 222         if [[ $? -eq 0 ]]; then
 223             cd "${selected}"
 224             selected="" # Without this, zsh treats this variable as a
 225                         # candidate for a "named directory".
 226         fi
 227
 228         zle reset-prompt
 229         return 0
 230     }
 231
 232     if which percol >&/dev/null; then
 233         zle -N percol_select_directory
 234         bindkey '\C-xd' percol_select_directory
 235     fi
 236 fi
 237
 238 function lv() {
 239     local -a lv_cmd
 240
 241     if whence -p lv >/dev/null; then
 242         lv_cmd=("lv")
 243     elif which less >&/dev/null; then
 244         lv_cmd=("less")
 245     elif which more >&/dev/null; then
 246         lv_cmd=("more")
 247     else
 248         echo >&2 "$0: no pager commands are found"
 249         return 1
 250     fi
 251
 252     command "${lv_cmd[@]}" "$@"
 253 }
 254
 255 alias -g L="| $PAGER"
 256 alias -g G="| grep"
 257 alias -g H="| head"
 258 alias -g T="| tail"
 259 alias -g X="| hexdump -C"
 260
 261 alias ..='cd ..'
 262 alias cd..='cd ..'
 263 alias p='pushd'
 264 alias o='popd'
 265 alias d='dirs'
 266 alias df='df -h'
 267 alias du='du -k'
 268 alias ed='ed -p "ed> "'
 269 alias man="LANG=C man"
 270 alias mwget="wget --user-agent='Mozilla/1.4b'"
 271 alias nc='nc -vv'
 272 alias pkgsrc="pushd /usr/pkgsrc"
 273 alias pstow="pushd /usr/local/stow"
 274 alias w3m="w3m -O UTF-8"
 275 alias w3mb="w3m -O UTF-8 -B"
 276
 277 alias aria-emacs="ssh -f -X admin@aria.cielonegro.org emacsclient -c"
 278 alias pho-dev-boinc="ssh -f -X pho@pho.dev.office.ymir.co.jp env LANG=C /home/pho/var/BOINC/run_manager"
 279
 280 if [[ $(hostname) = "aria.cielonegro.org" ]]; then
 281     alias unstuff='open -a StuffIt\ Expander.app'
 282     alias pa='open -a NiseRingo.app'
 283     alias heboris='open /Applications/HeborisUEMac/exe/Heboris\ OpenGL.app'
 284     alias hengband='open ~/Applications/hengband*/Hengband*'
 285
 286 elif [[ $(hostname) = "yukari.cielonegro.org" ]]; then
 287     function safari () {
 288         local -a args
 289         for arg in $@; do
 290             args=(${args[@]} $(printf %q "$arg"))
 291         done
 292         ssh kurumi open -a Safari ${args[@]}
 293     }
 294     function mfirefox () {
 295         local -a args
 296         for arg in $@; do
 297             args=(${args[@]} $(printf %q "$arg"))
 298         done
 299         ssh kurumi open -a Firefox ${args[@]}
 300     }
 301 fi
 302
 303 if [[ $(uname) = "Darwin" ]]; then
 304     alias safari="open -a Safari"
 305
 306     alias ldd="otool -L"
 307
 308     alias ls='ls -Fw'
 309     alias la='ls -aw'
 310     alias l='ls -lhw'
 311     alias lls='ls -lahw'
 312
 313     #alias top='/usr/bin/top -X -o cpu'
 314     alias top='/usr/bin/top -o cpu'
 315 else
 316     alias ls='ls -F'
 317     alias la='ls -a'
 318     alias l='ls -lh'
 319     alias lls='ls -lah'
 320 fi
 321
 322 function osname () {
 323     case $(uname) in
 324         "Darwin" | "FreeBSD" | "NetBSD")
 325             uname -v;;
 326         "Linux")
 327             if [[ -f "/etc/redhat-release" ]]; then
 328                 cat "/etc/redhat-release"
 329             elif [[ -f "/etc/SuSE-release" ]]; then
 330                 cat "/etc/SuSE-release"
 331             else
 332                 echo -n "$0: I know this is "$(uname -o)" but " >&2
 333                 echo    "have no idea about its distribution."  >&2
 334                 return 1
 335             fi;;
 336         *)
 337             echo "$0: Failed to detect the OS name." >&2
 338             return 1
 339     esac
 340 }
 341
 342 if _we_are_in_gnu_screen; then
 343     # When we are in a GNU Screen session...
 344
 345     if _we_are_in_ssh_session; then
 346         # Propagate remote session's bells to the local one.
 347         screen -X vbell off
 348     fi
 349 else
 350     if _we_are_in_emacs; then
 351         # Without this, Emacs' term mode has trouble with backspaces.
 352         export TERM=vt100
 353     fi
 354
 355     # Run "fortune" if we aren't in a GNU Screen session.
 356     if which fortune >/dev/null 2>&1; then
 357         fortune
 358     fi
 359 fi
 360
 361 if which ssh-agent-manager >/dev/null 2>&1; then
 362     eval `ssh-agent-manager -s`
 363 fi