diff options
Diffstat (limited to '')
| -rw-r--r-- | .urxvt/blc | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/.urxvt/blc b/.urxvt/blc new file mode 100644 index 0000000..6833ca2 --- /dev/null +++ b/.urxvt/blc @@ -0,0 +1,36 @@ +#! perl + +# Optional Bell Command for http://bugs.debian.org/633989 +# Copyright (C) 2011 Ryan Kavanagh <ryanakca@kubuntu.org> +# +# Permission to use, copy, modify, and/or distribute this software for +# any purpose with or without fee is hereby granted, provided that the +# above copyright notice and this permission notice appear in all +# copies. +# +# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL +# WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED +# WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE +# AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL +# DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR +# PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER +# TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR +# PERFORMANCE OF THIS SOFTWARE. + +sub on_start { + my ($self) = @_; + + $self->{command} = $self->x_resource("bellCommand") || + "false"; + + () +} + +sub on_bell { + my ($self) = @_; + + my @exec = $self->exec_async($self->{command}); + + () +} +# vim:set sw=3 sts=3 et: |