From: Nick Bowler <nbowler@draconx.ca>
Date: Wed, 6 Oct 2010 01:00:42 +0000 (-0400)
Subject: Add key binding support for Colemak.
X-Git-Url: http://git.draconx.ca/gitweb/fvwmconf.git/commitdiff_plain/5f2f17af57b79d931457073a046380cdc998f635

Add key binding support for Colemak.
---

diff --git a/common/bindings b/common/bindings
index 14a71b2..d9a03fa 100644
--- 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
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
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
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