1 files changed, 78 insertions, 0 deletions
diff --git a/ravi-ergodox-mode.el b/ravi-ergodox-mode.el
new file mode 100644
index 0000000..78221ab
--- /dev/null
+++ b/ravi-ergodox-mode.el
@@ -0,0 +1,78 @@
+;;; ravi-ergodox-mode.el --- Keybindings fof Ergodox keyboard
+
+;; Copyright (C) 2014  Ravikiran Rajagopal
+
+;; Author: Ravikiran Rajagopal <ravi@nero.lan>
+;; Keywords: convenience, hardware
+
+;; 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:
+
+;; Set up keymap for ergodox bindings
+
+;;; Code:
+
+(defgroup ravi-ergodox-mode nil
+  "Keybindings for ergodox."
+  :group 'ravi-ergodox-mode)
+
+(defvar ravi-ergodox-mode-map (make-sparse-keymap)
+  "Keymaps for command `ravi-ergodox-mode-map'.")
+
+(defcustom ravi-ergodox-mode-disable-predicates nil
+  "List of predicates that disable the mode.
+Each function in the list receive no argument."
+  :group 'ravi-ergodox-mode)
+
+(defcustom ravi-ergodox-mode-disabled-modes nil
+  "Modes where `ravi-ergodox-mode' should not activate."
+  :group 'ravi-ergodox-mode
+  :type '(repeat symbol))
+
+(define-minor-mode ravi-ergodox-mode
+  "Enable Ergodox keyboard special bindings."
+  :lighter " RE" :group 'convenience
+  :keymap ravi-ergodox-mode-map
+  :global t
+  (if ravi-ergodox-mode
+      (progn
+        (setq x-meta-keysym 'super)
+        (setq x-super-keysym 'meta))
+    (progn
+      (setq x-meta-keysym nil)
+      (setq x-super-keysym nil))
+    )
+  )
+
+(define-key ravi-ergodox-mode-map (kbd "H-m") 'magit-status)
+(define-key ravi-ergodox-mode-map (kbd "<f6>") 'ff-find-other-file)
+(define-key ravi-ergodox-mode-map (kbd "<f1>") 'ido-switch-buffer)
+(define-key ravi-ergodox-mode-map (kbd "<f2>") 'ido-find-file)
+
+(defun ravi-ergodox-mode-enable ()
+  "Turn on ergodox bindings mode."
+  (and (not (memq major-mode ravi-ergodox-mode-disabled-modes))
+       (not (catch 'disable
+              (dolist (pred ravi-ergodox-mode-disable-predicates)
+                (and (funcall pred)
+                     (throw 'disable t)))))
+       (ravi-ergodox-mode 1)))
+
+(defun ravi-ergodox-mode-disable ()
+  "Turn off ergodox bindings mode."
+  (ravi-ergodox-mode -1))
+
+(provide 'ravi-ergodox-mode)
+;;; ravi-ergodox-mode.el ends here