Auto commit by The Sugar System.

[sugar.git] / dot-files / _zshrc

diff --git a/dot-files/_zshrc b/dot-files/_zshrc
index 5848e6377550cb7009d901f7133c811eebb50021..45ac9aff1c98f72aa3f9c0b4a89faf46d19bcc18 100644 (file)
--- a/dot-files/_zshrc
+++ b/dot-files/_zshrc
@@ -60,6 +60,10 @@ function _we_are_in_ssh_session () {
     [[ -n "$SSH_CONNECTION" ]]
 }
 
+function _we_are_in_emacs () {
+    [[ -n "$INSIDE_EMACS" ]]
+}
+
 _prompt_base='%B[%n@%m] %{%(?.$fg[green].$fg[red])%}%#%{$reset_color%}%b '
 if ( _we_are_in_gnu_screen ); then
     # GNU Screen has a capability to set its window title by "ESC k
@@ -127,10 +131,81 @@ function print_directory_info() {
     fi
 }
 
+function nfgrep() {
+    fgrep --with-filename --line-number --context=1 --colour=always "$@" | $PAGER
+}
+
+function ppgrep() {
+    local -a percol_opts
+
+    if [[ $# -gt 0 ]]; then
+        percol_opts=("--query" "$1")
+    fi
+
+    ps aux | percol "${percol_opts[@]}" | awk '{ print $2 }'
+}
+
+function ppkill() {
+    local -a ppgrep_opts
+
+    if [[ $1 =~ "^[^-]" ]]; then
+        ppgrep_opts=("$1")
+        shift
+    fi
+
+    ppgrep "${ppgrep_opts[@]}" | xargs kill "$@"
+}
+
+function percol_select_history() {
+    local -a tac_cmd
+
+    if which gtac >&/dev/null; then
+        tac_cmd=("gtac")
+    elif which tac >&/dev/null; then
+        tac_cmd=("tac")
+    else
+        tac_cmd=("cat")
+    fi
+
+    local selected
+    selected=$("${tac_cmd[@]}" "$HISTFILE" | \
+        sed 's/^: [0-9]*:[0-9]*;//' | \
+        awk 'seen[$0] {next} {seen[$0]++; print}' | \
+        percol --match-method regex --query "$LBUFFER")
+    if [[ $? -eq 0 ]]; then
+        BUFFER="$selected"
+        CURSOR="$#BUFFER" # move cursor to the end of line
+        zle redisplay
+        #zle accept-line  # uncomment this to execute the selected one immediately.
+    else
+        zle redisplay
+    fi
+}
+if which percol >&/dev/null; then
+    zle -N percol_select_history
+    bindkey '^R' percol_select_history
+fi
+
 HISTFILE="$HOME/.zhistory"
 HISTSIZE=6000000
 SAVEHIST=6000000
 
+function lv() {
+    local -a lv_cmd
+
+    if whence -p lv >/dev/null; then
+        lv_cmd=("lv")
+    elif which less >&/dev/null; then
+        lv_cmd=("less")
+    elif which more >&/dev/null; then
+        lv_cmd=("more")
+    else
+        echo >&2 "$0: no pager commands are found"
+    fi
+
+    command "${lv_cmd[@]}" "$@"
+}
+
 alias -g L="| $PAGER"
 alias -g G="| grep"
 alias -g H="| head"
@@ -143,17 +218,18 @@ alias p='pushd'
 alias o='popd'
 alias d='dirs'
 alias df='df -h'
-alias ed='ed -p "ed> "'
 alias du='du -k'
-alias nc='nc -vv'
+alias ed='ed -p "ed> "'
+alias man="LANG=C man"
 alias mwget="wget --user-agent='Mozilla/1.4b'"
+alias nc='nc -vv'
+alias pkgsrc="pushd /usr/pkgsrc"
 alias pstow="pushd /usr/local/stow"
 alias w3m="w3m -O UTF-8"
 alias w3mb="w3m -O UTF-8 -B"
-alias pkgsrc="pushd /usr/pkgsrc"
-alias man="LANG=C man"
 
 alias aria-emacs="ssh -f -X admin@aria.cielonegro.org emacsclient -c"
+alias pho-dev-boinc="ssh -f -X pho@pho.dev.office.ymir.co.jp env LANG=C /home/pho/var/BOINC/run_manager"
 
 if [ $(hostname) = "aria.cielonegro.org" ]; then
     alias safari="open -a Safari"
@@ -208,24 +284,25 @@ autoload -U compinit
 compinit
 # End of lines added by compinstall
 
-if ( _we_are_in_gnu_screen ); then
+if _we_are_in_gnu_screen; then
     # When we are in a GNU Screen session...
 
-    if ( _we_are_in_ssh_session ); then
+    if _we_are_in_ssh_session; then
         # Propagate remote session's bells to the local one.
         screen -X vbell off
     fi
 else
-    if [ -e ".motd" ]; then
-        cat ".motd"
+    if _we_are_in_emacs; then
+        # Without this, Emacs' term mode has trouble with backspaces.
+        export TERM=vt100
     fi
 
     # Run "fortune" if we aren't in a GNU Screen session.
-    if which fortune 2>&1 >/dev/null; then
+    if which fortune >/dev/null 2>&1; then
         fortune
     fi
 fi
 
-if which ssh-agent-manager 2>&1 >/dev/null; then
+if which ssh-agent-manager >/dev/null 2>&1; then
     eval `ssh-agent-manager -s`
 fi