FIFO sort of works

After a ton of trial and error, I have something that kind of works.
Couldn't figure out forking for the moment, so this does block Irssi.
And if you do something like change the window layout in Tmux with
<prefix>-M-1, it messes up and closes the FIFO prematurely.

Key points were:

* Opening Vim before making the FIFO, otherwise Vim will block and not
  start.
* Opening Vim with a random other file instead of the FIFO because it
  hasn't been created yet. On write, Vim is set up to write to the FIFO.

Luckily chat messages don't get messed up when the interface blocks, but
I'd like to fix that urgently.

1 files changed, 128 insertions, 19 deletions

diff --git a/vimput.pl b/vimput.pl
index de9e04d..35eabc6 100644
--- a/vimput.pl
+++ b/vimput.pl
@@ -1,6 +1,7 @@
 use strict;
 
-use File::Temp qw(tempfile);
+use File::Temp qw(tmpnam tempfile);
+use POSIX qw(mkfifo);
 
 use Irssi;
 
@@ -35,36 +36,144 @@ sub write_input {
 
 # Open a Tmux split containing a Vim instance editing the vimput_file.
 sub open_tmux_split {
+	my ($filename, $fifo) = @_;
+
 	if (!$ENV{TMUX}) {
 		print 'no tmux'; # TODO: Replace with Irssi print
 						 # MSGLEVEL_CLIENTERROR
 		return;
 	}
 
-	my $command = "vim ${\vimput_file}";
+	# my $command = "vim ${\vimput_file}";
+	my $command = "vim -c 'set buftype=acwrite' -c 'read ${\vimput_file}' -c '1 delete _' -c 'autocmd BufWriteCmd <buffer> :write $fifo | set nomodified' $filename";
 	system('tmux', 'split-window', $command);
 }
 
 
 sub update_input_line_when_finished {
-	my ($handle, $filename) = tempfile();
-	print $filename;
-
-	open $handle, '<', $filename or die $!;
+	# my ($handle, $filename) = tempfile();
+	# print $filename;
+	# my $tempdir = tempdir('vimput-XXXXXXXXXX');
+	# my $fifo_path = "$tempdir/fifo";
+	# my $fifo;
+	# $fifo->autoflush(1);
+
+	# my $pid = fork();
+	# die $! if not defined $pid;
+
+# if ($pid == 0) { # child
+	# my $fifo_path = tmpnam();
+	# print 'F: ' . $fifo_path;
+    #
+	# mkfifo($fifo_path, 0600) or die $!;
+
+	# my $tag;
+	# my @args = ($fifo, \$tag);
+	# $tag = Irssi::input_add(
+	# 	fileno($fifo),
+	# 	Irssi::INPUT_READ,
+	# 	\&adljkhadhadfhjkl,
+	# 	\@args
+	# );
+
+	# open $fifo, '<', $fifo_path or die $!;
+	# open_tmux_split($fifo_path);
+    #
+	# $fifo->autoflush(1);
+	# while (<$fifo>) {
+	# 	# if ($_) {
+	# 		# print 'hello';
+	# 		print $_;
+	# 	# }
+	# }
+	# close $fifo;
+
+	# exit;
+	# open $fifo, '<', $fifo_path or die $!;
 	# my $x = 0;
-	while (<$handle>) {
-		print $_;
-		if ($_) {
-			print $_;
-			Irssi::gui_input_set($_);
-
-			close $handle;
-			last;
-		}
-		# print $_;
-		# sleep 2;
-		# $x++;
+	# while (<$fifo>) {
+	# 	last if $x > 5;
+	# 	print $_;
+	# 	if ($_) {
+	# 		print $_;
+	# 		Irssi::gui_input_set($_);
+    #
+	# 		last;
+	# 	}
+	# 	sleep 2;
+	# 	$x++;
+	# }
+	# close $fifo;
+# }
+# else {
+# 	Irssi::pidwait_add($pid);
+# }
+
+
+	# open my $handle, "cat ${\vimput_file} |" or die $!;
+	# while (<$handle>) {
+	# 	print $_;
+	# }
+	# close $handle;
+
+
+	# sub update_line {
+	# 	open my $handle, '<', vimput_file or die $!;
+	# 	while (<$handle>) {
+	# 		Irssi::gui_input_set($_);
+	# 	}
+	# 	close $handle;
+	# }
+    #
+	# my $tag = Irssi::timeout_add(1000, \&update_line);
+
+
+	# my $fuckyoumotherfucker = '/tmp/fucking-fifo';
+	# unlink $fuckyoumotherfucker;
+	# open_tmux_split($fuckyoumotherfucker);
+    #
+	# mkfifo($fuckyoumotherfucker, 0600) or die $!;
+	# open my $fifo, '<', $fuckyoumotherfucker, or die $!;
+	# while (<$fifo>) {
+	# 	print $_;
+	# }
+	# close $fifo;
+	# unlink $fuckyoumotherfucker;
+
+
+# 	my $pid = fork();
+# 	die $! if not defined $pid;
+#
+# if ($pid == 0) {
+	my $fuckyoumotherfucker = '/tmp/fucking-fifo';
+	unlink $fuckyoumotherfucker;
+	open_tmux_split('/tmp/fucking-other-file', $fuckyoumotherfucker);
+
+	mkfifo($fuckyoumotherfucker, 0600) or die $!;
+	open my $fifo, '<', $fuckyoumotherfucker, or die $!;
+	while (<$fifo>) {
+		chomp $_;
+		Irssi::gui_input_set($_);
 	}
+	close $fifo;
+	unlink $fuckyoumotherfucker;
+
+	# exit;
+# }
+# else {
+# 	Irssi::pidwait_add($pid);
+# }
+}
+
+
+sub adljkhadhadfhjkl {
+	my ($args) = @_;
+	my ($fifo, $tag) = @$args;
+
+	my $input = <$fifo>;
+	print 'I: ' . $input;
+	close $fifo;
+	Irssi::input_remove($$tag);
 }
 
 
@@ -74,7 +183,7 @@ Irssi::signal_add_last 'gui key pressed' => sub {
 
 	if ($key eq CTRL_X) {
 		write_input(Irssi::parse_special('$L', undef, 0));
-		open_tmux_split();
+		# open_tmux_split();
 		update_input_line_when_finished();
 	}
 };