#!/bin/bash

unset xmodmap_pke
keyname_to_keycode() {
	: ${xmodmap_pke:=$(xmodmap -pke)}
	echo "${xmodmap_pke}" | awk -vkey="$1" '$4 == key { print $2 }'
}

# disable repeat on some keys (randomly, they get turned on?!)
keys=(
	Control_{L,R}		# Ctrl key
	Shift_{L,R}			# Shift key
	Alt_{L,R}			# Alt key
	Super_{L,R}			# Windows key
	Mode_switch			# Capslock
)
for x in ${keys[@]} ; do
	for c in $(keyname_to_keycode $x); do
		xset -r ${c}
	done
done

# xset r rate <delay before autorepeat starts> <repeat rate>
#                 in milliseconds              keys per sec
exec xset r rate 200 40