Try to avoid shift keys

1 files changed, 57 insertions, 0 deletions

diff --git a/ravi-init-layouts.el b/ravi-init-layouts.el
new file mode 100644
index 0000000..f6199ce
--- /dev/null
+++ b/ravi-init-layouts.el
@@ -0,0 +1,57 @@
+;;; ravi-init-layouts.el --- layouts
+
+;; Copyright (C) 2014
+
+;; Author:  <ravi@nero.lan>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Uses undocumented emacs API
+
+;;; Code:
+
+(require 'quail)
+
+(quail-define-package
+ "english-prog" "English programmer" "EN-P" t
+ "English programmer's keyboard."
+ nil t nil nil t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("1" ?!)
+ ("2" ?@)
+ ("3" ?#)
+ ("4" ?$)
+ ("5" ?%)
+ ("6" ?^)
+ ("7" ?&)
+ ("8" ?*)
+ ("9" ?\()
+ ("0" ?\)))
+
+(provide 'ravi-init-layouts)
+;;; ravi-init-layouts.el ends here