diff options
Diffstat (limited to 'ravi-ergodox-mode.el')
| -rw-r--r-- | ravi-ergodox-mode.el | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/ravi-ergodox-mode.el b/ravi-ergodox-mode.el deleted file mode 100644 index e393a39..0000000 --- a/ravi-ergodox-mode.el +++ /dev/null @@ -1,83 +0,0 @@ -;;; 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) -(if (and (boundp 'ravi/use-helm-instead-of-ido) ravi/use-helm-instead-of-ido) - (progn - (define-key ravi-ergodox-mode-map (kbd "<f1>") 'helm-multi-files) - (define-key ravi-ergodox-mode-map (kbd "<f2>") 'helm-locate)) - (progn - (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 |
