mutt: fix F macro to not write message to home

[dotfiles.git] / weechat / perl / highmon.pl

diff --git a/weechat/perl/highmon.pl b/weechat/perl/highmon.pl
index 2aeb1de5c57080f632538c64f717c676c5f3a6b1..066fa4370997aa43c653df0aa097bd037f11a999 100644 (file)
--- a/weechat/perl/highmon.pl
+++ b/weechat/perl/highmon.pl
@@ -1,16 +1,18 @@
 #
 # highmon.pl - Highlight Monitoring for weechat 0.3.0
 #
 # highmon.pl - Highlight Monitoring for weechat 0.3.0

-# Version 2.4
+# Version 2.6

 #
 # Add 'Highlight Monitor' buffer/bar to log all highlights in one spot
 #
 # Usage:
 #
 # Add 'Highlight Monitor' buffer/bar to log all highlights in one spot
 #
 # Usage:

-# /highmon [help] | [monitor [channel [server]]] | [clean default|orphan|all]
+# /highmon [help] | [monitor [channel [server]]] | [clean default|orphan|all] | clearbar

 #  Command wrapper for highmon commands
 #
 # /highmon clean default|orphan|all will clean the config section of default 'on' entries,
 #  channels you are no longer joined, or both
 #
 #  Command wrapper for highmon commands
 #
 # /highmon clean default|orphan|all will clean the config section of default 'on' entries,
 #  channels you are no longer joined, or both
 #

+# /highmon clearbar will clear the contents of highmon's bar output
+#

 # /highmon monitor [channel] [server] is used to toggle a highlight monitoring on and off, this
 #  can be used in the channel buffer for the channel you wish to toggle, or be given
 #  with arguments e.g. /highmon monitor #weechat freenode
 # /highmon monitor [channel] [server] is used to toggle a highlight monitoring on and off, this
 #  can be used in the channel buffer for the channel you wish to toggle, or be given
 #  with arguments e.g. /highmon monitor #weechat freenode


@@ -62,10 +64,22 @@
 #  servername is the internal name for the server (set when you use /server add)
 #  #channel is the channel name, (where # is whatever channel type that channel happens to be)
 #
 #  servername is the internal name for the server (set when you use /server add)
 #  #channel is the channel name, (where # is whatever channel type that channel happens to be)
 #

+# Optional, set up tweaks; Hide the status and input lines on highmon
+#
+# /set weechat.bar.status.conditions "${window.buffer.full_name} != perl.highmon"
+# /set weechat.bar.input.conditions "${window.buffer.full_name} != perl.highmon"
+#

 
 # Bugs and feature requests at: https://github.com/KenjiE20/highmon
 
 # History:
 
 # Bugs and feature requests at: https://github.com/KenjiE20/highmon
 
 # History:

+# 2019-05-13, HubbeKing <hubbe128@gmail.com>
+#      v2.6:   -add: send "logger_backlog" signal on buffer open if logging is enabled
+# 2014-08-16, KenjiE20 <longbow@longbowslair.co.uk>:
+#      v2.5:   -add: clearbar command to clear bar output
+#                      -add: firstrun output prompt to check the help text for set up hints as they were being missed
+#                      and update hint for conditions to use eval
+#                      -change: Make all outputs use the date callback for more accurate timestamps (thanks Germainz)

 # 2013-12-04, KenjiE20 <longbow@longbowslair.co.uk>:
 #      v2.4:   -add: Support for eval style colour codes in time format used for bar output
 # 2013-10-22, KenjiE20 <longbow@longbowslair.co.uk>:
 # 2013-12-04, KenjiE20 <longbow@longbowslair.co.uk>:
 #      v2.4:   -add: Support for eval style colour codes in time format used for bar output
 # 2013-10-22, KenjiE20 <longbow@longbowslair.co.uk>:


@@ -140,11 +154,13 @@
 @bar_lines_time = ();
 # Replicate info earlier for in-client help
 
 @bar_lines_time = ();
 # Replicate info earlier for in-client help
 

-$highmonhelp = weechat::color("bold")."/highmon [help] | [monitor [channel [server]]] | [clean default|orphan|all]".weechat::color("-bold")."
+$highmonhelp = weechat::color("bold")."/highmon [help] | [monitor [channel [server]]] | [clean default|orphan|all] | clearbar".weechat::color("-bold")."

  Command wrapper for highmon commands
 
 ".weechat::color("bold")."/highmon clean default|orphan|all".weechat::color("-bold")." will clean the config section of default 'on' entries, channels you are no longer joined, or both
 
  Command wrapper for highmon commands
 
 ".weechat::color("bold")."/highmon clean default|orphan|all".weechat::color("-bold")." will clean the config section of default 'on' entries, channels you are no longer joined, or both
 

+".weechat::color("bold")."/highmon clearbar".weechat::color("-bold")." will clear the contents of highmon's bar output
+

 ".weechat::color("bold")."/highmon monitor [channel] [server]".weechat::color("-bold")." is used to toggle a highlight monitoring on and off, this can be used in the channel buffer for the channel you wish to toggle, or be given with arguments e.g. /highmon monitor #weechat freenode
 
 ".weechat::color("bold")."/set plugins.var.perl.highmon.alignment".weechat::color("-bold")."
 ".weechat::color("bold")."/highmon monitor [channel] [server]".weechat::color("-bold")." is used to toggle a highlight monitoring on and off, this can be used in the channel buffer for the channel you wish to toggle, or be given with arguments e.g. /highmon monitor #weechat freenode
 
 ".weechat::color("bold")."/set plugins.var.perl.highmon.alignment".weechat::color("-bold")."


@@ -190,7 +206,12 @@ Setting this to 'on' will only put messages in the highmon buffer when you set y
 
 ".weechat::color("bold")."servername.#channel".weechat::color("-bold")."
  servername is the internal name for the server (set when you use /server add)
 
 ".weechat::color("bold")."servername.#channel".weechat::color("-bold")."
  servername is the internal name for the server (set when you use /server add)

- #channel is the channel name, (where # is whatever channel type that channel happens to be)";
+ #channel is the channel name, (where # is whatever channel type that channel happens to be)
+
+".weechat::color("bold")."Optional, set up tweaks;".weechat::color("-bold")." Hide the status and input lines on highmon
+
+".weechat::color("bold")."/set weechat.bar.status.conditions \"\${window.buffer.full_name} != perl.highmon\"".weechat::color("-bold")."
+".weechat::color("bold")."/set weechat.bar.input.conditions \"\${window.buffer.full_name} != perl.highmon\"".weechat::color("-bold");

 # Print verbose help
 sub print_help
 {
 # Print verbose help
 sub print_help
 {


@@ -287,7 +308,7 @@ sub highmon_buffer_open
        # Turn off notify, highlights
        if ($highmon_buffer ne "")
        {
        # Turn off notify, highlights
        if ($highmon_buffer ne "")
        {

-               if (weechat::config_get_plugin("hotlist_show" eq "off"))
+               if (weechat::config_get_plugin("hotlist_show") eq "off")

                {
                        weechat::buffer_set($highmon_buffer, "notify", "0");
                }
                {
                        weechat::buffer_set($highmon_buffer, "notify", "0");
                }


@@ -298,6 +319,11 @@ sub highmon_buffer_open
                {
                        weechat::buffer_set($highmon_buffer, "localvar_set_no_log", "1");
                }
                {
                        weechat::buffer_set($highmon_buffer, "localvar_set_no_log", "1");
                }

+               # send "logger_backlog" signal if logging is enabled to display backlog
+               if (weechat::config_get_plugin("logging") eq "on")
+               {
+                       weechat::hook_signal_send("logger_backlog", weechat::WEECHAT_HOOK_SIGNAL_POINTER, $highmon_buffer)
+               }

        }
        return weechat::WEECHAT_RC_OK;
 }
        }
        return weechat::WEECHAT_RC_OK;
 }


@@ -355,6 +381,15 @@ sub highmon_command_cb
        {
                highmon_config_clean($data, $buffer, $arg);
        }
        {
                highmon_config_clean($data, $buffer, $arg);
        }

+       # clearbar command
+       elsif ($cmd eq "clearbar")
+       {
+               if (weechat::config_get_plugin("output") eq "bar")
+               {
+                       @bar_lines = ();
+                       weechat::bar_item_update("highmon");
+               }
+       }

        # Fix closed buffer
        elsif ($cmd eq "fix")
        {
        # Fix closed buffer
        elsif ($cmd eq "fix")
        {


@@ -454,6 +489,15 @@ sub highmon_config_clean
 # Check config elements
 sub highmon_config_init
 {
 # Check config elements
 sub highmon_config_init
 {

+       # First run default
+       if (!(weechat::config_is_set_plugin ("first_run")))
+       {
+               if (weechat::config_get_plugin("first_run") ne "true")
+               {
+                       weechat::print("", "\tThis appears to be the first time highmon has been run. For help and common set up hints see /highmon help");
+                       weechat::config_set_plugin("first_run", "true");
+               }
+       }

        # Alignment default
        if (!(weechat::config_is_set_plugin ("alignment")))
        {
        # Alignment default
        if (!(weechat::config_is_set_plugin ("alignment")))
        {


@@ -640,7 +684,7 @@ sub highmon_hook
        weechat::hook_print("", "", "", 0, "highmon_new_message", "");
        weechat::hook_command("highclean", "Highmon config clean up", "default|orphan|all", " default: Cleans all config entries with the default \"on\" value\n  orphan: Cleans all config entries for channels you aren't currently joined\n     all: Does both defaults and orphan", "default|orphan|all", "highmon_config_clean", "");
 
        weechat::hook_print("", "", "", 0, "highmon_new_message", "");
        weechat::hook_command("highclean", "Highmon config clean up", "default|orphan|all", " default: Cleans all config entries with the default \"on\" value\n  orphan: Cleans all config entries for channels you aren't currently joined\n     all: Does both defaults and orphan", "default|orphan|all", "highmon_config_clean", "");
 

-       weechat::hook_command("highmon", "Highmon help", "[help] | [monitor [channel [server]]] | [clean default|orphan|all]", "   help: Print help on config options for highmon\n monitor: Toggles monitoring for a channel\n  clean: Highmon config clean up (/highclean)", "help || monitor %(irc_channels) %(irc_servers) || clean default|orphan|all", "highmon_command_cb", "");
+       weechat::hook_command("highmon", "Highmon help", "[help] | [monitor [channel [server]]] | [clean default|orphan|all] | clearbar", "    help: Print help on config options for highmon\n monitor: Toggles monitoring for a channel\n   clean: Highmon config clean up (/highclean)\nclearbar: Clear Highmon bar", "help || monitor %(irc_channels) %(irc_servers) || clean default|orphan|all || clearbar", "highmon_command_cb", "");

 
        weechat::hook_config("plugins.var.perl.highmon.*", "highmon_config_cb", "");
        weechat::hook_config("weechat.look.prefix_suffix", "highmon_config_cb", "");
 
        weechat::hook_config("plugins.var.perl.highmon.*", "highmon_config_cb", "");
        weechat::hook_config("weechat.look.prefix_suffix", "highmon_config_cb", "");


@@ -720,7 +764,7 @@ sub highmon_new_message
                                                $nick = weechat::color("chat_highlight").$uncolnick.weechat::color("reset");
                                        }
                                        # Send to output
                                                $nick = weechat::color("chat_highlight").$uncolnick.weechat::color("reset");
                                        }
                                        # Send to output

-                                       highmon_print ($cb_msg, $cb_bufferp, $nick);
+                                       highmon_print ($cb_msg, $cb_bufferp, $nick, $cb_date, $cb_tags);

                                }
                        }
                        # Or is private message
                                }
                        }
                        # Or is private message


@@ -731,7 +775,7 @@ sub highmon_new_message
                                # Format nick
                                $nick = " ".weechat::config_get_plugin("nick_prefix").weechat::color("chat_highlight").$uncolnick.weechat::color("reset").weechat::config_get_plugin("nick_suffix");
                                #Send to output
                                # Format nick
                                $nick = " ".weechat::config_get_plugin("nick_prefix").weechat::color("chat_highlight").$uncolnick.weechat::color("reset").weechat::config_get_plugin("nick_suffix");
                                #Send to output

-                               highmon_print ($cb_msg, $cb_bufferp, $nick);
+                               highmon_print ($cb_msg, $cb_bufferp, $nick, $cb_date, $cb_tags);

                        }
                }
        }
                        }
                }
        }


@@ -744,6 +788,8 @@ sub highmon_print
        $cb_msg = $_[0];
        my $cb_bufferp = $_[1] if ($_[1]);
        my $nick = $_[2] if ($_[2]);
        $cb_msg = $_[0];
        my $cb_bufferp = $_[1] if ($_[1]);
        my $nick = $_[2] if ($_[2]);

+       my $cb_date = $_[3] if ($_[3]);
+       my $cb_tags = $_[4] if ($_[4]);

 
        #Normal channel message
        if ($cb_bufferp && $nick)
 
        #Normal channel message
        if ($cb_bufferp && $nick)


@@ -846,13 +892,27 @@ sub highmon_print
                # Search for and confirm buffer
                $highmon_buffer = weechat::buffer_search("perl", "highmon");
                # Print
                # Search for and confirm buffer
                $highmon_buffer = weechat::buffer_search("perl", "highmon");
                # Print

-               weechat::print($highmon_buffer, $outstr);
+               if ($cb_date)
+               {
+                       weechat::print_date_tags($highmon_buffer, $cb_date, $cb_tags, $outstr);
+               }
+               else
+               {
+                       weechat::print($highmon_buffer, $outstr);
+               }

        }
        elsif (weechat::config_get_plugin("output") eq "bar")
        {
                # Add time string
                use POSIX qw(strftime);
        }
        elsif (weechat::config_get_plugin("output") eq "bar")
        {
                # Add time string
                use POSIX qw(strftime);

-               $time = strftime(weechat::config_string(weechat::config_get("weechat.look.buffer_time_format")), localtime);
+               if ($cb_date)
+               {
+                       $time = strftime(weechat::config_string(weechat::config_get("weechat.look.buffer_time_format")), localtime($cb_date));
+               }
+               else
+               {
+                       $time = strftime(weechat::config_string(weechat::config_get("weechat.look.buffer_time_format")), localtime);
+               }

                # Colourise
                if ($time =~ /\$\{(?:color:)?[\w,]+\}/) # Coloured string
                {
                # Colourise
                if ($time =~ /\$\{(?:color:)?[\w,]+\}/) # Coloured string
                {


@@ -1071,7 +1131,7 @@ sub format_buffer_name
 }
 
 # Check result of register, and attempt to behave in a sane manner
 }
 
 # Check result of register, and attempt to behave in a sane manner

-if (!weechat::register("highmon", "KenjiE20", "2.4", "GPL3", "Highlight Monitor", "", ""))
+if (!weechat::register("highmon", "KenjiE20", "2.6", "GPL3", "Highlight Monitor", "", ""))

 {
        # Double load
        weechat::print ("", "\tHighmon is already loaded");
 {
        # Double load
        weechat::print ("", "\tHighmon is already loaded");