Add twitter_block and twitter_unblock commands

diff --git a/html/history.html b/html/history.html
index 3fe37af8ac7d63e8e20e10488d6f09e9a7aba427..1be3bd0c10c592624f85e13f24714e04e3102f5f 100644 (file)
--- a/html/history.html
+++ b/html/history.html
@@ -1,9 +1,12 @@
 <ul>
 <li><strong>v2.2.5BETA - currently under development</strong><br />
+      <li>New setting, twitter_timeout, should help avoid irssi pinging out of
+          servers when twitter is slow</li>
       <li>Improved unicode support</li>
       <li>Fix unfriend/unfollow command</li>
       <li>Stop including irssi colors in retweeted lines</li>
       <li>Use SSL by default, unless twirssi_avoid_ssl is set to true</li>
+      <li>New commands, twitter_block and twitter_unblock</li>
       <li>BETA versions are always available at <a
           href="http://github.com/zigdon/twirssi/tree/master">github</a>.  You
           can also upgrade a running twirssi install by setting

diff --git a/html/using.html b/html/using.html
index e8e7aedee79ff092d9fcb90f4dbfb2e617b66331..4ee3ea6300d9e4f8ee6ec0e41acd2f9c20b7b78c 100644 (file)
--- a/html/using.html
+++ b/html/using.html
@@ -46,6 +46,8 @@
   <li><code>/twitter_switch &lt;username&gt;</code> - Start using the named account as the default</li>
 
   <li><code>/twitter_unfollow &lt;username&gt;</code> - Stop following username</li>
+  <li><code>/twitter_block &lt;username&gt;</code> - Block username</li>
+  <li><code>/twitter_unblock &lt;username&gt;</code> - Unblock username</li>
   <li><code>/twitter_updates</code> - Poll for updates manually</li>
   <li><code>/twitter_subscribe &lt;keyword&gt;</code> - Add a search
       subscription for the current account.</li>

diff --git a/twirssi.pl b/twirssi.pl
index 1adc3179dd515ca64b7c4e966e6c14cd62d3926e..48b01087556da95a53da05914d4322f6755dd864 100644 (file)
--- a/twirssi.pl
+++ b/twirssi.pl
@@ -1623,6 +1623,22 @@ if ($window) {
             sub { &notice("Device updated to $_[0]"); }
         )
     );
+    Irssi::command_bind(
+        "twitter_block",
+        &gen_cmd(
+            "/twitter_block <username>",
+            "create_block",
+            sub { &notice("Blocked $_[0]"); }
+        )
+    );
+    Irssi::command_bind(
+        "twitter_unblock",
+        &gen_cmd(
+            "/twitter_unblock <username>",
+            "destroy_block",
+            sub { &notice("Unblock $_[0]"); }
+        )
+    );
     Irssi::signal_add_last( 'complete word' => \&sig_complete );
 
     &notice("  %Y<%C(%B^%C)%N                   TWIRSSI v%R$VERSION%N (r$REV)");