MODKEY=Mod4
wmiifont=anorexia
wmiinormcol=('#bbbbbb' '#2c2c2c' '#3d3d3d')
wmiifocuscol=('#eeeeee' '#3e5368' '#567390')
wmiibackground='#304050'

WMII_TERM=(randomterm)

wmiir write /tagrules <<!
/gimp:Gimp:Color Picker/ -> ~
/gimp:Gimp:Open.*/ -> ~
/PlaneShift/ -> ~
/feh.*/ -> ~
/MPlayer.*/ -> ~
/ePSXe/ -> ~
/ROX-Filer:ROX-Filer:Delete/ -> ~
/ROX-Filer:ROX-Filer:Move/ -> ~
/ROX-Filer:ROX-Filer:Copy/ -> ~
/Savebox:savebox:*/ -> ~
/save_dialog:Dillo:*/ -> ~
/page:page:page/ -> ~
/.*/ -> !
/.*/ -> irc
!

wmiir write /colrules <<!
/./ -> 55+45
!

# I have a status script in ~/.wmii-3.5/status so I undefine the default stuff
fn status
fn Action-status

fn Event-Notice

fn LBarMenu-3-Delete

# I keep track of a directory per tag and start any programs run from that tag in
# said directory. This should probably just redefine run_command.
fn launch {
	tag=`{wmiir read /tag/sel/ctl |sed 1q}
	~ $tag * && dir=`{awk -v 'tag='^$tag '$1==tag {sub("[^ \t]*[ \t]*", ""); print}' $home/.wmii-3.5/dirs}
	@{	rfork ns
		cd $"dir
		path=$oldpath
		eval exec $* </dev/null
	}
}

# Get the $1-th lexically sorted tag
fn gettag {
	wmiir ls /tag |awk -F/ -v 'line='^$1 '/^sel\/$/ {++line}  NR==line {print $1; exit}'
}

# All keybindings go in here - the fucntion gets run after rc.wmii has set the
# default keys so here I can override defaults.
fn Action-overridekeys {
	# I use MOD-r instead of MOD-p - why are you looking at me like that?
	fn Key-$MODKEY-p
	fn Key-$MODKEY-r { launch `{wi_menu <$progs_file} & }

	# I liked the old default vertical split of the um, 3.1? days, so here
	# I move a client to its own column if it is the second client in a
	# view.
	fn Event-CreateClient {
		clients=`{wmiir read /tag/sel/index |sed '/^#/d' |wc -l}
		test $clients -eq 2 && wmiir xwrite /tag/sel/ctl send $1 right
	}

	# I've used all of these at various times in my life...
	fn Key-$MODKEY-F1 { setxkbmap us -variant dvorak-l }
	fn Key-$MODKEY-F2 { setxkbmap us -variant dvorak }
	fn Key-$MODKEY-F3 { setxkbmap us -variant dvorak-r }
	fn Key-$MODKEY-F4 { setxkbmap us }
	fn Key-$MODKEY-F5 { setxkbmap colemak }

	# I use gettag() here to switch to the nth view on MOD-[1234567890]
	for (i in `{seq 0 9}) {
		fn Key-$MODKEY-$i { wmiir xwrite /ctl view `{gettag `{echo $1 |sed 's/.*-//'} } }
		fn Key-Shift-$MODKEY-$i { wmiir xwrite /client/sel/tags `{gettag `{echo $1 |sed 's/.*-//'} } }
	}
	fn Key-$MODKEY-Return { launch randomterm & }

	# I keep expecting this to work in X servers I launched purely to game, should look in to xhotkey
	fn Key-Sys_Req { scrot & }

	# Setup default tag. The if makes sure we only mess with /lbar on
	# the first invocation of rc.wmii
	echo tags: `{wmiir ls /tag}
	if (test `{wmiir ls /tag |wc -l} -eq 0) {
		echo $WMII_FOCUSCOLORS irc |wmiir create /lbar/irc
		wmiir xwrite /ctl view irc
	}

	feh --bg-center $home/.bg/current.png
}