--- mcore-src/trunk/mcore-tools/daemon/client/include/input.client.class	2011/03/10 18:14:34	1645
+++ mcore-src/trunk/mcore-tools/daemon/client/include/input.client.class	2011/11/09 13:37:54	1921
@@ -1,11 +1,16 @@
 # $Id$
 
 provide basic-input
+require fluxbox
 
 help_input_keymap()
 {
+	mecho "get input.keymap"
+	mecho " prints current keymap of xorg"
+	mecho
 	mecho "set input.keymap [keymap]"
-	mecho " de, us, en, gr, etc"
+	mecho " set keymap of xorg to [keymap]"
+	mecho "   keymaps may be: de, us, en, gr, etc"
 }
 
 # set_input_mouse
@@ -17,7 +22,32 @@
 # set_input_keyboard
 set_input_keyboard()
 {
-	return 0
+	local value="$1"
+	local rate
+	local CONFIG="${MCORE_CONFIG_PATH}/fluxbox/autostart/keyboard"
+
+	case ${value} in
+		slow) rate="1000 10" ;;
+		fast) rate="250 100" ;;
+		normal) rate="" ;;
+		*) help_input_keyboard && return 1 ;;
+	esac
+
+	clearconfig
+	addconfig "# ${value}"
+	addconfig "[startup] { nohup xset r rate ${rate} &}"
+
+	# rebuild autostart file
+	helper_rebuild_fluxbox_autostart
+
+	x11runas "xset r rate ${rate}"
+}
+
+get_input_keymap()
+{
+	local keymap
+	keymap=$(x11runas "setxkbmap -query" | grep layout | awk '{print $2}')
+	rvecho "keymap"
 }
 
 # set_input_keyboard