#!/usr/bin/env dash

font="-*-fixed-medium-*-*-*-12-*-*-*-*-*-*-*"
screen=$(ratpoison -c sdump | tr ',' '\n' | grep '1$')
width=$(echo $screen | cut -d ' ' -f 4)
height=$(echo $screen | cut -d ' ' -f 5)
s=$(echo $screen | cut -d ' ' -f 1)
w=$(($width/3))
h=$(($height/3))

alias dm="dmenu -l 16 -s $s -x $w -y $h -w $w -p \"Select >\" -sb '#0B0' -sf black -nb '#000' -fn $font -i"

sel=$(ratpoison -c windows | dm | cut -d ' ' -f 1)
[ ! "$sel" = "" ] && ratpoison -c "select $sel" || true