123456789101112 |
- . "$HOME"/git/recall/rc/.shrc
- insert_with_delay() {
- perl -le 'require "sys/ioctl.ph";
- $delay = shift @ARGV;
- unless(fork) {
- select undef, undef, undef, $delay;
- ioctl(STDIN, &TIOCSTI, $_) for split "", join " ", @ARGV;
- }' -- "$@";
- }
- PROMPT_COMMAND='insert_with_delay 0.05 "$zle_prefix"'
|