1 |
root |
1.1 |
#! perl |
2 |
|
|
|
3 |
root |
1.7 |
#:META:RESOURCE:%.hotkey:string:activation hotkey keysym |
4 |
root |
1.6 |
|
5 |
root |
1.3 |
=head1 NAME |
6 |
|
|
|
7 |
root |
1.6 |
kuake - kuake-like hotkey terminal |
8 |
|
|
|
9 |
|
|
=head1 EXAMPLES |
10 |
|
|
|
11 |
|
|
@@RXVT_NAME@@ -kuake-hotkey F10 |
12 |
|
|
|
13 |
|
|
URxvt.kuake.hotkey: F10 |
14 |
root |
1.3 |
|
15 |
|
|
=head1 DESCRIPTION |
16 |
|
|
|
17 |
|
|
A very primitive quake-console-like extension. It was inspired by a |
18 |
|
|
description of how the programs C<kuake> and C<yakuake> work: Whenever the |
19 |
|
|
user presses a global accelerator key (by default C<F10>), the terminal |
20 |
|
|
will show or hide itself. Another press of the accelerator key will hide |
21 |
|
|
or show it again. |
22 |
|
|
|
23 |
|
|
Initially, the window will not be shown when using this extension. |
24 |
|
|
|
25 |
|
|
This is useful if you need a single terminal that is not using any desktop |
26 |
|
|
space most of the time but is quickly available at the press of a key. |
27 |
|
|
|
28 |
|
|
The accelerator key is grabbed regardless of any modifiers, so this |
29 |
|
|
extension will actually grab a physical key just for this function. |
30 |
|
|
|
31 |
|
|
If you want a quake-like animation, tell your window manager to do so |
32 |
|
|
(fvwm can do it). |
33 |
|
|
|
34 |
|
|
=cut |
35 |
|
|
|
36 |
root |
1.1 |
sub on_start { |
37 |
|
|
my ($self) = @_; |
38 |
|
|
|
39 |
root |
1.6 |
$self->{key} = $self->{argv}[0] || $self->x_resource ("%.hotkey") || "F10"; |
40 |
root |
1.1 |
|
41 |
|
|
$self->{keysym} = $self->XStringToKeysym ($self->{key}) |
42 |
|
|
or urxvt::fatal "cannot convert requested kuake wake-up key '$self->{key}' to keysym, unable to continue.\n"; |
43 |
|
|
|
44 |
|
|
$self->{keycode} = $self->XKeysymToKeycode ($self->{keysym}) |
45 |
|
|
or urxvt::fatal "cannot convert requested kuake wake-up key '$self->{key}' to keycode, unable to continue.\n"; |
46 |
|
|
|
47 |
|
|
$self->XGrabKey ($self->{keycode}, urxvt::AnyModifier, $self->DefaultRootWindow); |
48 |
|
|
|
49 |
|
|
$self->XUnmapWindow ($self->parent); |
50 |
|
|
|
51 |
|
|
$self->{unmap_me} = 1; |
52 |
|
|
|
53 |
|
|
() |
54 |
|
|
} |
55 |
|
|
|
56 |
|
|
sub on_map_notify { |
57 |
|
|
my ($self) = @_; |
58 |
|
|
|
59 |
|
|
# suppress initial map event |
60 |
|
|
$self->XUnmapWindow ($self->parent) |
61 |
|
|
if delete $self->{unmap_me}; |
62 |
sf-exg |
1.2 |
|
63 |
root |
1.1 |
() |
64 |
|
|
} |
65 |
|
|
|
66 |
|
|
sub on_root_event { |
67 |
|
|
my ($self, $event) = @_; |
68 |
|
|
|
69 |
|
|
return unless $event->{type} == urxvt::KeyPress && $event->{keycode} == $self->{keycode}; |
70 |
|
|
|
71 |
|
|
$self->mapped |
72 |
|
|
? $self->XUnmapWindow ($self->parent) |
73 |
|
|
: $self->XMapWindow ($self->parent); |
74 |
|
|
|
75 |
|
|
1 |
76 |
|
|
} |
77 |
|
|
|
78 |
|
|
sub on_destroy { |
79 |
|
|
my ($self) = @_; |
80 |
|
|
|
81 |
|
|
$self->XUngrabKey ($self->XKeysymToKeycode ($self->{keysym}), 0, $self->DefaultRootWindow) |
82 |
|
|
if $self->{keysym}; |
83 |
|
|
|
84 |
|
|
() |
85 |
|
|
} |