diff options
| author | mh | 2015-11-17 17:53:27 +0100 |
|---|---|---|
| committer | mh | 2015-11-17 17:53:27 +0100 |
| commit | d65df71c60cdca32975e2f542b4f2ef8893aa515 (patch) | |
| tree | 4ebebd58f8e07f6705c27fe2c56861c1fc04a9ca /scripts/mh_windowfill.pl | |
| parent | c3bf865a54edacd82af48b68b36749e263bbb25e (diff) | |
| download | scripts.irssi.org-d65df71c60cdca32975e2f542b4f2ef8893aa515.tar.bz2 | |
mh_windowfill v1.01
small cleanup and added screenshots
Diffstat (limited to 'scripts/mh_windowfill.pl')
| -rw-r--r-- | scripts/mh_windowfill.pl | 36 |
1 files changed, 9 insertions, 27 deletions
diff --git a/scripts/mh_windowfill.pl b/scripts/mh_windowfill.pl index deee063..1ef6b85 100644 --- a/scripts/mh_windowfill.pl +++ b/scripts/mh_windowfill.pl @@ -1,6 +1,6 @@ ############################################################################## # -# mh_windowfill.pl v1.00 (20151116) +# mh_windowfill.pl v1.01 (20151116) # # Copyright (c) 2015 Michael Hansen # @@ -22,12 +22,18 @@ # # fill windows so scrolling starts bottom-up instead of top-down # +# screenshots: +# without script: http://picpaste.com/cfda32a34ea96e16dcb3f2d956655ff6.png +# with script: http://picpaste.com/e3b84ead852e3e77b12ed69383f1f80c.png +# # known issues: # - /CLEAR will reset to top-down # - it is possible to confuse the script into not filling with a combination # of script load/unloads and window resizes. but it requires effort # # history: +# v1.01 (20151116) +# source cleanup # v1.00 (20151116) # initial release # @@ -45,11 +51,11 @@ use strict; use Irssi 20100403; use Irssi::TextUI; -our $VERSION = '1.00'; +our $VERSION = '1.01'; our %IRSSI = ( 'name' => 'mh_windowfill', - 'description' => 'fill windows so scrolling starts bottom-up instead of top-down', + 'description' => 'fill windows so scrolling starts bottom-up instead of top-down (screenshots in source)', 'license' => 'BSD', 'authors' => 'Michael Hansen', 'contact' => 'mh on IRCnet #help', @@ -66,29 +72,6 @@ our $windowfill_running = 0; ############################################################################## # -# common support functions -# -############################################################################## - -sub trim_spacelike($) -{ - my ($string) = @_; - - if (defined($string)) - { - $string =~ s/^\s+//g; - $string =~ s/\s+$//g; - - } else { - - $string = ''; - } - - return($string); -} - -############################################################################## -# # script functions # ############################################################################## @@ -107,7 +90,6 @@ sub windowfill($) # if (($window->view()->{'ypos'} + 2) <= $window->{'height'}) { - while (($window->view()->{'ypos'} + 2) <= $window->{'height'}) { $window->print('', MSGLEVEL_CLIENTCRAP | MSGLEVEL_NEVER | MSGLEVEL_NO_ACT | MSGLEVEL_NOHILIGHT); |