… | |
… | |
871 | }, |
871 | }, |
872 | on_activate => sub { |
872 | on_activate => sub { |
873 | my ($input, $text) = @_; |
873 | my ($input, $text) = @_; |
874 | $input->set_text (''); |
874 | $input->set_text (''); |
875 | |
875 | |
876 | if ($text =~ /^\/bind\s+(.*)$/) { |
|
|
877 | CFClient::Binder::open_binding_dialog (sub { |
|
|
878 | my ($mod, $sym) = @_; |
|
|
879 | $::CFG->{bindings}->{$mod}->{$sym} = [$1]; |
|
|
880 | }); |
|
|
881 | } elsif ($text =~ /^\/(.*)/) { |
876 | if ($text =~ /^\/(.*)/) { |
882 | $::CONN->user_send ($1); |
877 | $::CONN->user_send ($1); |
883 | } else { |
878 | } else { |
884 | my $say_cmd = $::CFG->{say_command} || 'say'; |
879 | my $say_cmd = $::CFG->{say_command} || 'say'; |
885 | $::CONN->user_send ("$say_cmd $text"); |
880 | $::CONN->user_send ("$say_cmd $text"); |
886 | } |
881 | } |