wms/wms_clearer.sh

#!/bin/sh

## clean screen ##

. /tmp/wms_var

FLAG=$1
FW=$(pfw)                      # focused window 
CL=$(atomx WM_CL $FW)          # clearrer atom
AMW=$(lsw)                     # all maped windows 
UW=$(atomx WM_CL $(lsw -u))    # unmaped windows

if [ -n "$UW" ]; then # if unmaped windows
    mapw -m $UW    # map them
    atomx -d WM_CL $UW    # delete atom

else    # if no unmaped windows 
	for wid in $(lsw); do
	    atomx WM_CL=$wid $wid
	done    # create atom
	mapw -u $AMW    # unmap windows 
    fi