view release on metacpan or  search on metacpan

lib/App/wmiirc/Backlight.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
package App::wmiirc::Backlight;
{
  $App::wmiirc::Backlight::VERSION = '1.000';
}
use App::wmiirc::Plugin;
with 'https://metacpan.org/pod/App::wmiirc::Role::Key">App::wmiirc::Role::Key';
 
# So on my vaio the down works here, but up doesn't(?!), I've hacked it into the
# acpi stuff instead -- urgh. Serves me right for buying proprietary Sony stuff
# I guess.
 
sub key_backlight_down(XF86MonBrightnessDown) {
  system qw(xbacklight -steps 1 -time 0 -dec 10);
}
 
sub key_backlight_up(XF86MonBrightnessUp) {
  system qw(xbacklight -steps 1 -time 0 -inc 10);
}
 
1;