diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2015-03-17 04:17:17 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2015-03-17 04:17:17 (GMT) |
| commit | a6e94a30a835ea389fe8fc40df162ff327035ccb (patch) | |
| tree | cf695ab8c77b2c78434b2c6913295641a9287110 /ravi-ergodox-mode.el | |
| parent | b94602dccfa28b997b1fc1f2e0373d997f4b95ce (diff) | |
| download | dotemacs-a6e94a30a835ea389fe8fc40df162ff327035ccb.zip dotemacs-a6e94a30a835ea389fe8fc40df162ff327035ccb.tar.gz dotemacs-a6e94a30a835ea389fe8fc40df162ff327035ccb.tar.bz2 | |
Move main emacs directory out of load path
This follows the official emacs recommendation for lisp code inside
emacs.d.
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 |
