[Tkabber-dev] r461 - trunk/plugins/juick

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Jan 21 19:01:44 MSK 2011


Author: Totktonada
Date: 2011-01-21 19:01:44 +0300 (Fri, 21 Jan 2011)
New Revision: 461

Modified:
   trunk/plugins/juick/juick.tcl
Log:
Add toogle for style update Juick tab

Modified: trunk/plugins/juick/juick.tcl
===================================================================
--- trunk/plugins/juick/juick.tcl	2011-01-20 22:04:44 UTC (rev 460)
+++ trunk/plugins/juick/juick.tcl	2011-01-21 16:01:44 UTC (rev 461)
@@ -34,13 +34,17 @@
                 -group $group \
                 -type string
         custom::defvar options(main_jid) "juick at juick.com/Juick" \
-                [::msgcat::mc "Main Juick JID used for forwarding things from supplementary bots"] \
+                [::msgcat::mc "Main Juick JID used for forwarding things from supplementary bots."] \
                 -group $group \
                 -type string
         custom::defvar options(juick_bots) "jubo at nologin.ru/jubo" \
                 [::msgcat::mc "Forward things from this list of JIDs to Main Juick JID."] \
                 -group $group \
                 -type string
+        custom::defvar options(special_update_juick_tab) 1 \
+                [::msgcat::mc "Only PM and reply to your comments is personal message."] \
+                -group $group \
+                -type boolean
 
 proc load {} {
     ::richtext::entity_state juick_numbers 1
@@ -112,7 +116,8 @@
 }
 
 proc update_juick_tab {chatid from type body x} {
-    if {![is_juick $chatid] || ![cequal $type "chat"]} {
+    variable options
+    if {![expr [is_juick $chatid] && [cequal $type "chat"] && $options(special_update_juick_tab)]} {
         ::plugins::update_tab::update $chatid $from $type $body $x
         return
     }
@@ -141,7 +146,8 @@
 }
 
 proc add_number_of_messages_from_juick_to_title {chatid from type body x} {
-    if {![is_juick $chatid] || ![cequal $type "chat"]} {
+    variable options
+    if {![expr [is_juick $chatid] && [cequal $type "chat"] && $options(special_update_juick_tab)]} {
         ::ifacetk::add_number_of_messages_to_title $chatid $from $type $body $x
         return
     }



More information about the Tkabber-dev mailing list