1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#!/bin/zsh
setopt no_unset extended_glob warn_create_global

die() {
	printf >&2 '%s\n' "$@"
	exit 1
}

direct-urxvt() {
	local container cmd sockd display
	container=$1
	cmd=$2
	sock=/run/inbox/$container/run/exec/exec 
	display=${DISPLAY#:}

	#s6-sudo /run/cmd.s up $container || 
	#	die "Failed to start container ${(qqq)container}"

	s6-sudo /run/cmd.s link $container xsession.$display.$USER run/exec/exec ||
		die "Failed to link ${(qqq)container} exec socket."

	[[ -S $sock ]] ||
		die "Failed to link ${(qqq)container} exec socket."

	s6-sudo /run/cmd.s link xsession.$display.$USER $container run/exec/urxvt ||
		die "Failed to link urxvt socket."

	local -a el_env=(
		EXEC_PATH=$sock
		URXVT_PATH=/run/inbox/xsession.$display.$USER/run/exec/urxvt
	)
	local -a el_cmd=(
		'multisubstitute {'
		'  importas -i -u EXEC_PATH EXEC_PATH'
		'  importas -i -u URXVT_PATH URXVT_PATH'
		'}'
		's6-sudo $EXEC_PATH'
		'/mnt/ns/bin/spawn-pty rxvt-unicode-256color {'
		"  $cmd"
		'} s6-sudo $URXVT_PATH '${(qqq)${container//./:}}
	)
	exec env $el_env execlineb -c "${(F)el_cmd}"
}

main() {
	local container sock arg
	local -a quoted
	[[ $1 == */* ]] && die "Invalid container name: ${(qqq)1}"
	container=$1
	shift 1 || exit $?
	sock=/run/inbox/$container/run/exec/exec 

	for arg in "$@"; do
		quoted+=( "$(s6-quote -- "$arg")" )
	done

#	if [[ -S $sock ]]; then
#		#exec s6-sudo $sock "$@"
		direct-urxvt $container "${(j: :)quoted}"
#	else
#		powerbox-plumb "container-urxvt/$container/${(j: :)quoted}"
#	fi
	
}
typeset -f -t main

main "$@"