From 1e782a294d02d74b29f0cfb7d138d41d31c2f106 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 16 Dec 2017 11:00:14 +0100
Subject: 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.
---
 vimput.pl | 147 ++++++++++++++++++++++++++++++++++++++++++++++++++++++--------
 1 file 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();
 	}
 };
-- 
cgit v1.2.3