#to run it if it is here (but in this case it will run automagically when
#irssi will start):
#
#/script load ~/.irssi/scripts/autorun/accent.pl
#
#you can simply remove the script:
#
#/script unload accent
#
#and it will strips your incoming and outgoing hungarian accents
#but you can:
#
#/set accent_strip_in  <on|off> -- strips the incoming accents (on) or not (off)
#/set accent_strip_out <on|off> -- strips the outgoing accents (on) or not (off)
#
#/set accent_tag_in  <string, default: [A]> indicates the incoming msg filtered 
#/set accent_tag_out <string, default: [A]> indicates the outgoing msg filtered
#
#/set accent_latin <string, default: iso 8859-2: A',a',E',e',I',i',O',o',O:,o:,O",o",U',u',U:,u:,U",u"> which to strip
#/set accent_ascii <string, default: AaEeIiOoOoOoUuUuUu> will be the stripped
#
#be careful, accent_latin and accent_latin must be charlist and must have
#the same length to be matched as a pair.
#
#/set accent_debug <on|off> -- if you have a problem try to turn this on

use strict;
use vars qw($VERSION %IRSSI);

use Irssi;
($VERSION) = '$Id: accent.pl,v 1.34 2003/03/27 15:54:25 toma Exp $' =~ / (\d+\.\d+) /;
%IRSSI = (
	authors     => 'Tamas SZERB',
	contact     => 'toma@rulez.org',
	name        => 'accent',
	description => 'This script strips the hungarian accents.',
	license     => 'GPL',
);

my $stripped_out = 0;
my $stripped_in  = 0;

sub accent_out {
	if(Irssi::settings_get_bool('accent_strip_out') && !$stripped_out) {
		my $accent_tag = Irssi::settings_get_str('accent_tag_out');

		my $debug=Irssi::settings_get_bool('accent_debug');
		
		my $accent_latin = Irssi::settings_get_str('accent_latin');
		my $accent_ascii = Irssi::settings_get_str('accent_ascii');
		if (length($accent_latin) != length($accent_ascii)) {
			if ($debug) {
				Irssi::print("`$accent_latin' and `$accent_ascii' hasn't same length");
			}
		}
		else {
			my $emitted_signal = Irssi::signal_get_emitted();
			my ($msg, $dummy1, $dummy2) = @_;

			if ($debug) {
				Irssi::print("signal emitted: $emitted_signal");
			}

			if ( $msg =~ /[$accent_latin]/ ) {
				if ($debug) {
					Irssi::print("outgoing contains accent: $msg");
				}
				eval "\$msg =~ tr/$accent_latin/$accent_ascii/;";
				$msg = $msg . ' ' . $accent_tag;
				$stripped_out=1;
				
				Irssi::signal_emit("$emitted_signal", $msg, $dummy1, $dummy2 );
				Irssi::signal_stop();
				$stripped_out=0;
			}
		}
	}
}

sub accent_in {
	if(Irssi::settings_get_bool('accent_strip_in') && !$stripped_in) {
		my $accent_tag = Irssi::settings_get_str('accent_tag_in');

		my $debug=Irssi::settings_get_bool('accent_debug');
		
		my $accent_latin = Irssi::settings_get_str('accent_latin');
		my $accent_ascii = Irssi::settings_get_str('accent_ascii');
		if (length($accent_latin) != length($accent_ascii)) {
			if ($debug) {
				Irssi::print("`$accent_latin' and `$accent_ascii' hasn't same length");
			}
		}
		else {
			my $emitted_signal = Irssi::signal_get_emitted();

			my ($dummy0, $text, $dummy3, $dummy4, $dummy5) = @_;
			if ($debug) {
				Irssi::print("signal emitted: $emitted_signal");
			}
			if ( $text =~ /[$accent_latin]/ ) {
				if ($debug) {
					Irssi::print("incoming contains accent: $text");
				}
				if ($debug) {
					Irssi::print("text=$text");
				}
				#no idea why w/o eval doesn't work:
				eval "\$text =~ tr/$accent_latin/$accent_ascii/;";
				$text = $text . ' ' . $accent_tag;
				$stripped_in=1;

				if ($debug) {
					Irssi::print("text=$text");
				}
				Irssi::signal_emit("$emitted_signal", $dummy0, $text, $dummy3, $dummy4, $dummy5 );
				Irssi::signal_stop();
				$stripped_in=0;
			}
		}
	}
}

#main():

#default settings /set accent_in <pre tabindex="0" class="chroma"><span class="nb">require</span> <span class="s1">&#39;formula&#39;</span>

<span class="k">class</span> <span class="nc">EchoprintCodegen</span> <span class="o">&lt;</span> <span class="no">Formula</span>
  <span class="n">homepage</span> <span class="s1">&#39;http://echoprint.me&#39;</span>
  <span class="n">head</span> <span class="s1">&#39;https://github.com/echonest/echoprint-codegen.git&#39;</span>

  <span class="n">depends_on</span> <span class="s1">&#39;ffmpeg&#39;</span>
  <span class="n">depends_on</span> <span class="s1">&#39;taglib&#39;</span>
  <span class="n">depends_on</span> <span class="s1">&#39;boost&#39;</span>

  <span class="k">def</span> <span class="nf">install</span>
    <span class="n">cd</span> <span class="s1">&#39;src&#39;</span> <span class="k">do</span>
      <span class="nb">system</span> <span class="s2">&#34;make&#34;</span><span class="p">,</span> <span class="s2">&#34;install&#34;</span><span class="p">,</span> <span class="s2">&#34;PREFIX=</span><span class="si">#{</span><span class="n">prefix</span><span class="si">}</span><span class="s2">&#34;</span>
    <span class="k">end</span>
  <span class="k">end</span>
<span class="k">end</span>
</pre></code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.3</a> (<a href='https://git-scm.com/'>git 2.25.1</a>) at 2026-01-23 11:41:48 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>