From 56c006f8cde9376106ad6608750e7eadda96ac44 Mon Sep 17 00:00:00 2001
From: Dan Boger <zigdon@irc.peeron.com>
Date: Sun, 30 Aug 2009 19:45:52 -0700
Subject: [PATCH] Add twitter_block and twitter_unblock commands

---
 html/history.html |  3 +++
 html/using.html   |  2 ++
 twirssi.pl        | 16 ++++++++++++++++
 3 files changed, 21 insertions(+)

diff --git a/html/history.html b/html/history.html
index 3fe37af..1be3bd0 100644
--- 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 e8e7aed..4ee3ea6 100644
--- 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 1adc317..48b0108 100644
--- 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)");
-- 
2.39.5