Skip to content

Fix qw syntax error #24

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
mbfisher wants to merge 3 commits into from
Closed

Fix qw syntax error #24

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
e1f353b
Fix qw syntax error
mbfisher May 31, 2013
4cd0168
Add destroy tab with C-Down
mbfisher Aug 12, 2013
3bef324
Remove testing output
mbfisher Aug 12, 2013
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
9 changes: 8 additions & 1 deletion tabbedex
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -94,6 +94,9 @@
## Use the following in your ~/.Xdefaults to enable:
## URXvt.tabbed.reopen-on-close: yes
##
## 17. Destroy a tab with C-Down
##
## Keysym reference http://www.tcl.tk/man/tcl8.4/TkCmd/keysyms.htm

use Encode qw(decode);

Expand Down Expand Up @@ -560,6 +563,10 @@ sub tab_key_press {
$self->move_tab($tab, $keysym - 0xff52);
return 1;
}
elsif ($keysym == 0xff54) {
$tab->destroy;
return 1;
}
}

();
Expand Down Expand Up @@ -665,7 +672,7 @@ package urxvt::ext::tabbedex::tab;
# simply proxies all interesting calls back to the tabbedex class.

{
for my $hook qw(start destroy user_command key_press property_notify add_lines) {
for my $hook ( qw(start destroy user_command key_press property_notify add_lines) ) {
eval qq{
sub on_$hook {
my \$parent = \$_[0]{term}{parent}
Expand Down