Add key binding support for Colemak.

diff --git a/common/bindings b/common/bindings
index 14a71b233d905558531a2596b353c5a4de5b0cec..d9a03fae2d76f39007c50560fa893dc159bb6c28 100644 (file)
--- a/common/bindings
+++ b/common/bindings
@@ -12,14 +12,6 @@ Key F4 A M  Close
 # When programs don't set the resolution...
 Key F12 A C Exec exec xrandr -s 0
 
-# For moving windows around desktops.
-Key J WFT CM DoPageMove 0
-Key K WFT CM DoPageMove 1
-Key L WFT CM DoPageMove 2
-Key U WFT CM DoPageMove 3
-Key I WFT CM DoPageMove 4
-Key O WFT CM DoPageMove 5
-
 # For moving ourself around desktops.
 Key 1 A CM GotoPage 0 0
 Key 2 A CM GotoPage 1 0
@@ -47,3 +39,8 @@ DestroyFunc DoPageMove
 AddToFunc   DoPageMove
 + I GotoPage   $0 0
 + I MoveToPage $0 0
+
+# Keymap config
+PipeRead "[ -f '$[FVWM_USERDIR]/common/keymaps/$[KEYMAP]' ] \
+          && echo Read common/keymaps/$[KEYMAP] \
+         || echo Read common/keymaps/default"

diff --git a/common/keymaps/colemak b/common/keymaps/colemak
new file mode 100644 (file)
index 0000000..ddbd008
--- /dev/null
+++ b/common/keymaps/colemak
@@ -0,0 +1,7 @@
+# For moving windows around desktops.
+Key N WFT CM DoPageMove 0
+Key E WFT CM DoPageMove 1
+Key I WFT CM DoPageMove 2
+Key L WFT CM DoPageMove 3
+Key U WFT CM DoPageMove 4
+Key Y WFT CM DoPageMove 5

diff --git a/common/keymaps/default b/common/keymaps/default
new file mode 120000 (symlink)
index 0000000..f228909
--- /dev/null
+++ b/common/keymaps/default
@@ -0,0 +1 @@
+qwerty
\ No newline at end of file

diff --git a/common/keymaps/qwerty b/common/keymaps/qwerty
new file mode 100644 (file)
index 0000000..e742132
--- /dev/null
+++ b/common/keymaps/qwerty
@@ -0,0 +1,7 @@
+# For moving windows around desktops.
+Key J WFT CM DoPageMove 0
+Key K WFT CM DoPageMove 1
+Key L WFT CM DoPageMove 2
+Key U WFT CM DoPageMove 3
+Key I WFT CM DoPageMove 4
+Key O WFT CM DoPageMove 5