aboutsummaryrefslogtreecommitdiffstats
path: root/history-search/rl_history_search.pl
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2011-04-13 23:38:45 +0000
committerTom Feist <shabble@metavore.org>2011-04-13 23:38:45 +0000
commit0c63d1e251c2e6b85a0306a7a0b191d2f8829cd1 (patch)
treee4367ef88749c5ad642d54f47aac406a353a6db7 /history-search/rl_history_search.pl
parentrl_history_search: added 'number select mode', accessible with C-f when the (diff)
downloadirssi-scripts-0c63d1e251c2e6b85a0306a7a0b191d2f8829cd1.tar.gz
irssi-scripts-0c63d1e251c2e6b85a0306a7a0b191d2f8829cd1.zip
rl_history_search: clarify copyright, bump version number and add more things to TODO
Diffstat (limited to 'history-search/rl_history_search.pl')
-rw-r--r--history-search/rl_history_search.pl28
1 files changed, 17 insertions, 11 deletions
diff --git a/history-search/rl_history_search.pl b/history-search/rl_history_search.pl
index 8da9584..4bb0fcd 100644
--- a/history-search/rl_history_search.pl
+++ b/history-search/rl_history_search.pl
@@ -37,7 +37,7 @@
# selected item in the input line.
#
# Original script Copyright 2007 Wouter Coekaerts <coekie@irssi.org>
-# Heavy modifications by Shabble <shabble+irssi@metavore.org>, 2010.
+# Heavy modifications Copyright 2010-11 Tom Feist <shabble+irssi@metavore.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -56,18 +56,20 @@
# TODO:
#
# * DONE document tab behaviour
-# * add keys (C-n/C-p) to scroll history list
+# * add keys (C-n/C-p) to scroll history list if necessary.
# * DONE if list is bigger than split size, centre it so selected item is visible
-# * allow a mechanism to select by number from list
+# * INPROG allow a mechanism to select by number from list
+# * steal more of the code from ido_switcher to hilight match positions.
+# * make flex matching optional (key or setting)
+# * add some online help (? or C-h triggered, maybe?)
use strict;
use Irssi;
use Irssi::TextUI;
use Data::Dumper;
-use vars qw($VERSION %IRSSI);
-$VERSION = '2.0';
-%IRSSI =
+our $VERSION = '2.5';
+our %IRSSI =
(
authors => 'Tom Feist, Wouter Coekaerts',
contact => 'shabble+irssi@metavore.org, shabble@#irssi/freenode',
@@ -76,7 +78,7 @@ $VERSION = '2.0';
. ' (like ctrl-R in readline applications)',
license => 'GPLv2 or later',
url => 'http://github.com/shabble/irssi-scripts/tree/master/history-search/',
- changed => '24/7/2010'
+ changed => '14/4/2011'
);
my $search_str = '';
@@ -149,6 +151,10 @@ sub setup_changed {
$DEBUG_ENABLED = Irssi::settings_get_bool('histsearch_debug');
}
+sub history_window_open {
+ return defined $split_ref;
+}
+
sub history_search {
$search_active = 1;
$search_str = '';
@@ -255,7 +261,7 @@ sub flex_match {
sub enter_select_num_mode {
# require that the list be shown.
- return unless defined $split_ref;
+ return unless history_window_open();
return if $select_num_active; # TODO: should we prevent restarting?
$num_buffer = 0;
@@ -351,7 +357,7 @@ sub handle_keypress {
if ($key == 9) { # TAB
update_history_matches();
- if (not defined $split_ref) {
+ if (not history_window_open()) {
create_listing_split();
} else {
print_current_matches();
@@ -438,7 +444,7 @@ sub create_listing_split {
sub close_listing_split {
- if (defined $split_ref) {
+ if (history_window_open()) {
Irssi::command("window close $split_ref->{refnum}");
undef $split_ref;
}
@@ -458,7 +464,7 @@ sub sig_win_created {
sub print_current_matches {
- return unless defined $split_ref;
+ return unless history_window_open();
my $num_matches = scalar(@search_matches);
return unless $num_matches > 0;