hlfw.ca

rc

ref: dbe11bbe99e7a405ce78b7ebf963b684ca3891bf
dir: /wm/

#!/bin/rc

aux/acpi
done=0

fn sigint {
	pid=`{cat /tmp/wm.pid}
	echo kill >/proc/$pid/ctl
}

mount /srv/plumb /mnt/plumb

touch /tmp/wm.proj /tmp/wm.pid
echo '○ │ ○ │  ○ │ ○ │ ○ │ ○' > /tmp/wm.tags
	
</dev/kbdtap ktrans -G | 9hkd -t  >/dev/kbdtap |[3] {
	{
		cat /mnt/plumb/notify | while(~ $done 0){
			cmd=`{read}
			port=`{read}
			usr=`{read}
			text=`{read}
			msg=`{read}
			echo $msg | sed 's/message=//; s/$/ │/' > /tmp/wm.proj
			tags=`{cat /tmp/wm.tags}
			proj=`{cat /tmp/wm.proj}
			echo $proj $tags
			ndata=`{read}
			data=`{read -c $ndata}
		} &
		echo $apid > /tmp/wm.pid

		# Plain pipe reads here
		while(tags=`{read}){
			proj=`{cat /tmp/wm.proj}
			echo $tags > /tmp/wm.tags
			echo $proj $tags
		}
		done=1
	}
}| bar -p bottom | dropbar