chanopt.h « common « src - torxchat.git - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff stats

path: root/src/common/chanopt.h

blob: 90ca86c337fcd0a1ca9a1a587c3fdd409d598d0b (plain) (blame)

int chanopt_command (session *sess, char *tbuf, char *word[], char *word_eol[]);
gboolean chanopt_is_set (unsigned int global, guint8 per_chan_setting);
gboolean chanopt_is_set_a (unsigned int global, guint8 per_chan_setting);
void chanopt_save_all (void);
void chanopt_save (session *sess);
void chanopt_load (session *sess);

*/ .highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */ .highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */ .highlight .vc { color: #336699 } /* Name.Variable.Class */ .highlight .vg { color: #dd7700 } /* Name.Variable.Global */ .highlight .vi { color: #3333bb } /* Name.Variable.Instance */ .highlight .vm { color: #336699 } /* Name.Variable.Magic */ .highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */

use strict;
use warnings;
use Xchat qw(:all);
use Glib qw(TRUE FALSE);
use Gtk2 -init;

sub get_inputbox {
	my $widget = Glib::Object->new_from_pointer( get_info( "win_ptr" ), 0 );
	my $input_box;

	my @containers = ($widget);

	while( @containers ) {
		my $container = shift @containers;

		for my $child ( $container->get_children ) {
			if( $child->get( "name" ) eq 'xchat-inputbox' ) {
				$input_box = $child;
				last;
			} elsif( $child->isa( "Gtk2::Container" ) ) {
				push @containers, $child;
			}
		}
	}
	return $input_box;
}

sub get_hbox {
	my $widget = shift;
	my $hbox;

	while( $widget->parent ) {
		if( $widget->parent->isa( "Gtk2::HBox" ) ) {
			return $widget->parent;
		}
		$widget = $widget->parent;
	}

}

my $input_box = get_inputbox();

if( $input_box ) {
	my $hbox = get_hbox( $input_box );
	if( $hbox ) {
		my $label = Gtk2::Label->new();
		$label->set_alignment( 0.5, ($label->get_alignment)[1] );
		$hbox->pack_end( $label, 0, 0, 5 );
		$label->show();

		my $update_label = sub {
			my $ctx_type = context_info->{"type"};
			hook_timer( 0, sub {
				if( $ctx_type == 2 || $ctx_type == 3 ) {
					my $count = length get_info "inputbox";
					$label->set_text( $count ? $count : "" );
				} else {
					$label->set_text( "" );
				}
				return REMOVE;
			});
			return EAT_NONE;
		};

		hook_print( "Key Press", $update_label );
		hook_print( "Focus Tab", $update_label );
		hook_print( "Focus Window", $update_label );
		hook_command( "",
			sub {
				$label->set_text( "" );
				return EAT_NONE;
			}
		);

		my @handlers;
		my $buffer = $input_box->get_buffer;
		my $handler = sub { $update_label->(); return TRUE };

		if( $buffer->isa( "Gtk2::TextBuffer" ) ) {
			push @handlers, $buffer->signal_connect( "changed", $handler );
		} elsif( $buffer->isa( "Gtk2::EntryBuffer" ) ) {
			push @handlers,
				$buffer->signal_connect( "deleted-text", $handler );
				$buffer->signal_connect( "inserted-text", $handler );
		}

		register( "Character Counter", "1.0.0",
			"Display the number of characters in the inputbox",
			sub {
				$hbox->remove( $label );
				$buffer->signal_handler_disconnect( $_ ) for @handlers;
			}
		);
	} else {
		prnt "Counldn't find hbox";
	}

} else {
	prnt "Couldn't fint input box";
}