rnhmjoj/urxvt-config-reload
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use built-in urxvt::anyevent

Browse Source
This commit is contained in:
Michele Guerini Rocco 2021-06-04 11:07:58 +02:00
parent 79d255272d
commit 27516b6209
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
default.nix
View File

@ -7,9 +7,7 @@ stdenv.mkDerivation rec {
src = ./src; src = ./src;
passthru.perlPackages = with perlPackages; passthru.perlPackages = with perlPackages;
[ AnyEvent LinuxFD SubExporter [ LinuxFD ] ++ LinuxFD.requiredPerlModules;
DataOptList ParamsUtil SubInstall
];
installPhase = '' installPhase = ''
install -D -m644 "$src"/* -t "$out/lib/urxvt/perl" install -D -m644 "$src"/* -t "$out/lib/urxvt/perl"

10
src/config-reload
View File

@ -5,7 +5,7 @@ use strict;
use warnings; use warnings;
no warnings "experimental"; no warnings "experimental";
use AnyEvent; use urxvt;
use Linux::FD qw(signalfd); use Linux::FD qw(signalfd);
use POSIX; use POSIX;
use File::Basename qw(dirname); use File::Basename qw(dirname);
@ -47,9 +47,9 @@ sub build_command {
if (my ($col, $row) = $resources{$_} =~ /(\d+)x(\d+)/) { if (my ($col, $row) = $resources{$_} =~ /(\d+)x(\d+)/) {
$cmd .= "\e[8;${row};${col}t"; $cmd .= "\e[8;${row};${col}t";
} }
next RESOURCE; next;
} }
default { next RESOURCE } default { next }
} }
my $val = $resources{$_}; my $val = $resources{$_};
$cmd .= "\e]$key;$val\a"; $cmd .= "\e]$key;$val\a";
@ -65,8 +65,8 @@ sub reload_all {
} }
} }
our $watch = AnyEvent->io ( our $watch = urxvt::anyevent->io (
fh => $sigfd, # which file handle to check fh => $sigfd, # which file handle to check
poll => "r", # which event to wait for ("r"ead data) poll => "r", # which event to wait for ("r"ead data)
cb => sub { # what callback to execute cb => sub { # what callback to execute
sysread $sigfd, my $dummy, 4096; sysread $sigfd, my $dummy, 4096;