open_tmux_split: Mirror cursor position in Vim

Get the current cursor position in Irssi and make the Vim cursor
position the same. Makes editing more cognitively coherent. This way, if
you've already been editing the Irssi line and the cursor is in the
middle of the line, you can pick up right where you left off in Vim.

1 files changed, 8 insertions, 4 deletions

diff --git a/vimput.pl b/vimput.pl
index 2597933..a316528 100644
--- a/vimput.pl
+++ b/vimput.pl
@@ -66,7 +66,7 @@ sub write_input {
 
 # Open a Tmux split containing a Vim instance editing the vimput_file.
 sub open_tmux_split {
-	my ($fifo, $error_handle) = @_;
+	my ($fifo, $error_handle, $cursor_position) = @_;
 
 	if (!$ENV{TMUX}) {
 		print $error_handle ERROR_PREFIX . 'Not running in tmux.';
@@ -76,7 +76,7 @@ sub open_tmux_split {
 
 	my $random_unused_filename = tmpnam();
 
-	my $command = "vim -c 'set buftype=acwrite' -c 'read ${\vimput_file}' -c '1 delete _' -c 'autocmd BufWriteCmd <buffer> :write $fifo | set nomodified' $random_unused_filename";
+	my $command = "vim -c 'set buftype=acwrite' -c 'read ${\vimput_file}' -c '1 delete _' -c 'normal! ${cursor_position}l' -c 'autocmd BufWriteCmd <buffer> :write $fifo | set nomodified' $random_unused_filename";
 	system('tmux', 'split-window', $command);
 
 	return 1;
@@ -89,6 +89,8 @@ sub open_tmux_split {
 sub open_tmux_and_update_input_line_when_finished {
 	return if $forked;
 
+	my ($cursor_position) = @_;
+
 	my ($read_handle, $write_handle);
 
 	pipe($read_handle, $write_handle);
@@ -113,7 +115,7 @@ sub open_tmux_and_update_input_line_when_finished {
 	if (is_child_fork($pid)) {
 		my $fifo_path = tmpnam();
 
-		open_tmux_split($fifo_path, $write_handle) or do {
+		open_tmux_split($fifo_path, $write_handle, $cursor_position) or do {
 			cleanup();
 			POSIX::_exit(1);
 		};
@@ -251,6 +253,8 @@ Irssi::command_bind('help', sub {
 
 # Main entrypoint.
 sub vimput {
+	my $cursor_position = Irssi::gui_input_get_pos();
+
 	write_input(Irssi::parse_special('$L', undef, 0));
-	open_tmux_and_update_input_line_when_finished();
+	open_tmux_and_update_input_line_when_finished($cursor_position);
 }