bash で複合キー

できるとは思わなかった。知らないことばかり。
peco と組み合わせていい感じに。

peco-select-history() {
    declare l=$(HISTTIMEFORMAT= history | sort -k1,1nr | perl -ne 'BEGIN { my @lines = (); } s/^\s*\d+\s*//; $in=$_; if (!(grep {$in eq $_} @lines)) { push(@lines, $in); print $in; }' | peco --query "$READLINE_LINE")
    READLINE_LINE="$l"
    READLINE_POINT=${#l}
}
bind -x '"\C-r": peco-select-history'
 
peco-select-branch() {
    declare l=$(git branch -a | peco --query "$READLINE_LINE")
    READLINE_LINE="$l"
    READLINE_POINT=0
}
bind -x '"\C-x\C-a": peco-select-branch'
 
peco-select-local-branch() {
    declare l=$(git branch | peco --query "$READLINE_LINE")
    READLINE_LINE="$l"
    READLINE_POINT=0
}
bind -x '"\C-x\C-b": peco-select-local-branch'
 
peco-select-local-status() {
    declare l=$(git status -sb | sed 's/ M //' | sed '/^#.*/d' | sed 's/?? //' | peco --query "$READLINE_LINE" | tr "\n" "    ")
    READLINE_LINE="$l"
    READLINE_POINT=0
}
bind -x '"\C-x\C-l": peco-select-local-status'

もうちょっとスムーズに使えるように改善したいなぁ。