1# /dis/sh script 2# wm defines "menu" and "delmenu" builtins 3load std 4prompt='% ' '' 5fn % {$*} 6autoload=std 7home=/usr/^"{cat /dev/user} 8 9if {! {~ wm ${loaded}}} { 10 echo wmsetup must run under wm >[1=2] 11 raise usage 12} 13 14fn wmrun { 15 args := $* 16 { 17 pctl newpgrp 18 fn wmrun 19 $args 20 } > /chan/wmstdout >[2] /chan/wmstderr & 21} 22 23fn cd { 24 builtin cd $*; echo cwd `{pwd} > /chan/shctl >[2] /dev/null 25} 26 27plumber >[2] /chan/wmstderr >/chan/wmstdout 28wmrun $* 29