aboutsummaryrefslogtreecommitdiffstats
path: root/vim-mode/vim_mode.pl
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2010-09-27 01:36:20 +0000
committerTom Feist <shabble@metavore.org>2010-09-27 01:36:20 +0000
commitba2c73e4acce3ab93c03023574e7978f288bedfc (patch)
tree7e0084d976cc48798ee4dab00c6c8460ceac709e /vim-mode/vim_mode.pl
parentvim_mode: Display count, operator, movement in statusbar. (diff)
downloadirssi-scripts-ba2c73e4acce3ab93c03023574e7978f288bedfc.tar.gz
irssi-scripts-ba2c73e4acce3ab93c03023574e7978f288bedfc.zip
adding still slightly broken undo code. The issue probably lies in how it's
being added, rather than the actual cmd_undo code.
Diffstat (limited to '')
-rw-r--r--vim-mode/vim_mode.pl42
1 files changed, 40 insertions, 2 deletions
diff --git a/vim-mode/vim_mode.pl b/vim-mode/vim_mode.pl
index 38c1aa9..56fa1ae 100644
--- a/vim-mode/vim_mode.pl
+++ b/vim-mode/vim_mode.pl
@@ -221,6 +221,15 @@ my $movements_multiple =
sub cmd_undo {
print "Undo!" if DEBUG;
+ if ($undo_index > $#undo_buffer) {
+ $undo_index = $#undo_buffer;
+ print "No further undo.";
+ } elsif ($undo_index != $#undo_buffer) {
+ $undo_index++;
+ }
+ print "Undoing entry $undo_index of " . $#undo_buffer;
+
+ _restore_undo_entry($undo_index);
}
sub cmd_redo {
@@ -934,6 +943,27 @@ sub vim_mode_init {
Irssi::statusbar_item_register ('vim_mode', 0, 'vim_mode_cb');
}
+sub _add_undo_entry {
+ my ($line, $pos) = @_;
+ # add to the front of the buffer
+ print "adding $line to undo list";
+ unshift @undo_buffer, [$line, $pos];
+ $undo_index = 0;
+}
+
+sub _restore_undo_entry {
+ my $entry = $undo_buffer[$undo_index];
+ _input($entry->[0], 1);
+ _input_pos($entry->[1]);
+}
+
+sub _clear_undo_buffer {
+ print "Clearing undo buffer";
+ @undo_buffer = (['', 0]);
+ $undo_index = 0;
+}
+
+
sub _commit_line {
my ($line) = @_;
@@ -955,15 +985,23 @@ sub _commit_line {
Irssi::active_win()->{active};
_input('');
_update_mode(M_INS);
+ _clear_undo_buffer();
}
sub _input {
- my ($data) = @_;
+ my ($data, $ignore) = @_;
+
+ my $current_data = Irssi::parse_special('$L', 0, 0);
+
if (defined $data) {
+ if (!$ignore && ($data ne $current_data)) {
+ _add_undo_entry($current_data, _input_pos());
+ }
Irssi::gui_input_set($data);
} else {
- $data = Irssi::parse_special('$L', 0, 0)
+ $data = $current_data;
}
+
return $data;
}